PDA

Vollständige Version anzeigen : ...for next


SeNf
27.04.2009, 11:02
Mahlzeit,
mit folgendem code suche ich "20" in der reihe 4 meiner tabelle,
springe entsprechend nach unten (fFree)
und markiere das ensprechnede feld blau, soweit so gut...
jetzt möchte ich die felder der spalten zwischen start und ende auch blau markieren wie mach ich das am besten?
Gruß
Steffen

Dim rngDatFind As Range
Dim lngCounter As Long
Dim fFree As Long

fFree = Rows.Count
If Cells(fFree, "A").Value = "" Then
fFree = Cells(Rows.Count, "A").End(xlUp).Row + 1
End If

Start = 20
Ende = 24
Dif = Ende - Start

Set rngDatFind = Rows(4).Find(Start, LookIn:=xlValues)
Cells(fFree, rngDatFind.Column).Interior.ColorIndex = 37

chris-kaiser
27.04.2009, 11:07
hiho

Start = 20
Ende = 24

for diff =Start to Ende
Set rngDatFind = Rows(4).Find(diff, LookIn:=xlValues)
Cells(fFree, rngDatFind.Column).Interior.ColorIndex = 37
next

meinst Du das so?

SeNf
27.04.2009, 11:12
Hi Chris,
genau so meinte ich das :-)
merci