Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 11:49:37
Array verwenden
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
25.04.2024 10:30:04
Suche mit MINWENNS und Rückgabe mehrerer Werte
25.04.2024 09:47:49
Daten aus mehreren Dateien untereinander importieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
408to412
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
408to412
408to412
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige