Private Sub CommandButton1_Click() anderes
23.06.2004 12:27:20
Andreas
ich habe mal eine Frage kann man die unten stehende Formel auch so ändern das ich sie einem Bild oder Symbol zuordnen kann ? Da ich den CommandButton sehr blöd aussieht. Oder gibt es eine mögich keit die Farbe des Button und die Schrift zu ändern da es bei mir nicht klappt.
Private Sub CommandButton1_Click()
x = Date
y = Format(Date, "mmmm")
Sheets(y).Activate
Set xDate = ActiveSheet.Columns(2).Find(Date)
xDate.Activate
End Sub
Vielen Dank im Vorraus
Andreas