HERBERS Excel-Forum - die Beispiele

Thema: Zellen in Abhängigkeit der aktuellen Uhrzeit markieren

Home

Gruppe

Ereignis

Problem

A1 soll von 22:01-06:00, B1 von 06:01 bis 14:00 und C1 von 14:01 bis 22:00 Uhr eine Kreuzmarkierung erhalten, Aktualisierung bei jeder Zelleingabe in Spalte A.

Lösung
Geben Sie den nachfolgenden Code in das Klassenmodul der UsereForm ein.
ClassModule: Tabelle1

Private Sub Worksheet_Calculate()
   Select Case Hour(Time)
      Case 22 To 24, 0 To 6
         With Range("A1")
            .Borders(xlDiagonalDown).Weight = xlThin
            .Borders(xlDiagonalUp).Weight = xlThin
         End With
         With Range("B1")
            .Borders(xlDiagonalDown).LineStyle = xlNone
            .Borders(xlDiagonalUp).LineStyle = xlNone
         End With
         With Range("C1")
            .Borders(xlDiagonalDown).LineStyle = xlNone
            .Borders(xlDiagonalUp).LineStyle = xlNone
         End With
      Case 6 To 14
         With Range("B1")
            .Borders(xlDiagonalDown).Weight = xlThin
            .Borders(xlDiagonalUp).Weight = xlThin
         End With
         With Range("A1")
            .Borders(xlDiagonalDown).LineStyle = xlNone
            .Borders(xlDiagonalUp).LineStyle = xlNone
         End With
         With Range("C1")
            .Borders(xlDiagonalDown).LineStyle = xlNone
            .Borders(xlDiagonalUp).LineStyle = xlNone
         End With
      Case 14 To 22
         With Range("C1")
            .Borders(xlDiagonalDown).Weight = xlThin
            .Borders(xlDiagonalUp).Weight = xlThin
         End With
         With Range("A1")
            .Borders(xlDiagonalDown).LineStyle = xlNone
            .Borders(xlDiagonalUp).LineStyle = xlNone
         End With
         With Range("B1")
            .Borders(xlDiagonalDown).LineStyle = xlNone
            .Borders(xlDiagonalUp).LineStyle = xlNone
         End With
   End Select
End Sub

Beiträge aus dem Excel-Forum zu den Themen Ereignis und Calculate

Msg mit 2 Ereignissen +Cancel Ereignisprozedur
Mit Change() o. Calculate() Filtern und Drucken Makro für ereignisabh. Druck verschiedener Seiten
UF Activate / Initialize Ereignis Namen definiert- in Ereignis verwenden?
Zeilen aus- einblenden als Ereignis? Makro mit calculate starten
Welches Ereignis ist das richtige ?? Ereignis Arbeitsblatt sperren abfangen
Ereignisprozedur f. Multipage-Reiter Frage zum Change ereignis
Change-Ereignis in Combobox unterdrücken Combobox Ereignis
Userform, Ereignis deklarieren im Klassenmodul Welches Diagramm-Ereignis?
Bestimmtes Ereignis in Spalte zählen Command Button Ereignis
Ereignis von Laufzeit-Checkbox change-ereignis bei dynamischen Controls / Teil 2
Change Ereignis verhindern change-ereignis bei dynamisch erstellten Controls
Fehler bei "Calculate" Schaltfläche - Ereignis erst nach Bestätigung ausl
Objekt_Error - Ereignis in UserForm change ereigniss auf userform.
Calculate bei Fensterwechsel Click-Ereignis für Checlbox nicht ausführen?
Speichern einer Kopie durch Ereigniss Workbook_bef Reagieren auf Tastaturereignisse
Ausnahmen für Exit-Ereignis Exit-Ereignis SetFocus
select Ereigniss UF Show Ereignis zeitweise mit Fehler
Ereignismakro Selectereigniss in Spalte
doppeltes Klick-Ereignis Doppelklick-Ereignis
VBA Ereignis: Änderung der Hintergrundfarbe Ereigniscode aus zwei Teilen fnk. nicht
Exit Ereignis einer Textbox im Frame Change-Ereignis bei Auswahllisten
Worksheet_Change Ereignis erweitern Exit Ereignis springt nicht an
Exit-Ereignis Ereignis "BeforeSave" - ".Find" geht nic
change ereigniss nicht ausführen Userform Exit Ereignis
Rekursiven Aufruf von Ereignissen verhindern Makro läuft nicht, falsches Ereignis?