Datum aktualisieren mit VBA
01.09.2003 15:33:28
Andi_H
in meinem Sheet in A3 steht ein Datum 1.9.2003 dieses möchte ich per Klick auf einen Button für das nächste Monat aktualisieren. Als Ergebnis sollte die Zelle A3 den 01.10.2003 enthalten.
Nur irgendwie macht mein Code nicht das was ich will.
Sub monat_aktualisieren()
Dim dat As Date
Dim i As Integer
dat = Cells(3, 1)
For i = 1 To 30
If Month(dat) <> (Month(dat + i)) Then
Cells(3, 1) = dat + i
End If
Next
End Sub
Kann mir da jemand helfen, habe keine Ahnung was ich falsch gemacht habe.
gruß und vielen Dank,
Andreas Huber
Anzeige