Error 1004 Excel
14.01.2022 12:05:33
wetho
ich möchte gerne bei einer Eingabe in einer Zelle eine bestimme Anzahl an Zellen rechts daneben mit dem gleichen Wert gefüllt werden.
Mit meinem Code klappt das auch super, ABER
ich bekomme eine Fehlermeldung:
Laufzeitfehler 1004 Anwendungs und objektdefinierter Fehler.
Ich weiß aber gar nicht warum. Habt ihr eine Idee?
Vielen Dank!
Sub Kopieren()
Dim lngZ As Long
For lngZ = 13 To WorksheetFunction.Max(13, Cells(Rows.Count, 1).End(xlUp).Row)
Cells(lngZ, 5).Resize(, Cells(lngZ, 1).Value) = Cells(lngZ, 4).Value
Next
End Sub