Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1132to1136
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Hintergrundfarbe aufgrund Zellwert

Hintergrundfarbe aufgrund Zellwert
Arno
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Hintergrundfarbe aufgrund Zellwert
25.01.2010 14:36:13
welga

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 

AW: Hintergrundfarbe aufgrund Zellwert
25.01.2010 14:36:18
Tino
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
Anzeige
AW: Hintergrundfarbe aufgrund Zellwert
25.01.2010 16:22:29
Arno
Hallo welga & Tino,
ganz herzlichen Dank für eure Lösungensvorschläge, die Formatierung funktioniert nun wie gewünscht.
Viele Grüße
Arno

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige