[Excel VBA] For Next loop

[Batsies]

In excel ben ik bezig een toch wel simpele macro te schrijven, maar kom er niet echt uit.

IK heb een kolom met 5 kleuren (achtergrond) en op die cellen staat een letter in een andere kleur. Hoe kan je d.m.v een loop die 5 kleurcodes van de achtergrond uitlezen.

Voor 1tje lukt het mij wel:

code:

Sub test()

Dim Start As Range

Set Start = Range("e4")
Range("f4") = Start.Interior.ColorIndex

End Sub

Een loop lukt me wel om te gebruiken om een range getallen neer te zetten, maar hoe kan je zeggen dat je niet een range getallen van 1 t/m 5 neer wilt zetten, maar juist de kleurcodes, zie onderstaande code:

code:

Sub kleuren()
Dim i As Integer, startcel As Range
Dim nummers As Range
Set startcel = Range("F4")
Set nummers = startcel.Resize(5, 1)
For i = 1 To 5
    nummers(i, 1) = i
Next i
End Sub

Een bestand is hier te vinden:
http://www.batsies.nl/upload/kleur.xls

[Maasluip]

Je titel heeft weinig te maken met je probleem.

Als je in je for-loop

nummers(i, 1) = nummers(i, 1).Interior.ColorIndex

gebruikt heb je volgens mij wat je wil.

[Batsies]

Maasluip schreef op 27 april 2004 @ 07:51:
Je titel heeft weinig te maken met je probleem.

Als je in je for-loop

nummers(i, 1) = nummers(i, 1).Interior.ColorIndex

gebruikt heb je volgens mij wat je wil.

Ja klopt, qua titel wist ik niet anders, het enige wat er dan wel moet gebeuren is de range verleggen van F4 --> E4 en

code:

nummers(i, 1) = nummers(i, 1).Interior.ColorIndex

moet

code:

nummers(i, 2) = nummers(i, 1).Interior.ColorIndex

worden.

In ieder geval hartelijk dank