Färben bei Bedingung
23.07.2008 13:19:00
Ralf
ich habe eine Excel Tabelle, wobei in Spalte E ab Zeile 11
Uhrzeiten stehen (z.B.: 10:00, 10:55,....)und in Zelle F4
steht ebenfalls eine Uhrzeit z.B.: 10:55
Nun möchte ich gerne, daß Excel die Zellen E11 bis E 65536
mit F4 vergleicht und mir die Zellen, die mit F4 identisch sind
rot färbt. Ich habe versucht, untenstehenden Code zu stricken,
aber er funktioniert noch nicht ganz so wie ich es gerne hätte.
Hat von Euch jemand eine Idee hierzu ?
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 5 Then ' Wenn Fokus auf Spalte E _
dann ...
Select Case Cells(Target.Row, 11) ' ... selektierte Zelle prü _
fen ob Inhalt ...
Case Is = "F4" ' gleich "F4", dann _
Cells(Target.Row, 11).Interior.ColorIndex = 3 ' Hintergrundfarbe rot
Case Is = "Müller" ' ungleich "F4", _
dann ...
Cells(Target.Row, 11).Interior.ColorIndex = 6 ' Hintergrundfarbe gelb
' hier kö _
nnen weitere Zuweisungen folgen
End Select ' Ende Anweisung _
End If
End Sub
Viele :-) Grüße
Ralf