Microsoft Excel

Herbers Excel/VBA-Archiv

Berich färben

Betrifft: Berich färben von: Heinz
Geschrieben am: 04.09.2004 12:06:17

Hallo Freude,

ich habe ein VBA-Problem und komme nicht weiter:

Ich möchte immer den Bereich K:S in der entsprechenden Zeile gelb einfärben, wenn un der entsprechenden Zelle in C ein F per Formel steht. Bedingte Formatierung geht nicht, da die drei schon ausgereitzt sind.

Ich komme nicht auf die If-Schleife, dass von C3 bis C35 durchgesucht und dann gefärbt wird.

Wer kann mir weiterhelfen?

Gruß Heinz

  


Betrifft: AW: Berich färben von: nighty
Geschrieben am: 04.09.2004 15:00:11

hi heinz :)

hier eine variante :)

gruss nighty

f=einfaerbung
ungleich f=ohne farbe

Sub liste_erstellen()
Dim zaehler1 As Long
With Worksheets(1)
For zaehler1 = 1 To 35
loletzte = IIf(IsEmpty(Range("IV" & zaehler1)), Range("IV" & zaehler1).End(xlToLeft).Column, 256)
If Cells(zaehler1, 3) = "F" Or Cells(zaehler1, 3) = "f" And loletzte > 0 Then
Range("A" & zaehler1 & ":" & Chr$(64 + loletzte) & zaehler1).Interior.ColorIndex = 6
Else
Range("A" & zaehler1 & ":" & Chr$(64 + loletzte) & zaehler1).Interior.ColorIndex = xlNone
End If
Next zaehler1
End With
End Sub