UserForm wird erst beim zweiten Klick geschlossen?
07.05.2009 12:37:32
Selma
ich habe in einem UserForm das CommandButton1.
Der UserForm wird erst beim zweiten Klick geschlossen. Woran liegt das? Was muss ich ändern?
Private Sub CommandButton1_Click()
Dim Var1, Var2, Var3, Var4 As Variant
Var1 = UserForm1.TextBox1.Value
Var2 = UserForm1.TextBox2.Value
Var3 = UserForm1.TextBox3.Value
Var4 = UserForm1.TextBox4.Value
'die Werte werden zurückgeschrieben
Worksheets("Blatt 3").Cells(3, 3).Value = Var1
Worksheets("Blatt 3").Cells(3, 10).Value = Var2
Worksheets("Blatt 3").Cells(3, 14).Value = Var3
Worksheets("Blatt 3").Cells(3, 16).Value = Var4
'Auch hier Namen anpassen
Var1 = ""
Var2 = ""
Var3 = ""
Var4 = ""
Unload UserForm1
Cells(9, 1).Select
End Sub
Besten Dank !
Viele Grüße,
Selma