Laufzeitfehler 1004

Hallo

ich bitte um Hilfe,

warum bekomme ich im Einzelschrittausführen sobald eine Formel im Blatt Dateien eingefügt werden soll einen Laufzeitfehler 1004. Beim Blatt Rechnung hat alles geklappt?

Das Blatt Dateien existiert. Daran liegt es nicht.

Danke
Christian

Private Sub Rechnung()

        Dim LetzteA As Long

        Dim LetzteG As Long

        Dim LetzteL As Long

        Dim LetzteV As Long

        Dim LetzteAE As Long

        Dim LetzteDA As Long

        Dim LetzteDC As Long

        Dim LetzteDE As Long

        

        LetzteA = Worksheets("Rechnung").Cells(Rows.Count, 1).End(xlUp).Row

        LetzteG = Worksheets("Rechnung").Cells(Rows.Count, 7).End(xlUp).Row

        LetzteL = Worksheets("Rechnung").Cells(Rows.Count, 12).End(xlUp).Row

        LetzteV = Worksheets("Rechnung").Cells(Rows.Count, 22).End(xlUp).Row

        LetzteAE = Worksheets("Rechnung").Cells(Rows.Count, 31).End(xlUp).Row

        LetzteDA = Worksheets("Dateien").Cells(Rows.Count, 1).End(xlUp).Row

        LetzteDC = Worksheets("Dateien").Cells(Rows.Count, 5).End(xlUp).Row

        LetzteDE = Worksheets("Dateien").Cells(Rows.Count, 5).End(xlUp).Row

        

    With Worksheets("Rechnung")

             

       .Range("E2:E" & LetzteA).FormulaLocal = "=ZÄHLENWENN(G$2:G$" & LetzteG & ";B2)"

       .Range("E2:E" & LetzteA).Value = .Range("E2:E" & LetzteA).Value2

       .Range("J2:J" & LetzteG).FormulaLocal = "=ZÄHLENWENN(B$2:B$" & LetzteA & ";G2)"

       .Range("J2:J" & LetzteG).Value = .Range("J2:J" & LetzteG).Value2

       .Range("T2:T" & LetzteL).FormulaLocal = "=ZÄHLENWENN(Dateien!A$1:A$" & LetzteDA & ";S2&""*"")"

       .Range("T2:T" & LetzteL).Value = .Range("T2:T" & LetzteL).Value2

       .Range("AC2:AC" & LetzteV).FormulaLocal = "=ZÄHLENWENN(Dateien!E$1:E$" & LetzteDE & ";AB2&""*"")"

       .Range("AC2:AC" & LetzteV).Value = .Range("AC2:AC" & LetzteV).Value2

       .Range("AL2:AL" & LetzteAE).FormulaLocal = "=WENN(RANG.GLEICH(AG2;AG$2:AG$42;0)=30;ZÄHLENWENN(Dateien!C$1:C$" & LetzteDC & ";AK2&""*"");"""")"

       .Range("AL2:AL" & LetzteAE).Value = .Range("AL2:AL" & LetzteAE).Value2

       

    End With

    

    With Worksheets("Dateien")

    

       .Range("B1:B:" & LetzteDA).FormulaLocal = "=ZÄHLENWENN(Rechnung!S$2:S$" & LetzteL & ";TEIL(A1;1;FINDEN(""~"";WECHSELN(A1;"" "";""~"";LÄNGE(A1)-LÄNGE(WECHSELN(A1;"" "";""""))))-1))"

       .Range("D1:D" & LetzteDC).FormulaLocal = "=ZÄHLENWENN(Rechnung!AK$2:AK$" & LetzteAE & ";TEIL(C1;1;FINDEN(""~"";WECHSELN(C1;"" "";""~"";LÄNGE(C1)-LÄNGE(WECHSELN(C1;"" "";""""))))-1))"

       .Range("F1:F" & LetzteDF).FormulaLocal = "=ZÄHLENWENN(Rechnung!AB$2:AB$" & LetzteV & ";TEIL(E1;1;FINDEN(""~"";WECHSELN(E1;"" "";""~"";LÄNGE(E1)-LÄNGE(WECHSELN(E1;"" "";""""))))-1))"

       

       .Range("A1:A" & LetzteDA).Sort Key1:=.Cells(1, 1), Order1:=xlAscending, Header:=xlNo, Orientation:=xlTopToBottom

       .Range("C1:C" & LetzteDC).Sort Key1:=.Cells(1, 1), Order1:=xlAscending, Header:=xlNo, Orientation:=xlTopToBottom

       .Range("E1:E" & LetzteDE).Sort Key1:=.Cells(1, 1), Order1:=xlAscending, Header:=xlNo, Orientation:=xlTopToBottom

    End With

                            

End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

HI
wo genau tritt der Fehler auf, in welcher Zeile?
das ist immer ein wichtiger Hinweis auf das, was falsch sein könnte.
vor allem dann, wenn du sehr ähnliche Codezeilen hast, ist es immer interessant, ob der Fehler schon bei der ersten Zeile auftritt, oder erst in weiteren.

ich vermute mal, dass der Fehler hier auftritt:

 .Range("C1:C" & LetzteDC).Sort Key1:=.Cells(1, 1),

denn hier ist der Fehler, dass du die Spalte C sortieren willst, aber als Sortierspalte die Spalte A angibst, und die sortierspalte muss ja innerhalb des Sortierbereichs liegen.
du müsstest also schreiben:'

 .Range("C1:C" & LetzteDC).Sort Key1:=.Cells(1, 3),

man sieht zwar häufiger mal das Key:=.Cells(1, 1) aber dann ist in der Regel nur der Sortierbereich Inhalt der WITH-Klammer und nicht das ganze Tabellenblatt wie bei dir.

also entweder:

With Worksheets("Dateien")

    .Range("C1:C" & LetzteDA).Sort Key1:=.Cells(1, 3)

oder

With Worksheets("Dateien").Range("C1:C" & LetzteDA)

    .Sort Key1:=.Cells(1, 3)

Gruß Daniel

Private Sub Punkte() Dim LetzteA As Long LetzteA = Worksheets("Punkte").Cells(Rows.Count, 1).End(xlUp).Row letzteRA = Worksheets("Rechnung").Cells(Rows.Count, 1).End(xlUp).Row letzteRL = Worksheets("Rechnung").Cells(Rows.Count, 12).End(xlUp).Row With Worksheets("Punkte") .Range("B2:B" & LetzteA).FormulaLocal = "=XVERWEIS(A2;Rechnung!B$2:B$" & letzteRA & ";Rechnung!C$2:C$" & letzteRA & ";"""";0;1)" .Range("B2:B" & LetzteA).Value = .Range("B2:B" & LetzteA).Value2 .Range("C2:C" & LetzteA).FormulaLocal = "=XVERWEIS(A2;Rechnung!B$2:B$" & letzteRA & ";Rechnung!D$2:D$" & letzteRA & ";"""";0;1)" .Range("C2:C" & LetzteA).Value = .Range("C2:C" & LetzteA).Value2 .Range("D2:D" & LetzteA).FormulaLocal = "=XVERWEIS(A2;Rechnung!O$2:O$" & letzteRL & ";Rechnung!R$2:R$" & letzteRL & ";"""";0;1)" .Range("D2:D" & LetzteA).Value = .Range("D2:D" & LetzteA).Value2 .Range("F2:F" & LetzteA).FormulaLocal = "=XVERWEIS(A2;Rechnung!O$2:O$" & letzteRL & ";Rechnung!N$2:N$" & letzteRL & ";"""";0;1)" .Range("F2:F" & LetzteA).Value = .Range("F2:F" & LetzteA).Value2 .Range("G2:G" & LetzteA).FormulaLocal = "=DATEDIF(C2;F2;""Y"")" .Range("G2:G" & LetzteA).Value = .Range("G2:G" & LetzteA).Value2 .Range("H2:H" & LetzteA).FormulaLocal = "=DATEDIF(C2;F2;""YD"")" .Range("H2:H" & LetzteA).Value = .Range("H2:H" & LetzteA).Value2 .Range("I2:I" & LetzteA).FormulaLocal = "=WENN(RANG.GLEICH(C2;C$2:C$" & LetzteA & ";0)=30;RANG.GLEICH(C2;C$2:C$" & LetzteA & ";0);"""")" .Range("I2:I" & LetzteA).Value = .Range("I2:I" & LetzteA).Value2 .Range("J2:J" & LetzteA).FormulaLocal = "=SUMMENPRODUKT((M2:BL2>0)*(M$1:BL$1+1)-M2:BL2)" .Range("J2:J" & LetzteA).Value = .Range("J2:J" & LetzteA).Value2 .Range("K2:K" & LetzteA).FormulaLocal = "=RANG.GLEICH(J2;J$2:J4" & LetzteA & ";0)" .Range("K2:K" & LetzteA).Value = .Range("K2:K" & LetzteA).Value2 .Range("L2:L" & LetzteA).FormulaLocal = "=MIN(M2:BL2)" .Range("L2:L" & LetzteA).Value = .Range("K2:K" & LetzteA).Value2 .Range("M1:BL1").FormulaLocal = "=MAX(M$2:M$" & LetzteA & ")" .Range("M1:BL1").Value = .Range("M1:BL1").Value2 .Range("A2:BL" & LetzteA).Sort Key1:=.Cells(1, 10), Order1:=xlDescending, Header:=xlNo, Orientation:=xlTopToBottom End With End Sub

Beliebteste Forumthreads (12 Monate)

34
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Laufzeitfehler 1004

34 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

34
Beiträge zum Forumthread

Beiträge zu diesem Forumthread