Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
15.10.2025 13:31:47
WENN Formel mit zwei Bedingungen über 4 Spalten...
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
1948to1952
1948to1952
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Auswerten, ob User Worksheets(i).Delete abgebrochen hat

Forumthread: Auswerten, ob User Worksheets(i).Delete abgebrochen hat

Auswerten, ob User Worksheets(i).Delete abgebrochen hat
09.10.2023 10:43:05
Reiner
Hallo,
ich wollte (VBA) prüfen, ob der User dem Löschen eines Sheets NICHT zugestimmt hat, um dann den Verlauf zu ändern:
Wie komme ich an den Rückgabecode?
Ist wahrscheinlich total simpel, aber ...

Besten Dank

Reiner
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Auswerten, ob User Worksheets(i).Delete abgebrochen hat
09.10.2023 11:20:46
daniel
Hi

Wenn der Anwender auswählen können soll, ob das Blatt gelöscht wird, würde ich ihn zuerst fragen selber fragen.

Die Rükrfrage des Systems kannst du dann ausschalten 

Select Case Msgbox("Löschen?", vbYesNo + vbQuestion)

    Case vbYes

        Application.DisplayAlerts = False

           Sheets(i).delete

        Application.DisplayAerts = True

    Case vbNo

       Hier der Code, wenn nicht gelöscht werden soll

End Select.


Wenn der Anwender nicht gefragt werden soll, dann nimm nur das DisplayAlerts= False vor dem Löschen.

Gruß Daniel
Anzeige
AW: Auswerten, ob User Worksheets(i).Delete abgebrochen hat
09.10.2023 11:07:31
onur 
    Dim anz

    anz = Worksheets.Count

    Sheets(3).Delete

    If anz = Worksheets.Count Then MsgBox "Wurde abgebrochen"
AW: Auswerten, ob User Worksheets(i).Delete abgebrochen hat
09.10.2023 11:14:28
Reiner
Danke an euch.
Hat geklappt.

Reiner
(halt manchmal ein wenig um die Ecke denken 😂)
Gerne !
09.10.2023 11:19:31
onur
Anzeige
Das geht auch einfacher.
09.10.2023 13:16:06
daniel
Die meisten Anweisungen sind eigentlich Funktionen, deren Rückgabewert darüber informiert, ob die Anweisung korrekt ausgeführt werden konnte oder nicht.
Daher gehts auch ganz variablenfrei: 

If Sheets(i).Delete then

    Msgbox "gelöscht"

Else

    Msgbox "abgebrochen"

End if

es ist hier nur etwas ungewohnt, dass die if-Abfrage gleichzeitig eine Befehlsausführung ist.
Gruß Daniel
Anzeige
;

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