Ich habe ein Problem, bei dem ich aktuell nicht weiter komme.
Ich deklariere in einer Userform eine Variable als Public.
Wenn ich aber diese Variable in einer anderen Userform aufrufe ist sie leer.
Was mache ich falsch?
Userform1
( Textbox2 - Ja, ich übergebe den Wert auch in einer versteckten Textbox zum Testen. Das soll aber eigentlich so nicht sein.)
Option Explicit
Public linecodexyz As String
Public Sub CommandButton1_Click()
Dim linecodexyz As String
Dim foundPN As Range
Set foundPN = Range("B:B").Find(UserForm1.TextBox1.Value)
linecodexyz = foundPN.Address
' Wiedergabe der Zeilennummer mit : foundPn.Address
If Not foundPN Is Nothing Then
MsgBox linecodexyz
'UserForm6.TextBox3 = UserForm1.TextBox1
TextBox2 = foundPN.Address
UserForm6.Show
UserForm1.TextBox1 = ""
UserForm1.TextBox2 = ""
' Unload UserForm1
Else
MsgBox "Bitte prüfen Sie Ihre Eingabe. Diese Personalnumer existiert leider nicht"
TextBox1.Value = ""
End If
End Sub
Public Sub CommandButton2_Click()
Unload Me
End Sub
Userform6 - in diese Userform sollen die DatenDie Übergabe der Textboxen funktioniert;
die Übergabe der variable leider nicht
Public Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
UserForm6.TextBox3 = UserForm1.TextBox1
UserForm6.TextBox5 = UserForm1.TextBox2
With TextBox1
.Value = Format(Now, "dd.mm.yyyy")
End With
End Sub
Public Sub CommandButton1_Click()
MsgBox linecodexyz
End Sub