Dim bereich as Range, zel as Range
Set bereich = ActiveSheet.Columns(5)
For Each zel In bereich
If (zel.Interior.ColorIndex = 3) Then
MsgBox ("Es gibt rote Zellen")
End If
Next zel
Hallo, ich habe 2 Fragen:
a) in Spalte 5 soll jede Zelle überprüft werden ob eine rote Zelle vorliegt. Wenn dies so ist soll die MsgBox angezeigt werden.
b) die For each Schleife soll nach dem Finden der 1. roten Zelle die MsgBox angezeigen und dann sofort verlassen werden.
Leider bekomme ich es nicht hin...
Vielen Dank für die Hilfe im Voraus!!
|