Herbers Excel-Forum - das Archiv
Zellfarbe umkehren
Betrifft: Zellfarbe umkehren
von: Patrick
Geschrieben am: 08.03.2005 14:30:14
Hallo Leute,
habe folgendes Problem:
ich habe einen Tabelle, deren Zellen die Farben weiß und gelb (farbindex 36 oder so) haben. ich möchte nun, dass innerhalb eines bestimmten bereiches, den ich markeiere, die Farbe der Zelle umgekehrt wir.
wie könnte man das bewerkstelligen?
gruß und danke schonmal,
Patrick
Betrifft: AW: Zellfarbe umkehren
von: Matthias G
Geschrieben am: 08.03.2005 14:45:47
Hallo Patrick,
Sub FarbenUmkehren()
Dim z As Range, col As Long
Application.ScreenUpdating = False
For Each z In Range("A1:F15")
col = z.Interior.ColorIndex
If col = xlColorIndexNone Then
col = 36
ElseIf col = 36 Then
col = xlColorIndexNone
End If
z.Interior.ColorIndex = col
Next z
Application.ScreenUpdating = True
End Sub
Gruß Matthias
Betrifft: AW: Zellfarbe umkehren
von: Patrick
Geschrieben am: 08.03.2005 14:53:41
Hi Matthias,
kannst du mir das auch noch so umbauen, dass diese umkehrung nur in einm bestimmten, vor der ausführung markierten bereich geschieht. habe leider selbst so gut wie keine peilung.
danke
Betrifft: AW: Zellfarbe umkehren
von: Matthias G
Geschrieben am: 08.03.2005 14:59:42
Hallo Patrick,
statt
For Each z In Range("A1:F15")
einfach
For Each z In Selection
schreiben.
Gruß Matthias
Betrifft: AW: Zellfarbe umkehren
von: Patrick
Geschrieben am: 08.03.2005 15:01:39
Jo, geht... thx
wird zeit, dass ich das auch mal lerne, ist ja gar nicht so schwer.