Cellcolor

? · Gast

hallo erstmal an alle =)

Ich habe folgendes kleine Programm geschrieben

Public Sub Test()
Dim i As Long

a = 333
zeilestart = 4
spaltestart = 6
breite = 3

For i = 1 To breite
Cells(zeilestart, spaltestart + i - 1) = a
a = a + 1
Next i

For i = 1 To breite - 1
Cells(zeilestart + i, spaltestart + breite - 1) = a
a = a + 1
Next i

For i = 1 To breite - 1
Cells(zeilestart + breite - 1, spaltestart + breite - 1 - i) = a
a = a + 1
Next i

For i = 1 To breite - 2
Cells(zeilestart + breite - 1 - i, spaltestart) = a
a = a + 1
Next i

End Sub

Nun will ich erreichen, dass jede Cell eine andere Farbe bekommt.
Bei der Hilfe hab ich dazu nichts gefunden, könnt ihr mir weiterhelfen?

onfire · Anmeldungsdatum: 27.04.2005 Beiträge: 1

die antwort geb ich mir nun selber

Cells(zeilestart + breite - 1 - i, spaltestart).Interior.ColorIndex = b

dami geht es, nur hab ich nun das Problem, dass die Felder immernoch die Farben beibehalten wenn ich das Programm neu durchlaufen lasse. Gibt es einen Befehl um die Tabelle zu klären?