Selection/ Zellen einfärben

Bild

Betrifft: Selection/ Zellen einfärben
von: Nico D
Geschrieben am: 08.12.2003 10:29:12

Hallo Zusammen,

ü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
Bild


Betrifft: hat sich erledigt.
von: Nico D
Geschrieben am: 08.12.2003 10:44:48

bin selbst darauf gekommen, aber trotzdem vielen Dank!

tolles Forum


Bild

Beiträge aus den Excel-Beispielen zum Thema " Selection/ Zellen einfärben"