Springen auf Gestern
28.01.2005 09:05:05
Alex
habe folgenden Code bei mir eingesetz um das Aktuelle anzuspringen.
Private Sub CommandButton1_Click()
x = Date
y = Format(Date, "mmmm")
Sheets(y).Activate
Set xDate = ActiveSheet.Columns(2).Find(Date)
xDate.Activate
End Sub
dann wollte ich eine haben für auf den vortag zu springen da habe ich folgende Code eingesetz.
Private Sub CommandButton2_Click()
x = Date
y = Format(Date - 1, "mmmm")
Sheets(y).Activate
Set xDate = ActiveSheet.Columns(2).Find(Date)
xDate.Activate
End Sub
leider springt er mir nicht auf den Vortag sondern auf "das Aktuelle Datum" wieder, hoffe ihr könnt mir helfen.
Vielen Dank im Vorraus
Gruß Alex