habe gerade mein kleines Script zum kopieren
vertig und bekomme nen Fehler. Nach genauer
Kontrolle sind alle kleinen Fehler behoben.
Und es läuft dennoch nicht.
Das ist mein Code:
Sub kopieren()
For c = 1 To 16
For i = 1 To 700
Worksheets("fertig").Range(Cells(i, c)).Value = Worksheets("08IPADR").Range(Cells(i, c)).Value
Next i
Next c
End Sub
Vielen Dank im voraus.
Christoph