gesuchte Zelle farbig markieren

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox


Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: gesuchte Zelle farbig markieren
von: Hermann
Geschrieben am: 19.05.2002 - 20:30:29

Ich möchte beim Öffnen eines vertikal aufgebauten Kalenders den Sprung zur Zelle des heutigen Datums. Diese soll farbig markiert sein und der Kursor soll 2 Zellen nach rechts platziert sein.


nach oben   nach unten

Re: gesuchte Zelle farbig markieren
von: Hermann
Geschrieben am: 19.05.2002 - 20:39:50

Wer kann mir helfen ?

Vielen Merci


nach oben   nach unten

Re: gesuchte Zelle farbig markieren
von: Sigi E.
Geschrieben am: 20.05.2002 - 00:27:29

Hallo Hermann,

angenommen dein Kalender befindet sich im Bereich "A2:A366" dann wie folgt:

1.) Tagesdatum farbig: Über die bedingte Formatierung leicht zu lösen:
in A2: Formel ist "=A2=Heute()" Format(Farbe) auswählen
... usw. (Format mit Pinsel auf alle Zellen übertragen) ...
in A366: Formel ist "=A366=Heute()"

2.) 2 Zellen rechts selecten: Über Workbook_open() lösen:

Private Sub Workbook_Open()
Dim SuchBereich As Range
Dim Zelle As Range
Dim Gefunden As Boolean

    Set SuchBereich = Worksheets("Kalender").Range("A2:A366")
    For Each Zelle In SuchBereich
        If CDate(Zelle.Value) = Date Then
            Gefunden = True
            Worksheets("Kalender").Select
            Zelle.Offset(0, 2).Select
            Exit For
        End If
    Next Zelle
    If Not Gefunden Then
        MsgBox "Tagesdatum in Kalender nicht gefunden!", _
                vbCritical, "Meldung von Workbook_open()"
    End If
    Set SuchBereich = Nothing
End Sub

Gruß
Sigi

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "gesuchte Zelle farbig markieren"