Kombination aus End und Stop

Hallo Zusammen!
ich habe am Anfang ein UserForm mit dem ich ein Ordnerverzeichnis erstelle und einen Pfad definiere. Hier ist der Pfad wie folgt definiert:
'--------------------
Option Explicit
Public pfad As String

Sub ordnererstellen() ' dieses habe ich vereinfacht
pfad = "U:\Beispiele\"
End Sub

'--------------------
in einem weiteren Marko führe ich eine Prüfung aus, ob die Zelle leer ist:
'--------------------

Sub pruefung()
Dim Zelle As Range
Dim a As String
a = "='Eingabe'!$F$9,'Eingabe'!$F$12, 'Eingabe'!$F$16, 'Eingabe'!$F$17"
For Each Zelle In Range(a)
If Zelle = "" Then
Zelle.Interior.ColorIndex = 9 ' wird rot markiert
? '

'--------------------
Und genau an der markierten Stelle liegt das Problem. Sobald die Zelle leer ist soll alles gestoppt werden, aber die Public-Variable Pfad nicht gelöscht werden!

Die End-Fkt stoppt alles, aber löscht die Variablen, springt nicht in den VBA-Code

Die Stop-Fkt stoppt alles, löscht KEINE Variablen, aber springt in den VBA-Code

Ich brauche eine Funktion, die alles stoppt, aber keine Variable löscht und NICHT in den VBA-Code springt. Gibt es sowas?
Vielen Dank für Eure Hilfe!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Start() Dim blnEXIT As Boolean 'Code Makro1 blnEXIT If blnEXIT Then MsgBox "Abbruch Start" Exit Sub Else MsgBox "Restcode Start" End If 'weiterer Code End Sub Sub Makro1(blnEXIT As Boolean) 'Code Makro2 blnEXIT If blnEXIT Then MsgBox "Abbruch Makro1" Exit Sub Else MsgBox "Restcode Makro1" End If 'weiterer Code End Sub Sub Makro2(blnEXIT As Boolean) 'Code If Range("A1") = "" Then MsgBox "A1 ist leer, Abbruch" blnEXIT = True Exit Sub End If MsgBox "In A1 steht " & Range("A1") End Sub

…euer Streit eigentlich nur VBA-typisch und im Grunde genommen gegenstandslos ist, Rudi & Daniel,
wenn man mal über den „VBA-Tellerrand“ hinausschaut. In bspw J[ava]Script ist alles Function und man kann festlegen, ob die Function einen Wert (und welchen) zurückgibt oder das keinesfalls tun soll.
Aber auch in VBA ist das ein „Streit um Kaisers Bart“, denn es können einerseits Werte von SubProz zu SubProz per Parametrierung durchgereicht wdn (wie Rudi ja schon anmerkte) und andererseits können Fktt einen zurückgeben. In beiden Fällen kann ein (meinethalben) Boolescher Wert den Erfüllungsstand melden, wie es auch einige Standard-VBA-Methoden vorexzerzieren.
Dabei muss nur beachtet wdn, dass …
1. …eine SubProz, die nicht-optionale oder nicht Variant-Parameter verlangt, nicht im MakroAssi angezeigt wird, weil sie nicht direkt, sondern nur aus einer VBA-Proz aufgerufen wdn kann;
2. …eine FktProz entweder Private sein oder in einem Option Private Module stehen sollte, wenn sie nicht für den Einsatz in ZellFmln bestimmt u/o geeignet ist.
Ansonsten will ich mal vermuten, dass sich Rudi in seiner AW auch auf die Null(-Gravity) im Erdmittelpkt bezieht… ;-)
Gruß Luc :-?
Besser informiert mit …

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Kombination aus End und Stop

18 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread