Jetzt funktioniert das mit dem Färben, aber meine Kopier-Schleife nicht mehr :-(.
Ich hatte mit unten stehendem Code meine Werte von Tabelle2 in Tabelle1 kopiert. Sobald sich die Werte in Tabelle 1 geändert haben, haben sich die Objekte verfärbt. Seitdem ich aber den Change-Ereignis-Code entsprechend angepasst habe, so dass sich die Objekte verfärben, funktioniert der folgende Code nicht mehr:
Sub Kopieren()
Dim ro As Integer
For ro = 3 To 102
Tabelle2.Cells(ro, 1).Copy
Tabelle1.Cells((ro-2), 1).Select
Selection.PasteSpecial Paste:=xlPasteValues
Next ro
End Sub
Hat jemand eine Idee, wieso nicht bzw. was ich ändern muss, damit es funktioniert? Wenn ich den Code in eine leere Excel-Datei einfüge, in der noch keine anderen Codes stehen, funktioniert er. Aber leider nicht mehr, sobald ich ihn in ein Modul in der Datei einfüge, in der ich auch das Change-Ereignis mit den anderen definierten Variablen habe.
|