Schleife wird vorzeitig beendet ! Warum?
03.05.2007 21:09:00
Matthias
Bei folgender Schleife steigt Excel jedesmal nach der 2. Zelle aus!
Ich weiss aber einfach nicht wieso...?
Dim EZelle As Range
Dim EBereich As Range
Dim EBereich1 As Range
Dim EBereich2 As Range
Dim EBereich3 As Range
Set EBereich1 = Range("J25:J29")
Set EBereich2 = Range("M25:M32")
Set EBereich3 = Range("I36:P36")
Set EBereich = Union(EBereich1, EBereich2, EBereich3)
For Each EZelle In EBereich
If EZelle.Value = "" Then EZelle.Font.ColorIndex = xlColorIndexNone
If EZelle.Value If EZelle.Value >= 0.8 And EZelle.Value If EZelle.Value > 0.9 And EZelle.Value If EZelle.Value > 1 Then EZelle.Font.ColorIndex = 4
Next EZelle
Exit Sub
Kann mir jemand helfen?
Danke & Gruß
Matthias