Datum auf jedes Tabellenball in E1 eintragen
Volker
Sub EintragVornemen()
Dim i As Integer
For i = 1 To ActiveWorkbook.Sheets.Count
Range("E1").Value = Date
Next
End Sub
Count soll Die Tabellenblätter ermitteln.
Ich habe 3 Tabellenblätter und nur auf dem ersten drägt er das Datum in E1 ein.
was kan das sein?
vielen Dank für eure Bemühungen, find ich ganz toll!!!