Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
480to484
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
480to484
480to484
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Berich färben

Berich färben
04.09.2004 12:06:17
Heinz
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Berich färben
nighty
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

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige