Herbers Excel/VBA-Archiv

Zellen färben | Herbers Excel-Forum

• Zellen färben von serge vom 01.02.2010 18:17:45
• AW: Zellen färben - von Chris am 01.02.2010 18:24:18
• hier ein Beispiel ... - von Matthias L am 01.02.2010 18:39:41
  • Danke es klappt! - von serge am 01.02.2010 18:50:41

Betrifft: Zellen färben von: serge
Geschrieben am: 01.02.2010 18:17:45

Hallo Leute
Wie kann ich mit der aktiven Zelle die Zelle in der Aktivzeile die Zellen B bis X z.B Rot einfärben und beim verlassen wieder die Farbe wegnehmen?
Ich habe schon mit Fadenkreuz probiert und komme nicht vorwärst!
Serge

Betrifft: AW: Zellen färben von: Chris
Geschrieben am: 01.02.2010 18:24:18

Versuche es mal hiermit: http://hajo-excel.de/uebersicht.htm ganz unten, das macht genau das was du suchst.

Betrifft: hier ein Beispiel ... von: Matthias L
Geschrieben am: 01.02.2010 18:39:41

Hallo

(Farbe bitte anpassen)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Not Intersect(Target, Range("B" & Target.Row & ":X" & Target.Row)) Is Nothing Then
  Cells.Interior.ColorIndex = xlNone
  Range("B" & Target.Row & ":X" & Target.Row).Interior.ColorIndex = 6
 Else
  Cells.Interior.ColorIndex = xlNone
 End If
End Sub

oder

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Not Intersect(Target, Range("B" & Target.Row & ":X" & Target.Row)) Is Nothing And Target. _
Count = 1 Then
  Cells.Interior.ColorIndex = xlNone
  Range("B" & Target.Row & ":X" & Target.Row).Interior.ColorIndex = 6
 Else
  Cells.Interior.ColorIndex = xlNone
 End If
End Sub

https://www.herber.de/bbs/user/67678.xls

allerdings werden evtl. vorhandene Zellhintergrund-Formatierungen
in diesem Beispiel nicht berücksichtigt, sondern generell zurückgesetzt.

Gruß Matthias

Betrifft: Danke es klappt! von: serge
Geschrieben am: 01.02.2010 18:50:41

Serge

Beiträge aus den Excel-Beispielen zum Thema "Zellen färben"