Variablen von UserForm an Modul übergeben
UserForm
wie lässt sich die Übergabe von Variablen von einem UserForm an ein Modul darstellen?
Ich habe ein UserForm mit 7 Felder, in denen Zahlen eingegeben werden. Mit dem Klickt auf den Button sollen die 7 Zahlen weiterverwendet werden in einem Modul. Mein aktueller Code für den Button sieht wie folgt aus:
Public Sub CommandButton1_Click()
liqsum = liq1.Value * 1 + liq2.Value * 1 + liq3.Value * 1 + liq4.Value * 1
altsum = alt1.Value * 1 + alt2.Value * 1 + alt3.Value * 1
Unload Me
End Sub
Sehr stark gekürzt sieht das Modul so aus:
Option Explicit
Dim tabellenblattauf, tabellenblatt, tabellenblattout, ... As String
Dim liq1, liq2, liq3, liq4, liqsum, alt1, alt2, alt3, altsum, ... As Integer
Sub aufbereiten()
tabellenblatt = "Input"
tabellenblattout = "Output"
tabellenblattauf = "Aufbereitet"
...
Load UserForm1
UserForm1.Show
...
liq = liq + liqsum
alt= alt + altsum
...
End Sub
Das Modul läuft richtig durch und zieht sich auch alle Daten nur nicht die Datem aus dem UserForm. Hat jemand eine Idee, wie ich da die Variablen richtig übergeben muss?
Vielen Dank und viele Grüße
Moe
Anzeige