Zellfarbe umkehren

• Zellfarbe umkehren von Patrick vom 08.03.2005 14:30:14
• AW: Zellfarbe umkehren - von Matthias G am 08.03.2005 14:45:47
  • AW: Zellfarbe umkehren - von Patrick am 08.03.2005 14:53:41
    • AW: Zellfarbe umkehren - von Matthias G am 08.03.2005 14:59:42
      • AW: Zellfarbe umkehren - von Patrick am 08.03.2005 15:01:39

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.

Beiträge aus den Excel-Beispielen zum Thema "Zellfarbe umkehren"