MsgBox vbXesNo
02.06.2005 16:15:18
Gregor
Ich will mit folgendem MsgBox Befehl eine Zeile löschen:
Sub löschen()
Dim Zeile as Integer
Zeile = ActiveCell.Row
MsgBox Prompt:="Wollen Sie die Zeile " & Zeile _
& vbNewLine & "wirklich löschen?", _
Title:=" Bestätigung", _
Buttons:=vbYesNo
If vbYes Then ActiveCell.EntireRow.Delete
End Sub
Wie fange ich den Wert 6 oder 7 vom Button Yes oder No auf, um die Zeile zu löschen? Ich versuchte verschiedenen Varianten, ohne Erfolg
Gruss gregor
Anzeige