Zellen überspringen
07.11.2012 17:45:00
ralf
Habe ein Problem . Will in Spalte A , Datum eingeben . Das bekomme ich auch hin .
Das Problem ist das ich in Zelle A1 ein Datum habe möchte ,dann Zelle A2 leer ,
und in Zelle A3 wieder Datum usw. Benutze folgendes Makro.
Private Sub Datum()
Dim d As Date
Dim b, i
i = Day(DateSerial(Year(d), 1 + 1, 0))
For b = 1 To i
ActiveSheet.Cells(b, 1) = DateSerial(Year(Now), 1, b)
Next
End Sub
mfg
Ralf
Anzeige