Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1056to1060
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

VBA - Bedingte Formatierung mit For-Next-Schlaufe

VBA - Bedingte Formatierung mit For-Next-Schlaufe
12.03.2009 17:38:23
Martin
Hallo zusammen
Ich habe ein Makro geschrieben und komme mit der bedingten Formatierung nicht weiter:
Ich habe eine For-Next-Schlaufe, die von unten die Zeilen rauffährt (For i = lezeile To 7 Step -1), unter anderem sollte am Ende der Schlaufe die Spalte A bis J auf der Zeile i jeweils folgendermassen bedingt formatiert werden: Wenn die Zelle "K" & i ein x enthält sollen die Zellen "A" & i bis "J" & i rot eingefärbt werden......
Ich habe es mit folgendem versucht, es geht aber nicht:
With Range("A" & i, "J" & i)
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:="=Zelle(11, i)=""x"""
.FormatConditions(1).Interior.ColorIndex = 38
End With
Kann mir da jemand helfen? Besten Dank auch schon im voraus.

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA - Bedingte Formatierung mit For-Next-Schlaufe
12.03.2009 19:45:19
robert
hi,
meinst du so?
gruß
robert
Option Explicit

Sub tt()
Dim i%
Dim lz%
lz = Cells(Rows.Count, 1).End(xlUp).Row
Range(Cells(1, 1), Cells(lz, 10)).Interior.ColorIndex = xlNone
For i = lz To 7 Step -1
If Cells(i, 11) = "x" Then
Range(Cells(i, 1), Cells(i, 10)).Interior.ColorIndex = 3
End If
Next
End Sub


Anzeige

344 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige