AW: Werte von Userform in Macro übergeben
25.05.2007 17:14:00
Userform
Hallo Bruno,
ein Beispiel: eine Userform mit zwei Textboxen (TexBox1, TextBox2) und zwei Buttons (OKButton, AbbrechenButton).
Dann is das UF diesen Code:
Option Explicit
Dim ok As Boolean
Public Function HoleWerte(t1 As String, t2 As String) As Boolean
Me.Show
t1 = TextBox1
t2 = TextBox2
HoleWerte = ok
Unload Me
End Function
Private Sub AbbrechenButton_Click()
ok = False
Me.Hide
End Sub
Private Sub OKButton_Click()
ok = True
Me.Hide
End Sub
'falls das Schließkreuz der UF gedrückt wird:
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then
Cancel = True
Me.Hide
End If
End Sub
In einem normalen Modul dann als Demonstration dieser Code:
Sub test()
Dim a As String, b As String
If UserForm1.HoleWerte(a, b) Then 'Name der Userform anpassen!
MsgBox a & ", " & b
Else
MsgBox "Benutzerabbruch"
End If
End Sub
Gruß Matthias