VBA- kopieren und einfügen
21.03.2005 13:37:27
Stefan
ich habe mir ein kleine VBA-Teil geschneidert. Es soll Werte aus Basis des Farbcodes kopieren.
Soviel zur Theorie. Das ganze läuft auf keinen Fehler, aber macht auch nicht was es soll. Kann mir jemand sagen, wo der Hase versteckt ist ?
Vielen Dank schon mal.
Gruß
Stefan
Sub farben_kopieren()
For i = 1 To Cells(11000, 4).End(xlUp).Row
If Cells(i, 4).Interior.ColorIndex = 1 Then Cells(i, 4).Copy _
Destination:=Cells(i, 2)
Next i
End Sub
Anzeige