Geschätzte Gemeinde,
ich verscuche mich viel mit copy and paste. N
Nachstehender Code funktioniert für eine wechselweise Zeilenfärbung wunderbar, wenn ich nur ein Tabellenblatt habe:
=========================
Dim Zeile As Range, ZeilenNr As Integer
For Each Zeile In Selection.Rows
ZeilenNr = ZeilenNr + 1
If ZeilenNr Mod 2 = 0 Then
Zeile.Interior.ColorIndex = 0
Else
Zeile.Interior.Color = RGB(232, 232, 232)
End If
Next
=========================
Wenn ich den code ein das zweite oder jedes weitere Tabellenblatt einer Datei einfüge, erhalte ich die Fehlermeldung: "Fehler beim Kompilieren:Mehrfachdeklaration im aktuellen Gültigkeitsbereich"
Kann mir jemand auf die sprünge helfen?
|