Evaluation des grössten ColorIndexes
18.10.2005 11:08:53
Gérard
Mit der untenstehender Prozedur verursache ich einen Fehler (100 ist zu gross). Wie kann ich die Schleife überwachen damit ich den grössten ColorIndex eruieren kann ohne eine Fehlermeldung zu generieren?
Sub Farbindex()
Dim i As Integer
Sheets("Verzweigungen").Activate
Range("A30").Select
For i = 1 To 100
ActiveCell.Offset(0, i).Interior.ColorIndex = i
ActiveCell.Offset(1, i).Value = "Index " & i
Next
End Sub
Danke für die Rückmeldungen
Gérard