Tomaten auf den Augen
17.02.2017 15:51:31
Dennis
habe folgenden Code, der mir den Fehlercode "Run time error 1004, application-defined or object-defined error" liefert
Sub Kontrollblätter_drucken()
Dim i As Integer
Dim Blatt As Variant
For i = 1 To 25
Blatt = Worksheets("Sheet1").Range(Cells(i + 4, 1))
Next
End Sub
Ersetzte ich Range(Cells(i + 4, 1)) durch Range("A5") funktioniert die Schleife. Erkenne leider meinen Fehler nicht. Kann mir jemand nen Wink geben.
Danke!
Anzeige