Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: formatierung (nächster termin)

formatierung (nächster termin)
sebastian
hallo,
ich möchte gerne das in meiner termintabelle der nächste termin farblich unterlegt wird. ich habe es mit dieser =MONAT(E5)=MONAT(HEUTE()) bedingten formatierung ausprobiert. leider werden hierbei alle termine im aktuellen monat farblich unterlegt. kann mir da jemand bei helfen.
in voraus vielen dank.
gruß sebastian
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: formatierung (nächster termin)
04.04.2004 21:12:27
Oberschlumpf
Hallo Sebastian
Da Du leider nicht geschrieben hast, wie denn Dein Terminkalender aufgenaut ist, kann ich Dir zwar nicht eine Musterlösung, aber vielleicht ein Denkanstoß anbieten.
Der folgenden Ansicht kannst Du den Aufbau "meines" Kalenders entnehmen.
Download des Tabellenkonverters                 Formeln in den Zellen als QuickNotiz
Von Oberschlumpf
Bild
A B C
1 Tag Uhrzeit  
2 04.04.2004 12:30 Termin1
3   17:00 Termin2
4   20:00 Termin3
5   20:59 Termin4
6   21:30 Termin5
7   22:15 Termin6
8   23:50 Termin7

Und der folgende VBA-Code färbt den 21:30h Termin grau. (jetzt ist es 21:11h)


Sub Termin()
    Dim lrZelle As Range
    
    Range("B2:C30").Interior.ColorIndex = xlNone
    
        For Each lrZelle In Range("B2:B30")
            If Hour(lrZelle.Value) = Hour(Time) Or Hour(lrZelle.Value) > Hour(Time) Then
                If TimeSerial(Hour(lrZelle.Value), Minute(lrZelle.Value), Second(lrZelle.Value)) > TimeSerial(Hour(Time), Minute(Time), Second(Time)) Then
                    lrZelle.Interior.ColorIndex = 15
                    lrZelle.Offset(0, 1).Interior.ColorIndex = 15
                    Exit For
                End If
            End If
        Next
                
End Sub


Wenn Du dieses Makro, oder angepasst, in ein Standard-Modul im VBA-Editor einfügst, und zusätzlich den Namen des Makros im Ereignis

Private Sub Workbook_Open()
End Sub

einträgst, dann wird das Makro automatisch beim Öffnen Deiner Excel-Tabelle ausgeführt, und Du kannst das Makro über Extras/Makro/Makros jederzeit bei Bedarf starten.
Wie gesagt, ich denke eher nicht, dass Du dieses Beispiel 1:1 übernehmen kannst. Aber vielleicht hilft Dir das ja trotzdem weiter.
Ciao
Thorsten
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige