Office: von Userform zurück zum Aufruf mit einem Rückgabewert

Hi Leute,

ich hab hier ein kleines Problem, weiss aber nicht wie ich es lösen muss:

ich rufe aus einem sub das Userform mit

UserForm1.Show

auf. Dort wähle ich über eine Combobox einen String aus. Über einen OK-Button lese ich den String aus:

Private Sub CommandButton_ok_Click()
Dim entry As String
entry = ComboBox1.Text
End Sub

So und nu weiss ich nicht mehr weiter *frown.gif*

Wie übergeb ich den Wert 'entry' meinem aufrudenden sub und beende das Userform? Denn ich will ja mit dem ausgewählten String weiterarbeiten ....

Bitte Hilfe ! Ich hab schon eine Weile im Forum gesucht, aber nix spezielles gefunden (vieleicht falsche Suchworte angegeben ...)

Gruss

gonzo_mc_graw

:)

 

Hallo gonzo_mc_graw,

schau mal, ob Dir der Thread weiterhilft. In Deinem Fall wird ja dann tatsächlich ein Steuerelement angesprochen.

cu
myfake

 

Hallo myfake,

also wenn ich es richtig verstanden habe, muss ich 'entry' als globale Variable definieren, um den Wert weiterverwenden zu können.

Ok, jetzt hab ich aber noch das Problem zurück zu kommen. Denn, nach dem Klick auf den Ok-Button bleibt das Programm da stehen. Brauch ich da noch ein 'OnExit' oder so?

Gruss

gonzo_mc_graw

 

Hallo gonzo_mc_graw,

ja, so wie ich es bislang verstehe (ohne Code) mußt Du entry als Globale Variable definieren. Wie (und wo) hast Du sie denn definiert? Die Definition einer Globalen Variablen muß in einem "normalen" Modul geschehen (bspw. "Public entry as String").

Poste doch mal Deinen gesamten Code, oder besser noch lade die Userform (als Zip) hoch. Dann kann man sich viel besser ein Bild machen.

cu
myfake

 

Hallo,

eine Userform schliessen kannst du über Unload + Userformname.

zu dem anderen Problem noch ne Frage.

Du hast ne Prozedur aus der du die Userform öffnest. Dann bleibt der Code stehen und du willst das er nach dem Button_Click weiterläuft.

Ist das richtig?

 

Hallo Knee,

yep, genau *Smilie

Der User soll einen Wert auswählen, mit dem dann die Prozedur weiterarbeitet (Auswahl des Worksheets, Eintrag eines bestimmten Wertes in eine bestimmte Zelle)

gonzo_mc_graw

 

Hallo,

poste doch bitte mal ein wenig von dem Code den du verwendest.

Eine Idee wäre, per Prozedur die Userform zu öffnen, per ButtonClick die Ereignisprozedur auszulösen und die weiterverarbeitende Prozedur aufrufen mit Parameterübergabe.
Code:

Sowas meinst du nicht???

 

Hallo gonzo_mc_graw,

ich habe jetzt einmal die Variante von Knee (ich hoffe, dass ich sie richtig umgesetzt habe!) und von mir angehängt.

Die Tabelle1 sieht so aus:

Des weiteren habe ich 3 Schaltflächen eingebunden.
Code:

 

Hallo miteinander,

sorry, dass es so lang gedauert hat, aber mir ist ein Meeting dazwischen gekommen *Genervt

hier mal der Code:

Prozedur, die ich via Kontextmenü aufrufe:
Code:

Das ist der Code im UserForm1:
Code:

Knee, leider hat das mit deinem Unload-Tip nicht geklappt *frown.gif*

Da kommt:
Laufzeitfehler ' 361':
Objekt kann weder ge- noch entladen werden

aber ich hab was in dem Code von myfake gefunden:
anstelle von Unload:
Code:

jetzt bin ich wieder in meiner aufrufenden Prozedur gelandet. *Smilie

Myfake, das mit der globalen Variable klappt auch noch nicht. Sie ist nämlich in der Prozedur wieder leer ... warum?

Gruss

gonzo_mc_graw

P.S.: Noch zu der Frage von Knee: "Sowas meinst du nicht???":
Ich hinterlege ungern komplette Codeblöcke in GUI's - find ich unschön *wink.gif*

 

Hallo gonzo,

kann ich nicht nachvollziehen. Bei mir bleibt der Wert erhalten. Hast Du die Variable in einem normalen Modul auch so definiert ... Public entryUF2 As String?

cu
myfake

 

Hallo myfake,

ja - siehe Code in der Prozedur.

Kann es sein, dass ich das Exceldokument schliessen und wieder öffnen muss, um die globale Variable zu aktivieren?

gonzo_mc_graw

 

Problem gefunden!

es lag an dem 'Option Explicit' - auskommentiert - ging *biggrin.gif*

Yep, somit alles gelöst !!!

Danke vielmals für die prompte und schnelle Hilfeleistungen.

Grüsse

gonzo_mc_graw

 

Hallo gonzo_mc_gr

es lag nicht am Option Explicit sonder Du hast eine Variable verwendet die nicht Definiert war.

Auf Option Explicit sollte nicht verzichtet werden.




Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.

 

Hallo Hajo,

wie, Variable nicht definiert *confused.gif* ? Sie ist im Modul doch definiert? Wo muss ich was denn noch eintragen?

Dann noch eine Verständnisfrage:
Dieses 'Option Explicit' taucht immer wieder auf, aber eine Erklärung dafür hab ich bis jetzt noch nicht darüber gelesen (ok, ich hab auch nicht extra danach gesucht, weil ich's 'nur' im Forum gesehen hab, während in den Büchern dies noch nicht aufgetaucht ist und alles auch ohne funktioniert hat ...).

Grüsse

gonzo_mc_graw

 

Hallo gonzo,

in welchen Büchern hast Du denn geschaut? *wink.gif* Du mußt unter so etwas wie "Variablen Deklaration erzwingen" nachschlagen (bspw. bei Bernd Held - VBA Kompendium: S. 65).

cu
myfake