AW: Listbox
01.01.2018 13:51:23
adcak
Hallo Hajo,
vielen Dank erstmal für dein Ansatz.
Habe aber immer noch das Problem, das mein Userform "Wagennr" so oft aufgerufen wird wie viel ich in Listbox auswähle.
mein code in Userform 1
Private Sub CommandButton3_Click()
With ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) Then
Wagennr.Label2.Caption = ListBox1.List(i, 0)
Wagennr.Label3.Caption = ListBox1.List(i, 1)
Wagennr.Label4.Caption = ListBox1.List(i, 2)
Wagennr.Label5.Caption = ListBox1.List(i, 5)
Wagennr.Label6.Caption = ListBox1.List(i, 7)
Wagennr.TextBox1.Text = ListBox1.Column(8, i)
Wagennr.TextBox2.Text = ListBox1.Column(9, i)
Wagennr.Show
End If
Next i
End With
End Sub
und mein Speichern Button in Userform "Wagennr"
Private Sub CommandButton1_Click()
Dim i As Integer
For i = 2 To Range("A100000").End(xlUp).Row
If Cells(i, 1) = Label2.Caption Then
Cells(i, 9) = TextBox1.Text
Cells(i, 10) = TextBox2.Text
End If
Next i
Unload Me
End Sub
Möchte zb. 3 Sachen in Listbox auswählen dann auf Wagennr hinzufügen "CommandButton3_Click" Werte in Userform Wagennr Textbox 1 und 2 reinschreiben und mit Speichern "CommandButton1_Click" speichern.
wichtig ist das Userform nur einmal aufgerufen wird, und für alle makierten Zeile in Listbox übernimmt.