AW: Wie Abfrage, ob wirklich gelöscht werden soll?
14.01.2005 14:47:14
Dennis
Hallo Jan,
dies ist mein Makro:
Sub ko16loesch()
' ko16loesch Makro
' Makro am 12.12.2003 von dennis aufgezeichnet
Range("AA3:AD18,AK1:BP3").Select
Range("AO3").Activate
ActiveWindow.SmallScroll ToRight:=-35
Range("AA3:AD18,AO3:AO17,AQ3:AQ17").Select
Range("AQ3").Activate
Selection.ClearContents
Range("AA21").Select
End Sub
Wie sieht dann das fertige Makro aus, so wie du es beschieben hast?
So?
Dim Mldg, Stil, Titel, Hilfe, Ktxt, Antwort, Text1
Mldg = "Möchten Sie wirklich löschen ?" ' Meldung definieren.
Stil = vbYesNo + vbCritical + vbDefaultButton2 ' Schaltflächen
' definieren.
Titel = "Löschabfrage" ' Titel definieren.
Antwort = MsgBox(Mldg, Stil, Titel,,) ' Meldung anzeigen.
If Antwort = vbYes Then ' Benutzer hat "Ja" ' gewählt.
Sub ko16loesch()
' ko16loesch Makro
' Makro am 12.12.2003 von dennis aufgezeichnet
Range("AA3:AD18,AK1:BP3").Select
Range("AO3").Activate
ActiveWindow.SmallScroll ToRight:=-35
Range("AA3:AD18,AO3:AO17,AQ3:AQ17").Select
Range("AQ3").Activate
Selection.ClearContents
Range("AA21").Select
End Sub
Else ' Benutzer hat "Nein"
' gewählt.
Text1 = "Nein" ' Operation ausführen.
End If
Hoffe, das du mir weiter hilfst.
MfG, Dennis