Zum Vortag springen
28.06.2004 13:44:12
Alex
habe mal eine Frage kan man die Formel so umwandeln so das ich auf den Vorherigen Tag springe ??? Die Formel ist ja für den Aktuellen Tag
Private Sub CommandButton1_Click()
x = Date
y = Format(Date, "mmmm")
Sheets(y).Activate
Set xDate = ActiveSheet.Columns(2).Find(Date)
xDate.Activate
End Sub