---

Hallo,

befasse mich das erste mal mit Userform mittels VBA und scheitere an Grundlagen :-(

Hier mein Code:

Code:

---

Sub CATMain()

Dim Param As Integer

UserForm1.Show

MsgBox ("Der Wert für Param ist " & Param & "mm.")

End Sub

------------------------------------
'Userform1:

Sub CommandButton1_Click()

Param = CInt(TextBox1.Text)

MsgBox ("Der Wert für Param ist " & Param & "mm.")

UserForm1.Hide

End Sub

---

In der ersten MsgBox des Userform1 sehe ich, dass der Parameter richtig eingelesen ist.
In der zweiten MsgBox des CATMain ist der Wert aber immer Null.
Wieso? Wieso bleibt der Parameter nicht erhalten?

Danke und Gruß
Kaeja

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Servus
Bitte Systeminfo ausfüllen.
Liegt wohl daran dass deine Variable nicht global definiert wurde. Somit ist die Variabel nur in einer Subroutine/Funktion verfügbar.
Ich empfehle dir dich mit den Grundlagen von VB auseinanderzusetzen, dann wir dir einiges klarer.

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Moin Bernd,

leider komme ich ja genau da nicht weiter. Sobald ich versuche die Variable in CATMain() als Public, Private oder static zu definieren bricht das Programm mit dem Hinweis auf "Invalid attribute in Sub, Function, or Property" ab.
Bisher habe ich als Einstiegshilfe http://de.wikibooks.org/wiki/Visual_Basic_6:_Variablen genutzt. Aber es hat einfach noch nicht Klick gemacht um die Beispiele zu transferieren. Wenn Du mir weitere Einstiegsseiten nennen kannst, bin ich Dir dankbar.

Gruß
kaeja

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Kaeja,
es gibt viele verschiedene Möglichkeiten, um Variablen zu übergeben, duchzuschleusen oder verfügbar zu machen.

Hier mal 2 Beispiele:

Beispiel 1:
Du hast eine Mainroutine und übergibst die benötigten Variablen alle an die Subroutinen via ByVal oder ByRef. Evtl. abgeänderte Werte oder Ergebnisse werden dann via Function zurück an die Mainroutine gegeben.

Beispiel 2:
Du definierst globale Variablen, die allerdings außerhalb der Routine definiert werden müssen. Du musst diese also als Public außerhalb der Sub oder Funktion definieren.

z.B.

Code:

---

Option Explicit

Public Param      As String

Sub CATMain()
    Param = "Ich bin ein öffentlicher String."   
End Sub

---

------------------
MFG
Rick Schulz

Nettiquette (CAD.de)  -  Was ist die Systeminfo?  -  Wie man Fragen richtig stellt.  -  Unities

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke, das Detail hatte ich übersehen.

Gruß
kaeja

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Warum machst Du nicht einfach:

Code:

---

call MsgBox ("Der Wert für Param ist " & Userform1.TextBox1.Text & "mm.")

---

------------------
Mit freundlichen Grüßen,
Henry Schneider
alias Lila

Es gibt einen ewigen Wettkampf zwischen der Natur und den Ingenieuren:
Die Ingenieure versuchen, immer idioten-sicherere Systeme zu bauen,
die Natur versucht, immer bessere Idioten zu bauen

Xing

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Weil mehrere Parameter in dem UserForm eingelesen werden.
Die MsgBox habe ich nur zur Überprüfung genutzt.

Gruß
kaeja

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Und?
Das Verfahren ist doch analog dazu.

------------------
Mit freundlichen Grüßen,
Henry Schneider
alias Lila

Es gibt einen ewigen Wettkampf zwischen der Natur und den Ingenieuren:
Die Ingenieure versuchen, immer idioten-sicherere Systeme zu bauen,
die Natur versucht, immer bessere Idioten zu bauen

Xing

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hmm, dann habe ich Deinen Vorschlag noch nicht ganz verstanden.

Für jeden Parameter eine solche Zeile schreiben?

Code:

---

Param1 = Userform1.TextBox1.Text

---

Zuvor das Userform nur einmal mit SHOW und HIDE aufrufen/befüllen und trotzdem kann ich auf die Parameter zurückgreifen?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Sollte funktionieren. Solange die UserForm nicht mit einem Unload beendet wird, sollten die Controls im RAM liegen und ihre Parameter über die Funktionen zugänglich sein.

Wenn Du die Parameter öfter verwendest, solltest Du sie natürlich lokal in einem anderen Parameter unterbringen. Nehme an Du führst Berechnungen durch, wegen des Casts auf Integer.

Ich kann natürlich nie ausschließen, dass ich mich irre. :-) - gebe ja auch nur alles aus meinen Gedanken her und gebe Denkanstöße, also habe es jetzt nicht ausprobiert, das wäre dann Dein Part. :-)

------------------
Mit freundlichen Grüßen,
Henry Schneider
alias Lila

Es gibt einen ewigen Wettkampf zwischen der Natur und den Ingenieuren:
Die Ingenieure versuchen, immer idioten-sicherere Systeme zu bauen,
die Natur versucht, immer bessere Idioten zu bauen

Xing

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP