VBA: Probleme mit Selection.Address
17.11.2004 14:31:19
Heiko
ich möchte ein Makro schreiben das in markierten Bereichen bestimmte Wertveränderungen ausführt. (Siehe unten z.B. Eins hochzählen)
Dieser Quellcode tut das. Aber leider auch dann, wenn ich das Arbeitsblatt verlassen habe wieder aufrufe und für mich kein Bereich ersichtlich mehr markiert ist. (Der Bereich ist nicht mehr farblich markiert.)
Zellen = ActiveWindow.Selection.Address
MsgBox Zellen
For Each Wert In Range(Zellen)
Wert.Value = Wert.Value + 1
Next Wert
End Sub
Gibt es eine Möglichkeit nur für "wirklich" markierte Bereiche (Zellen sind im Arbeitsblatt farblich markiert) eine Range Objekt zurückzubekommen, wenn aber kein Bereich sichtbar markiert ist auch keine (oder leeres) Range Objekt zurückzubekommen.
Danke schon mal vorab für alle Antworten,
Gruß Heiko