Interior. ColorIndex
04.07.2003 11:39:08
Olli
ich moechte mit meinem Code gerne in Spalte C die Hintergrundfarben der Zelle auf die jeweilige Zelle in Spalte 7 uebertragen. Der Debugger motzt beim set b =...
Wie kann man den Debugger eigentlich beenden? Gibt es eine andere Moeglichkeit, als den Editor zu schliessen?
Was mache ich falsch?
Koennt ihr mal kurz 'nen Blick drauf werfen?
Waere euch dankbar
Gruss
Olli
Mein Code:
Sub Farben()
Dim z As Long
Dim b As Integer
z = Range("C1").End(xlUp)
For i = z To 1 Step -1
Set b = Cells(i, 3).Interior.ColorIndex
Cells(i, 7).Interior.ColorIndex = b
Next i
End Sub
Anzeige