Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
976to980
976to980
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Abfrage box: Wirklich löschen erscheinen lassen

Forumthread: Abfrage box: Wirklich löschen erscheinen lassen

Abfrage box: Wirklich löschen erscheinen lassen
08.05.2008 14:08:00
vux
Hallo,
ich habe einen Button, zeilen löschen
Nachdem dieser geklickt ist soll eine Sicherheits abfrage kommen: "Sind sie sicher..."
Wenn ja geklickt wird soll der Rest der Sub laufen, sonst abgebrochen werden.
Ich weiß nicht wie man diese Box aufrufen kann und den Userinput (ja/nein) weiterverwendet (für if, then...)
Danke für die Hilfe!

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Abfrage box: Wirklich löschen erscheinen lassen
08.05.2008 14:13:00
Hajo_Zi
Hallo Nick,

Option Explicit
Sub Test()
If MsgBox("Wollen Sie den Auftrag wirklich löschen.", vbYesNo + vbQuestion, "Löschabfrage ?" _
) = vbYes Then
MsgBox "Ja"
Else
MsgBox "Nein"
End If
End Sub



Anzeige
AW: Abfrage box: Wirklich löschen erscheinen lassen
08.05.2008 14:13:00
Oberschlumpf
Hi vux
Lass dem Klick auf den Button diesen Code folgen:

Dim lbMsg As Byte
lbMsg = MsgBox("Wollen Sie wirklich löschen?",vbYesNo,"Frage")
If lbMsg = vbYes Then
'hier dein Code zum Löschen
End If


Hilft das?
Ciao
Thorsten

Anzeige
AW: Abfrage box: Wirklich löschen erscheinen lassen
08.05.2008 14:13:00
Rudi
Hallo,

Sub loeschen
if msgbox("Wirklich?",vbyesno)=vbyes then
'löschcode
end if
End Sub


Gruß
Rudi

AW: Abfrage box: Wirklich löschen erscheinen lasse
08.05.2008 14:17:00
Reinhard
Hi Vux,
aus der Vba-Hilfe:

Sub tt()
Dim Mldg, Stil, Titel, Hilfe, Ktxt, Antwort, Text1
Mldg = "Möchten Sie fortfahren ?"    ' Meldung definieren.
Stil = vbYesNo + vbCritical + vbDefaultButton2    ' Schaltflächen
' definieren.
Titel = "MsgBox-Demonstration"    ' Titel definieren.
Antwort = MsgBox(Mldg, Stil, Titel, Hilfe, Ktxt)    ' Meldung anzeigen.
If Antwort = vbYes Then    ' Benutzer hat "Ja"
' gewählt.
Text1 = "Ja"    ' Operation ausführen.
Else    ' Benutzer hat "Nein"
' gewählt.
Text1 = "Nein"    ' Operation ausführen.
End If
End Sub


Gruß
Reinhard

Anzeige
AW: Abfrage box: Wirklich löschen erscheinen lassen
08.05.2008 14:18:00
UweD
Hallo
so....

Sub Box()
Dim JaNein
JaNein = MsgBox("Wollen Sie wirklich löschen", vbYesNo + vbQuestion, "Zeilen weg")
If JaNein = vbNo Then
MsgBox "nein: wurde gewählt"
Exit Sub
End If
'hier ginge es weiter
MsgBox "ja: wurde gewählt"
End Sub


Gruß UweD

Anzeige
AW: Abfrage box: Wirklich löschen erscheinen lassen
08.05.2008 15:15:02
vux
Hallo Jungs,
vielen Dank für die schnellen Antworten!!!
Das wird klappen...
Grüße
;
Anzeige
Anzeige

Infobox / Tutorial

Abfragebox zur Bestätigung vor dem Löschen in Excel VBA

Schritt-für-Schritt-Anleitung

  1. Öffne Excel und gehe in den VBA-Editor:

    • Drücke Alt + F11, um den VBA-Editor zu öffnen.

  2. Füge ein neues Modul hinzu:

    • Rechtsklicke auf "VBAProject (DeinWorkbookName)" > Einfügen > Modul.

  3. Kopiere den folgenden Code in das Modul:

    Sub LoeschenMitAbfrage()
   Dim lbMsg As Byte
   lbMsg = MsgBox("Wollen Sie wirklich löschen?", vbYesNo + vbQuestion, "Löschabfrage")
   If lbMsg = vbYes Then
       ' Hier dein Code zum Löschen einfügen.
       MsgBox "Die Zeilen wurden gelöscht."
   Else
       MsgBox "Löschen abgebrochen."
   End If
End Sub

  4. Schließe den VBA-Editor:

    • Klicke auf Datei > Schließen und zurück zu Microsoft Excel.

  5. Füge einen Button hinzu:

    • Gehe zu Entwicklertools > Einfügen > Schaltfläche (Formularsteuerung).
    • Ziehe die Schaltfläche auf das Arbeitsblatt.

  6. Verknüpfe die Schaltfläche mit deinem Makro:

    • Wähle dein Makro LoeschenMitAbfrage aus der Liste aus.

Häufige Fehler und Lösungen

  • Fehler: "Komponente nicht gefunden":

    • Stelle sicher, dass du die Entwicklertools aktiviert hast. Gehe zu Datei > Optionen > Menüband anpassen und aktiviere "Entwicklertools".

  • Fehler: Makro läuft nicht:

    • Überprüfe, ob die Makros in den Excel-Optionen aktiviert sind (Datei > Optionen > Sicherheitscenter > Einstellungen für das Sicherheitscenter > Makroeinstellungen).

Alternative Methoden

  • Einfache Nutzung der Application.InputBox: 
    Sub UserInputAbfrage()
   Dim userInput As String
   userInput = Application.InputBox("Geben Sie 'Ja' ein, um zu löschen:", "Löschbestätigung")
   If userInput = "Ja" Then
       ' Hier dein Code zum Löschen einfügen.
   Else
       MsgBox "Löschen abgebrochen."
   End If
End Sub

Praktische Beispiele

  • Beispiel: Löschen von Zeilen basierend auf Benutzerantwort: 
    Sub ZeilenLoeschen()
   Dim lbMsg As Byte
   lbMsg = MsgBox("Wollen Sie die Zeilen 2 bis 5 löschen?", vbYesNo + vbQuestion, "Löschabfrage")
   If lbMsg = vbYes Then
       Rows("2:5").Delete
       MsgBox "Zeilen 2 bis 5 wurden gelöscht."
   Else
       MsgBox "Löschen abgebrochen."
   End If
End Sub

Tipps für Profis

  • Verwende benutzerdefinierte Meldungen:

    • Du kannst die Meldung und den Titel der MsgBox anpassen, um die Benutzererfahrung zu verbessern.

  • Füge Logging hinzu:

    • Du kannst eine Protokolldatei erstellen, um alle Löschvorgänge zu dokumentieren. Das erhöht die Nachvollziehbarkeit.

FAQ: Häufige Fragen

1. Wie kann ich die Abfragebox anpassen?
Du kannst den Text in der MsgBox ändern, um spezifische Fragen zu stellen oder weitere Informationen zu geben.

2. Funktioniert dieser Code in Excel 2016?
Ja, der Code funktioniert in Excel 2016 und anderen Versionen, die VBA unterstützen.

3. Kann ich mehrere Abfragen nacheinander erstellen?
Ja, du kannst mehrere MsgBox-Abfragen in einer Subroutine verwenden, um verschiedene Entscheidungen zu treffen, bevor du einen Löschvorgang durchführst.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige