Suche nach Uhrzeiten
23.09.2006 14:56:54
00011011
- Tabelle1 = Tabellenblatt in der Arbeitsmappe "Mappe1"
- Spalte B = ab Zeile 2: ca. 70 Uhrzeiten beginnend bei 13:00 (13:02, 13:05...)
Ich möchte, dass das Makro Zeile für Zeile durchgeht und die entsprechende Uhrzeit mit der in der zweiten Zeile (13:00) vergleicht. Sinn und Zweck soll es sein, dass nach 15-Minuten-Intervallen die entsprechenden Zeile farbig markiert werden soll.
Allgemein wird bei diesem Fall wird angenommen, dass die Uhrzeiten chronologisch fortgeführt werden.
Nachfolgend mein Versuch:
Private Sub CommandButton1_Click()
Dim Zaehler As Integer
Dim Start As Date
Start = Worksheets("Tabelle1").Range("B2").Value
For Zaehler = 2 To 50
If ActiveSheet.Cells(2, Zaehler).Value = Start + #00:15:00 AM# Then
Rows(Zaehler).Select
With Selection.Interior
.ColorIndex = 7
.Pattern = xlSolid
End With
End If
Next Zaehler
End Sub
Verständlicherweise funktioniert das so mit dem Date und dem +#00:15:00# nicht. Ich denke es ist klar, welchen Weg ich mit diesem Versuch verfolgt habe. Da ich in der Hilfe sowohl in Excel als auch hier im Forum keine entsprechende Unterstützung gefunden habe, richte ich mich an die Profis hier im Board.
Vor ab schon Mal vielen Dank!
Gruß aus Köln
Christian