Wert in markierte Zelle übertragen, aber ...
17.10.2012 18:52:50
Dietmar
mit folgendem Code übertage ich einen berechneten Wert aus Zelle I4 in eine aktive Zelle.
Private Sub CommandButton1_Click()
Range("I4").Copy
ActiveCell.PasteSpecial xlPasteValues
Application.CutCopyMode = False
End Sub
Ich möchte nun noch sicherstellen, dass zuvor überprüft wird, ob sich die markierte Zelle in einem bestimmten Bereich befindet; sagen wir ("I10:I20").Wenn dies nicht der Fall ist, soll eine msgbox darauf hinweisen und der Vorgang soll abgebrochen werden.
Vielen Dank für einen Tipp.
Viele Grüße
Dietmar aus aachen