TextBox Inhalt per CommandButton übernehmen
20.03.2017 18:18:36
Anii
Ich habe UserForm1 und UserForm2.
UserForm1 enthält u.a. eine 3-spaltige ListBox gefüllt durch:
Private Sub ComboBox1_Change()
Dim rng As Range
For Each rng In Range("Tabelle1")
If rng.Value = ComboBox1.Value Then
ListBox1.AddItem
ListBox1.List(ListBox1.ListCount - 1, 0) = rng.Offset(, 3)
ListBox1.List(ListBox1.ListCount - 1, 1) = rng.Offset(, 4)
ListBox1.List(ListBox1.ListCount - 1, 2) = rng.Offset(, 6)
End If
Next
End Sub
Per Doppelklick auf einen Eintrag aus der ListBox1 rufe ich UserForm2 auf, diese enthält nur eine TextBox und einen CommandButton. Die TextBox wird gefüllt durch:
Private Sub ListBox1_Click()
With ListBox1
UserForm2.TextBox1 = .List(.ListIndex, 2)
End With
End Sub
Ich bekomme den CommandButton der UserForm2 nicht zum laufen. Er soll den TextBox Inhalt in meine Tabelle1 übernehmen bzw. überschrieben.
Liebe Grüße
Anzeige