Ich benötige ein Makro welches die Zellen A2:A40;b2:b40;c2:c40 löscht
VOR dem Löschen soll eine Abfrage kommen "Möchten Sie die Felder wirklich LÖSCHEN" JA NEIN
Bei Ja Löschen; Bei Nein abbrechen
Kann mir jemand helfen
Vielen Dank im voraus
GERD
Sub wirklich_loeschen()
Dim iAntwort As Integer
iAntwort = MsgBox("Wirklich löschen?", vbYesNo, "Sicherheitsabfrage")
If iAntwort = vbNo Then Exit Sub
Range("A2:C40").ClearContents
End Sub