Hallo und einen schönen guten Tag
ich habe eine Frage an Euch Spezialisten

habe volgenen  VBA
Sub CopyAktuelleSeite()
Intersect(ActiveSheet.Range("A:A,C:F"), ActiveSheet.Range("C5:C35").SpecialCells(xlCellTypeConstants, 3).EntireRow).Copy
Sheets("meine").Range("A11").PasteSpecial xlPasteValues
End Sub


klappt wunderbar aber würde gern das beim einfügen in ("meine ") E und F getauscht werden.
ich versuchte A:A,C,E,D:F
also 
A in A
C in B
E in C
D in D
F in E
ist das möglich ?
Gruß Thomas

Hallo in die Runde,

ich bin auf der Suche nach einer möglichst einfachen und zuverlässigen Möglichkeit, meine Arbeitszeit direkt beim Kunden vor Ort zu erfassen. Am besten sollte die Berechnung schnell funktionieren und automatisch Pausen berücksichtigen, damit ich nicht jedes Mal alles manuell ausrechnen muss.

Idealerweise hätte ich etwas, das ich auch unterwegs über das Smartphone nutzen kann. Gibt es in Excel eine praktikable Lösung oder vielleicht eine Vorlage, die man mobil gut verwenden kann? Oder nutzt ihr dafür spezielle Apps oder Programme, die sich in der Praxis bewährt haben?

Ich freue mich über eure Erfahrungen und Empfehlungen!

Hallo Forum,

nach Upgrade von Office 2019 pro auf Office 2024 pro unter WIN11 kommt, wenn ich im Explorer eine .docx-Datei anklicke, eine Fehlermeldung "Die Arbeitsdatei konnte von Word nicht erstellt werden. Überprüfen Sie die TEMP-Umgebungsvariable." 

Mit Hilfe von KI habe ich mich Stunde um Stunde durch alles Mögliche durchgehangelt, aber ich kriege diesen Fehler einfach nicht weg. 

Gibt es hierzu Erfahrungen, woran das liegt und wie man das beheben kann?

Vielen Dank für Eure Tipps!
erwin94

Hallo

ich hoffe, ihr habt einen Tipp für mich.

Ich habe folgende Tabelle

Spalte A - Datum/Monat
Spalte FR - Ort
Spalte F-FQ - Produkte, wobei ein Produkt in mehreren Spalten vorkommt, z. B. Spalte EZ-FQ ist das gleiche Produkt

Ich möchte jetzt gerne eine Auswertung erstellen, in der ich mit einer Formel die Kriterien Datum, Ort und Produkte abbilden kann. 

Daum und Ort klappt mit summenprodukt aber Summen der Produkte aus den Spalten kriege ich nicht hin.

Habt ihr eine Idee?

Guten Tag an alle
 hallo ich habe eine frage, gibt es eine vba code lösung das bei enter E5:E34 immer auf C6:C35 springt ?
zb.E7 Enter Taste zu C8

vielen Dank 
lg Thomas

Hallo zusammen,

ich bin hier neu.
Und habe natürlich eine Frage, bei welcher ich Eure Hilfe benötige:


Mittels Power Query habe ich bereits einige Aufgaben lösen können.

Jetzt bin ich aber an einem Punkt angelangt, bei dem ich überfragt bin.

Ich habe eine Tabelle. Eine Spalte in der Tabelle, Ausgang, enthält immer 5 Ziffern. Die 5 Ziffern sind ausnahmslos als Text formatiert.

Diesen Ziffernfolgen muss ich in einer weiteren, neuen Spalte einen bestimmten Text zuordnen.

Beispielsweise.

Ziffernfolgen der Tabelle 1, welche mit "81" oder "82" beginnen, sollen in der neuen Spalte den Wert "D12.c" erhalten.

Das konnte ich mit

kann mir jemand dabei helfen.

Wie kann ich in Bedingte Formatierung Formel angeben

Wenn Zelle B1 leer ist soll Zelle P1 Neu angeben sonnst leer lassen.

Das soll aber in Bedingte Formatierung eingebaut werden.

Ich Danke euch alle

Hallo, ich habe in Excel 2019 eine Tabelle2, in der in Spalte B das Datum steht, in D die Aktie und in K der Betrag (negativ bei Kauf, positiv bei Dividende oder Verkauf). Jetzt möchte ich mir den IRR anzeigen lassen, wenn ich entsprechende Aktie filtere. ChatGPT hat mir da schon erstaunlich gute Ergebnise ausgespuckt. Trotzdem scheint die verwendete Formel noch einen Fehler zu haben. Es erscheint immer #NAME?. Ich komme aber nicht dahinter. Weiß jemand Rat? Ich habe auch wie vorgeschlagen immer die Eingabe mit Strg + Shift + Enter beendet.

=XINTZINSFUSS(
WENN(TEILERGEBNIS(3;VERSCHIEBEN(Tabelle2[Betrag];ZEILE(Tabelle2[Betrag])-MIN(ZEILE(Tabelle2[Betrag]));0;1;1))=1;Tabelle2[Betrag]);
WENN(TEILERGEBNIS(3;VERSCHIEBEN(Tabelle2[Datum];ZEILE(Tabelle2[Datum])-MIN(ZEILE(Tabelle2[Datum]));0;1;1))=1;Tabelle2[Datum])
)

Hallo zusammen,

ich bin kürzlich auf Windows 11 umgestiegen und habe in diesem Zug auch Office 2010 den Rücken gekehrt und bin auf Office 2024 umgestiegen.

Hat alles wunderbar funktioniert, außer bei einem Anwendungsbereich.

Ich habe bereits in Word 2010 zwei DIN-A4-Seiten im Hochformat geschrieben, welche u. A. Formeln mit dem Wurzelzeichen aus dem Formeleditor von Word enthalten und schon in der 2010er-Version mit dem PDF-Creator (Ghostscript-Basis) von 2 Seiten auf eine Seite DINA4 im Querformat eine PDF erstellt. Hier wurde alles korrekt im PDF dargestellt.

Dasselbe Spiel mit der demselben PDF-Drucker funktioniert nun mit der Kombi Windows 11/Word 2024 nicht mehr zufriedenstellend (Wurzelzeichen wird nicht korrekt dargestellt). Bei einer Umwandlung auf 2 Seiten funktioniert dies aber wunderbar, nur bei der Verkleinerung auf eine Seite im Querformat nicht.

Habe schon probiert, die Schriftarten einzubetten usw. - allerdings ohne Erfolg.

Hätte hier mir bitte irgendjemand eine Idee, wie man das irgendwie lösen könnte?

Herzlichen Dank!

Angehängte Dateien

  Test_2_Seiten_auf_1_Seite.pdf (Größe: 118,46 KB / Downloads: 2)
  Test_2_Seiten_ohne_Verkleinerung.pdf (Größe: 119,03 KB / Downloads: 2)
  Test.docx (Größe: 2,02 MB / Downloads: 3)

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Eingabe As Variant
On Error GoTo fehler1


If Not Intersect(Target, Range("c5:c35")) Is Nothing Then ' nur dieser Bereich
Target = UCase(Target)
End If








If Not Intersect(Target, Range("F37,F43,C5:E35")) Is Nothing Then
    Application.EnableEvents = False
    With Target
        If Not IsNumeric(.Value) Then GoTo fehler1
        If IsEmpty(Target) Then
            Target.Value = ""
            GoTo fehler1
        End If
        .Value = Left(Format(Target, "0000"), 2) & ":" & Right(Target, 2)
        ' funkt am besten
        ' Wenn Std über 24 und gleichzeit Minuten über 60 erfasst werden, wird Text zurückgegeben.
        .NumberFormat = "[h]:mm"
    End With
End If
If Not Intersect(Target, Range("f44")) Is Nothing Then
    Application.EnableEvents = False
    With Target
        If Not IsNumeric(.Value) Then GoTo fehler1
        If IsEmpty(Target) Then
            Target.Value = ""
            GoTo fehler1
        End If
        .Value = Left(Format(Target, "00000"), 3) & ":" & Right(Target, 2)
        ' funkt am besten
        ' Wenn Std über 24 und gleichzeit Minuten über 60 erfasst werden, wird Text zurückgegeben.
        .NumberFormat = "[h]:mm"
    End With
End If

fehler1:
Application.EnableEvents = True
End Sub



meine frage warum kann ich in c5:c35 keine Uhrzeiten mehr schreiben  ? wollte wenn ich was schribe es in Gross  wird