Supportnet / Forum / Tabellenkalkulation

Guten Morgen , ich habe mal wieder ein kleines VBA Problem , ist aber auch schwer , und zwar soll das folgende Makro vor dem Löschen eine Sicherheitsabfrage starten. Kann mir da jemand helfen? Sub Neu() MsgBox " Werte wirklich löschen ?", vbYesNo Wie funktioniert die Abfrage “ja“ dann Löschen oder “nein“ dann Abbrechen? Geht das überhaupt mit einer MsgBox ? Range("D6:I13").Select Selection.ClearContents Range("C15").Select Selection.ClearContents Range("j15").Select Selection.ClearContents Range("m13").Select Selection.ClearContents Range("A22:g37").Select Selection.ClearContents End Sub

Hallo Heiner,

so sollte es gehen:

Sub Neu()
Ausgabe = MsgBox("Werte wirklich löschen?", vbYesNo)
If Ausgabe = vbNo Then
MsgBox "Löschvorgang wurde abgebrochen"
Exit Sub
ElseIf Ausgabe = vbYes Then
ActiveSheet.Range("D6:I13").ClearContents
Range("C15").ClearContents
Range("j15").ClearContents
Range("m13").ClearContents
Range("A22:g37").ClearContents
End If
End Sub

Moin Heina,

und hier kommt mein Lösungsvorschlag:

Sub Neu()
Select Case MsgBox(" Werte wirklich löschen ?", vbYesNoCancel, "Sicherheitsabfrage")
   Case 6 'Schaltfläche Ja
     Range("D6:I13").Select
     Selection.ClearContents
     Range("C15").Select
     Selection.ClearContents
     Range("j15").Select
     Selection.ClearContents
     Range("m13").Select
     Selection.ClearContents
     Range("A22:g37").Select
     Selection.ClearContents
  Case 2 'Schaltfläche Abbruch
          Exit Sub
        End Select
End Sub

Beim Ausführen des Makros erscheint eine MessageBox, die Deinen Text und die Tasten Ja, Nein und Abbruch enthält. Wenn Du auf Ja klickst, wird das Makro ausgeführt. Bei Nein und Abruch wird das Makro beendet

Ich hoffe, meine Anweisung ist was für Dich.

MfG,
coros
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Hallo Stille Quelle, hallo coros,

besten Dank für eure Hilfe , ich konnte beide Lösungen sehr gut gebrauchen.

Tschüß bis bald

Hi Heina,

freut mich, dass Dich die beiden Anweisungen weitergebracht haben. Danke auch für die Rückmeldung.

MfG,
coros
^{Jeder macht was er will, keiner macht was er soll, aber alle machen mit.}

• VBA und "-00"
• Problem im VBA-Makro mit Summenprodukt-Formel
• VBA Problem in Excel
• VBA-Problem
• VBA + schleifen-problem