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

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