Datums wechsel
01.07.2003 07:26:09
Heidi
Habe ein Urlaubsplaner erstellt !
In dem ich ein Button habe der mir das aktuelle datum sucht und auf das Tabellenblatt springt.
(Habe für jeden Monat ein Tabellenblatt angelegt)
Das Problem das ich habe ist, das eigendlich alles funktioniert aber beim wechseln des tages bleibt der vortag auch rot markiert.
Wie verändere ich den Code so das er beim wechseln des Aktuellen Tages nur ihn rot markiert
und den alten Tag wieder kein formation gibt.
Das ist Code des Button!
Private Sub CommandButton11_Click()
Dim C As Range, Ws As Worksheet, bolFound As Boolean
On Error Resume Next
CommandButton1.TakeFocusOnClick = False
For Each Ws In Worksheets
With Ws.Cells
Set C = .Find(Date, LookIn:=xlFormulas)
If Not C Is Nothing Then
Ws.Select
C.Select
bolFound = True
Selection.Interior.ColorIndex = 3
Selection.Font.ColorIndex = 6
Exit Sub
End If
End With
Next
End Sub
Danke Heidi