Wie kann ich folgendes bewerkstelligen:
Ich möchte das, wenn in Spalte E="ja" dann in der jew. Zeile von A-E grüner Zellhintergrund.
(am besten ein rgb wert)
Wie mach ich das per VBA?
grüsse,
Tobias
Sub faerben()
For i = 1 To 100
If Worksheets(1).Range("E" & i).Value = "ja" Then
Worksheets(1).Range("A" & i & ":E" & i).Interior.Color = RGB(100, 100, 100)
End If
Next i
End Sub
Gruß Specke
Sub Grün()
Dim rng As Range
Dim c As Range
Set rng = Range("E1:E" & Cells(Rows.Count, 5).End(xlUp).Row)
rng.Interior.ColorIndex = xlNone 'hiermit werden erstmal die Farben entfernt
For Each c In rng
If c = "ja" Then
Range("A" & c.Row & ":E" & c.Row).Interior.ColorIndex = 4 ' RGB Farben nicht zur Hand
End If
Next
End Sub
Gruss Hary
Sub Grün()
Dim rng As Range
Dim c As Range
Set rng = Range("E1:E" & Cells(Rows.Count, 5).End(xlUp).Row) 'Bereich aendern, hier A1 bis _
D10
Range("A1:E65536").Interior.ColorIndex = xlNone 'hiermit werden erstmal die Farben entfernt
For Each c In rng
If c = "ja" Then
Range("A" & c.Row & ":E" & c.Row).Interior.ColorIndex = 4
End If
Next
End Sub
Gruss hary
Set rng = Range("E9:E" & Cells(Rows.count, 5).End(xlUp).Row) 'Bereich aendern, hier A1 bis D10
Range("A9:E1000").Interior.ColorIndex = xlNone 'hiermit werden erstmal die Farben entfernt
For Each c In rng
If c = "ja" Then
If c.Row >= 9 Then
Range("A" & c.Row & ":E" & c.Row).Interior.Color = RGB(194, 214, 154)
End If
End If
Next
Vielen Dank nochmal,
Tobias
If c.Row >= 9 Then und ein end if kann raus
, da der Bereich(ab E9) schon in der ersten Zeile des Codes festgelegt ist.
sonst ist doch i.O. Hattest ja nix von der groesse des Bereichs geschrieben, deshalb 65536(also bis gaaanz unten).
Gruss Hary
PS: meine Meinung: Ein code soll nicht schoen sein, sondern funktionieren ;-)))