MsgBox richtig einfügen!
08.02.2008 07:51:00
Frank
Brauche mal wieder Eure Hilfe.
Habe Hier einen Code der nicht richtig geht.
Ich möche über eine Schaltfläche die Daten aus den Zeilen löchen.
Bevor gelöcht wird muss aber zur Sicherheit die Abfrage mit einer MsgBox erfolgen.
Jetzt ist mein Problem das ich wenn ich auf die Schalfflächen Drücke alle Daten sofort gelöcht werden.
Das soll ja nicht sein,aber ich denke da mir fehlen noch ein paar Befehle.
Kann mir jemand diese Punkte einfügen?
Wenn ich Ja drücke werden die Inhalte gelöcht, das nein kann raus und wenn man auf Abbrechen geht,dann passiert nichts und die MsgBox schließt sich wieder.
Sage schon mal Danke im vorraus
Gruss
Frank
Private Sub CommandButton2_Click()
Dim msg As String, titel As String, reply As Integer
titel = "Daten Löchen"
msg = "Willst du die Daten wirklich Löchen!"
reply = MsgBox(msg, vbYesNoCancel + vbExclamation, titel)
Select Case reply
End Select
Sheets("Datensätze").Range("B2:Az13").ClearContents
Sheets("Datensätze").Range("B15:Az15").ClearContents
Sheets("Datensätze").Range("B21:Az22").ClearContents
With Sheets("Tagesstückzahl")
.Activate
End With
End Sub