Zellen & Bereich bedingt formatieren
15.12.2014 14:49:05
Beat
Vorerst noch Danke an Patrik, der mich bei einer Frage (Archiv 1387985) unterstützt hatte. ich konnte darauf nicht mehr reagieren... sorry.
nun stehe ich bei einem Code für ne bedingte Formatierung an.
Wahrscheinlich eine recht einfache Sache - für euch - ich aber kriege aufgrund der in der Suche gefundenen Resultate nix brauchbares hin.
Ich möchte mittels Code:
a) die Zellen im Bereich H7-S2500 gelb einfärben, wenn der Wert in derselben Zelle höher als 100 ist.
b) je Zeile der Wert in Spalte V prüfen. Ist dieser >=3, dann sollten die Zellen A-Z dieser Zeile auch gelb eingefärbt werden.
Mit Ausnahme der Spalten Y und Z (sind für Kommentare) sind alle Zellen geschützt und mit einer Sicherung (via Code) versehen: Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Locked = True Then Application.Undo MsgBox ("Keine Dateneingabezelle!") End If Application.EnableEvents = True End Sub
Der Makro-Recorder gibt mir für Fall a)folgendes zurück:
Sub bedFormata()
'
' bedFormata Makro
'
Range("H7:S2500").Select
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreaterEqual _
, Formula1:="=100"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
End Sub
und für Fall b):
Sub BedFormat3()
'
' BedFormat3 Makro
'
Range("A10:X10").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$V10=3"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
End Sub
Nun hab ich mich damit versucht (im Archiv gefunden und umgebaut...):
Private Sub Worksheet_Change(ByVal Target As Range)
Dim RaBereich As
Dim RaZelle As Range
Set RaBereich = Range("L22:M39, O21:O26")
For Each RaZelle In RaBereich
With RaZelle
Case >"3"
.Interior.Color = 65535
End Select
End With
Next RaZelle
End If
Set RaBereich = Nothing ' Variable leeren
End Sub
ich wäre sehr dankbar wenn mich jemand von euch unterstützen würde. Schon mal herzlichen Dank!!
Viele Grüsse Beat