Nochmal eine wahrscheinlich für Euch ziemlich einfache Frage.
Ich habe in einer Userform diverse Werte über Textboxen übergeben bekommen.
Wie kann ich nun diese Werte in ein anderes Modul zum Rechnen einfügen?
Vielen Dank
Marco
Private Sub MyModul()
msgbox(userform1.textbox1)
msgbox(userform1.textbox2)
msgbox(userform1.textbox3)
End Sub
Public Sub MyModul(a as integer, b as integer, c as integer, d as integer...)
'Mach was
End Sub
Bei der Menge der Werte dann aber vielleicht in der Userform besser ein Array nutzen:
dim a(10) as integer
a(1) = CInt(Userform1.TextBox1)
a(2) = CInt(Userform1.TextBox2)
a(3) = CInt(Userform1.TextBox3)
...
und dann
call MyModul(a)
und im Modul dann
Public Sub MyModul (a() As Integer)
End Sub
Entladen kannst du die Userform nach dem Call-Statement mit dem Befehl
Unload Me
Und ... das Forum ist ja zum fragen da - also kein Problem!
Public Sub MyModul()
MsgBox (UserForm1.TextBox1)
End Sub