Hallo zusammen
Kann mir jemand erklären wieso das:
With Sheets("Blatt1")
.Range(.Cells(rowi, 5), .Cells(rowi, 7)).Interior.ColorIndex = 3
End With
funktioniert.
Dies hingegen nicht:
Sheets("Blatt1").Range(Cells(rowi, 5), Cells(rowi, 7)).Interior.ColorIndex = 3
rowi ist ein Zeilenzähler.
Ich möchte die With Umgebung wenn möglich umgehen, da der Code sonst extrem lang wird.
Was mir bis jetzt aufgefallen ist: Variante 2 funktioniert, wenn ich das Makro laufen lasse und in Excel das Blatt "Blatt1" anzeige. Wenn ich das Makro aber von einem anderen Blatt aus laufen lasse, bekomme ich den Laufzeitfehler '1004'
Danke schon im Voraus. |