Kalenderansicht Zeitintervall farblich kennzeichnen

  • Excel

    Kalenderansicht Zeitintervall farblich kennzeichnen

    Guten Abend,

    ich habe ein neues Problem. Ich möchte in einer Kalenderansicht Zellen farblich markieren die in ein bestimmtes Zeitintervall passen. Per bedingte Formatierung konnte ich´s schon lösen.
    Allerdings glaube ich dass es per VBA eine elegantere Lösung wäre. Folgenden Code habe ich im Internet gefunden. Leider bin ich in VBA nicht so fit und versteh nicht wie ich mir diesen Code anpassen muss, dass es funktioniert.


    Visual Basic-Quellcode

    1. Option Explicit
    2. Private Sub Worksheet_Change(ByVal Target As Range)
    3. Dim start As Integer
    4. Dim start1 As Integer
    5. Dim ziel As Integer
    6. Dim anz As Integer
    7. If Target.Column = 2 Or Target.Column = 3 Or Target.Column = 4 Then
    8. If Cells(Target.Row, 2) <> "" And Cells(Target.Row, 3) <> "" _
    9. And Cells(Target.Row, 4) <> "" Then
    10. Range("E" & Target.Row, "IV" & Target.Row).Interior.ColorIndex = xlNone
    11. start1 = 5
    12. start = Format(Cells(Target.Row, 3), "hh")
    13. ziel = Format(Cells(Target.Row, 4), "hh")
    14. Do While Cells(1, start1) <> Cells(Target.Row, 2)
    15. start1 = start1 + 1
    16. Loop
    17. If start > ziel Then
    18. anz = (24 - start) + ziel
    19. Else: anz = ziel - start
    20. End If
    21. start = start + start1
    22. anz = anz + start + 1
    23. Do While start < anz
    24. Cells(Target.Row, start).Interior.ColorIndex = 6
    25. start = start + 1
    26. Loop
    27. End If
    28. End If
    29. End Sub


    Im Anhang ist meine Beispieldatei.
    Es sollte auf dem Blatt "Übersicht VBA" genauso Aussehen wie auf dem Blatt "Übersicht". Die Farbe für die Markierung ist mir erst mal egal. ;)

    Vllt hat ja jmd eine Idee und kann mir helfen.


    Mit freundlichen Grüßen
    B. Mühlburger
    Dateien

    • TEST1.zip

      (237,76 kB, 88 mal heruntergeladen, zuletzt: )

Facebook
Telefonspende