Laufzeitfehler 1004
18.09.2023 15:14:30
Christian
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