In einer Zeile abhängig von Uhrzeit nach T oder N
28.07.2005 15:13:41
Uhrzeit
Problem:
Ich finde mit untenstehender
Sub in der Spalte A4: A40 den Tag Now, mache die Zelle rot.(klappt)
Jetzt müsste ich abhängig von der Uhrzeit ab (06:00) in der gefundenen Zeile von C bis F suchen ob der Text "T" drinsteht.
Oder ab 18:00 in der Zeile von C bis F suchen ob der Text "N" drinsteht.
Das gefundene muss dann selectiert werden.
Public
Sub Wasistheute()
Dim Zelle As Object
For Each Zelle In Range("A32:A40") ' zum Testen auf A 40 begrenzt, sonst bis A 5000
Zelle.Select
If Zelle >= Now - 1 Then '
Zelle.Interior.ColorIndex = 3 'markiert den heutigen Tag Zelle rot
Exit Sub
End If
Next
End Sub
Schönen Dank im Voraus
Egon