Herbers Excel/VBA-Archiv

Hintergrundfarbe aufgrund Zellwert | Herbers Excel-Forum

• Hintergrundfarbe aufgrund Zellwert von Arno vom 25.01.2010 14:29:40
• AW: Hintergrundfarbe aufgrund Zellwert - von welga am 25.01.2010 14:36:13
• AW: Hintergrundfarbe aufgrund Zellwert - von Tino am 25.01.2010 14:36:18
• AW: Hintergrundfarbe aufgrund Zellwert - von Arno am 25.01.2010 16:22:29

Betrifft: Hintergrundfarbe aufgrund Zellwert von: Arno
Geschrieben am: 25.01.2010 14:29:40

Hallo,

ich bitte um Hilfe bei meinem folgenden Wunsch:

Zellen im Bereich M7 bis M37, deren Wert größer 5 ist, sollen veranlassen, dass in die jeweiligen Zeilen die Zellenbereiche B bis K mit Gelb (ColorIndex 36) ausgefüllt werden.

Dies soll nicht über bedingte Formatierung erreicht werden!

Vielen Dank im Voraus für eure Hilfe!

Arno

Betrifft: AW: Hintergrundfarbe aufgrund Zellwert von: welga
Geschrieben am: 25.01.2010 14:36:13

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long
   If Not Intersect(Range("M7:M37"), Target) Is Nothing Then
      Application.EnableEvents = False
            If IsNumeric(Cells(Target.Row, 13)) And Cells(Target.Row, 13).Value >= 5 Then Range( _
Cells(Target.Row, 2), Cells(Target.Row, 11)).Interior.ColorIndex = 6
            If IsNumeric(Cells(Target.Row, 13)) And Cells(Target.Row, 13).Value < 5 Then Range( _
Cells(Target.Row, 2), Cells(Target.Row, 11)).Interior.ColorIndex = xlNone
      Application.EnableEvents = True
   End If
End Sub

Betrifft: AW: Hintergrundfarbe aufgrund Zellwert von: Tino
Geschrieben am: 25.01.2010 14:36:18

Hallo,
müsste so funktionieren.

kommt als Code in Tabelle

Option Explicit 
 
Private Sub Worksheet_Change(ByVal Target As Range) 
Dim Bereich As Range 
Set Bereich = Intersect(Range("M7:M37"), Target) 
If Not Bereich Is Nothing Then 
    For Each Bereich In Bereich 
        If Bereich > 5 Then 
            Range(Cells(Bereich.Row, 2), Cells(Bereich.Row, 11)).Interior.ColorIndex = 36 
        Else 
            Range(Cells(Bereich.Row, 2), Cells(Bereich.Row, 11)).Interior.ColorIndex = xlColorIndexNone 
        End If 
    Next Bereich 
End If 
End Sub 
 
 

Gruß Tino

Betrifft: AW: Hintergrundfarbe aufgrund Zellwert von: Arno
Geschrieben am: 25.01.2010 16:22:29

Hallo welga & Tino,

ganz herzlichen Dank für eure Lösungensvorschläge, die Formatierung funktioniert nun wie gewünscht.

Viele Grüße

Arno

Beiträge aus den Excel-Beispielen zum Thema "Hintergrundfarbe aufgrund Zellwert"