ich hab ein makro erstellt dass den inhalt einer tabelle löscht ich möchte nur gerne dass es, bevor es die aktion ausführt, eine abfrage einblendet (möchten sie wirklich löschen blabla Ja-Nein)
kann mir jemand sagen wie dass geht???
gruß
Andi
in´s Makro eine MsgBox einbauen, siehe auch OH bei VBA (Alt+F11)
gruss Klaus
MsgBox "möchten Sie diese Vergabeliste wirklich löschen?", 4, "Wirklich löschen?"
Sheets("Vergabeliste").Select
Range("A10").Select
Selection.End(xlDown).Select
ActiveCell.Offset(-3, 0).Select
ActiveCell.Columns("A:R").Select
Range(Selection, Selection.End(xlUp)).Select
Range(Selection, Selection.End(xlUp)).Select
Selection.Offset(3, 0).Select
Selection.ClearContents
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Range("A1").Select
Problem ist aber dass es egal ist ob ich ja oder nein klicke die tabelle wird trotzdem gelöscht.
weißt du weiter??
gruß andi
der Fehler liegt in der ersten Zeile:
MsgBox "möchten Sie diese Vergabeliste wirklich löschen?", 4, "Wirklich löschen?"
es muß z.B. heissen:
i = MsgBox "möchten Sie diese Vergabeliste wirklich löschen?", 4, "Wirklich löschen?"
if i = 6 then ' Schaltfläche Ja wurde gedrückt....
++++ Dein Code +++
end if
Dann klappts.
Andreas