nächstes »

[globi43]

Da ich noch nicht lange auf VB arbeite habe ich schon wieder eine Frage
Wie rufe ich ein Formular in einem Modul auf also auf Codebasis.
Und stimmt es das ich mit einem Formular keinen Rückgabewert zurücknehmen kann?

[grandslam]

Code:

Load Form1
Form1.Show

Da hast du recht, jedenfalls nicht so wie bei einer Funktion.
Du kannst jedoch die Eigenschaft Tag eines Formulars dazu verwenden.
Wenn du erreichen willst, das dein Code erst weiterverarbeitet wird, wenn das Formular geschlossen wird, muss du beim anzeigen des Formulars es als Modales deklarieren:

Code:

' Code um das Formular zu laden und öffnen
Load Form1
Form1.Show vbModal

' Nach z.B. einer Eingabe in das  Formular,
' das Formular nur verstecken mit
Form1.Hide

Danach gehts erst im Code wo du die Funktion "Form1.Show vbModal" aufgerufen hast weiter.[/quote]

[globi43]

Ok hab das ausprobiert aber nicht so richtig verstanden.
Ich habe in meiner UserForm diesen Code

Code:

Private Sub OKBut_Click()
If OptionButton1.Value Then
   typ = 1
End If

If OptionButton2.Value Then
   typ = 2
End If

If OptionButton3.Value Then
   typ = 3
End If

If OptionButton4.Value Then
   typ = 4
End If

UserForm1.Hide
End Sub

Nun möchte ich das in meinem Modul für typ die richtige Nummer habe .
Helft mir wenn ich etwas falsch verstanden habe Greez

[grandslam]

So viel ich noch weis ist ein UserForm ein eigenes Steuerelement, aussert du hast es so genannt, dann ist es natürlich richtig.

Also erstens du kannst es vereinfachen, indem du den OptionButtons den selben Namen gibst und dan einfach die Buttons mit den Indexen 1-4 versiehst.

Code:

  ' Code in einem Modul oder andern Formular
  Load UserForm
  UserForm.Show vbModal
  For i = UserForm.OptionButton.LBound To UserForm.OptionButton.UBound
    If UserForm.OptionButton(i).Value Then
      typ = i
      Exit For
    End If
  Next i
  Unload UserForm

Code:

' Dein OK Button
Private Sub OKBut_Click()
  UserForm.Hide
End Sub

Unten angehängt noch ein Beispiel Projekt