Datum in alle Sheets eintragen
18.06.2003 09:55:33
Alex
wie schaft man es über VBA Datum in die nächste frei Zelle der Spalte J einzutragen in alle vorhandene Worksheets.
Bzw. wie muss man den folgenden VBA Code ändern damit dies funktioniert.
Dim I As Integer
For I = 1 To 3000
If Worksheets("Tabelle1").Cells(I, 10) = Date Then
Exit For
End If
If Worksheets("Tabelle1").Cells(I, 10) = 0 Then
Worksheets("Tabelle1").Cells(I, 10) = Date
Exit For
End If
Next
Danke Alex