Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1024to1028
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Funktionen beenden

Funktionen beenden
26.11.2008 11:20:00
Joachim
Hi,
brauche doch noch mal hilfe:
Ich habe auf meiner userform einen Button, der führt verschiedene Funktionen aus, die in einem Modul sind:

Private Sub CommandButton5_Click()
Call Kopieren
Call Prüfen
Call Formatieren
Call Daten_sperren
End Sub


So, und nun zum Problem, wenn zB. in der Funktion Call Prüfen ein Fehler aufkommt und ich die Funktion mit EXIT SUB verlassen will, dann wird die funktion nicht mehr weiter ausgeführt , aber die restlichen Funktionen PRÜFEN, FORMATIEREN und DATEN_SPERREN werden noch weiter ausgeführt.
Wie unterbinde ich das ausführen der nachfolgenden Funktionen, wenn ich irgendwo mit EXIT SUB aussteige. Wie kann ich bei einem EXIT SUB das CommandButton5_Click() beenden.
Hoffe , ihr versteht , was ich meine.
Danke
Joachim

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Funktionen beenden
26.11.2008 11:24:00
Andi
Hi,
beende das ganze mit End statt mit Exit Sub.
Schönen Gruß,
Andi
AW: Funktionen beenden
26.11.2008 11:30:22
Rudi
Hallo,
in dem Modul
Public blnError as Boolean
Die Var setzt du auf True, falls ein Fehler auftritt.

Sub Kopieren()
On Error GoTo ErrHandler
'Code
ErrHandler:
blnError = True
End Sub


Private Sub CommandButton5_Click()
if Not blnError Then Call Kopieren
if Not blnError Then Call Prüfen
if Not blnError Then Call Formatieren
if Not blnError Then Call Daten_sperren
BlnError =False
End Sub


Gruß
Rudi

Anzeige
Danke oT
26.11.2008 15:08:37
Joachim

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige