Globale Variablen in Userform und Modul
29.03.2019 13:27:27
Johann
mich interessiert, ob es möglich ist eine globale Variable in einer Userform zu definieren, dessen Wert dann in einem Modul verwendet werden kann.
Hier ein Beispiel für die Userform:
Public TextOutput As String
Private Sub Label1_Click()
End Sub
Private Sub Text1_Change()
End Sub
Private Sub UserForm_Click()
End Sub
Private Sub CommandButton2_Click()
ActiveSheet.Range("A1:O9999").ClearContents
' ActiveSheet.Range("B2").Value = Einlesen.Text1
TextOutput = Einlesen.Text1
ActiveSheet.Range("C2").Value = TextOutput
End Sub
Private Sub CommandButton1_Click()
Unload Einlesen
Call output(TextOutput)
End Sub
Und hier für das Modul
Sub output(TextOutput)
TextShow = TextOutput
' TextShow = ActiveSheet.Range("B2").Value
ActiveSheet.Range("D2").Value = TextShow
End Sub
Aber der direkte Weg wäre der elegantere.
Für eine Lösung wäre ich dankbar.
Viele Grüße
Johann Herlyn