Selection/ Zellen einfärben
08.12.2003 10:29:12
Nico D
über folgendes Makro werden mir alle in einer beliebigen Markierung definierten
Zellen eingefärbt. Mein Problem besteht darin, dass ich spezielle Farben definiert habe die den
Sub beenden wenn diese in der Selektion enthalten sind.
Ich möchte aber dass alle Felder eingefärbt werden bis auf die ausgeschlossenen 15 und 36.
Sub GU()
If Selection.Interior.ColorIndex = 15 Then
Exit Sub
End If
If Selection.Interior.ColorIndex = 36 Then
Exit Sub
End If
If Selection.Interior.ColorIndex = xlNone Then
With Selection
.Value = "U"
End With
Selection.Interior.ColorIndex = 10
Selection.Font.ColorIndex = 2
End If
End If
End Sub
Kann mir da jemand weiterhelfen?
Beste Grüße
Nico D