Herbers Excel-Forum - das Archiv

Zellfarbe umkehren

Bild

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
Bild

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
Bild

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
Bild

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
Bild

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.
 Bild
Excel-Beispiele zum Thema "Zellfarbe umkehren"
Zellfarbe in verknüpfter Zelle ändern Zeichenfolge umkehren
Minuszeichen umkehren