Warmeldung einfügen, aber wie?
12.11.2005 21:24:19
Christa
ich habe folgendes Makro mit dem Makrorecorder aufgezeichnet:
Sub Ausgangsseite()
' Ausgangsseite Makro
' Makro am 06.11.2005 von Christa aufgezeichnet
ActiveSheet.Unprotect "qwualpsf"
Rows("48:89").Select
Range("A89").Activate
Selection.Copy
ActiveWindow.SmallScroll Down:=45
Rows("90:90").Select
Selection.Insert Shift:=xlDown
Range("A90:D131").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("A7").Select
ActiveSheet.Protect "qwualpsf"
End Sub
nun möchte ich gerne, da es leicht zu einer Verwechslung kommen kann, das bevor der Befehl ausgeführt wird, so eine Art Warnmeldung eingeblendet wird mit dem Text:
Bist Du sicher das Du eine neue Seite einfügen willst?
Ist das realisierbar? Wenn ja, bitte ich Hilfe.
Danke, LG Christa