Zelle finden Zeile formatieren
06.12.2005 10:36:47
Chrizzi
vielleicht kann mir jemand bei folgendem Problem helfen: ich möchte aus einer markierten Spalte A diejenigen Zeilen formatieren (Spalten A bis H), die das Zahlenformat "0" aufweisen. Meine Schleife funktioniert soweit, allerdings ist sie nach Durchlauf der ersten Zeile beendet. Wie kann man das beheben?
Bsp:
Sub ZelleFindenZeileFormatieren()
Dim Zelle As Range
Range("A15").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
For Each Zelle In Selection
If Zelle.NumberFormat = "0" Then
Range(ActiveCell(), _
ActiveCell.Offset(0, 7)).Interior.ColorIndex = xlNone
End If
ActiveCell.Offset(1, 0).Select
Next Zelle
End Sub
Anzeige