Folgendes: Möchte Arbeitsblatt A1 50 mal Kopieren und Zelle D1 um 1 erhöhen (Start 1)
Sub copyA1()
Dim lngIndex As Long
On Error GoTo ErrExit
Application.ScreenUpdating = False
For lngIndex = 2 To 50
Sheets("A1").Copy AFter:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = "A" & lngIndex
Next
ErrExit:
Application.ScreenUpdating = True
End Sub
Dies habe ich schon aber ohne Zelle D1 erhöhenKann mir jemand dies aktualisieren
Vielen Dank
Gerd