ich habe eine userform wo sich eine Listbox befindet die mir doppelte Namen anzeigt.
Mit einem Klick auf die Zeile hatte sich immer die restlichen Textboxen mit den werten gefüllt, dies passiert jetzt nicht mehr, ohne das ich eine Fehlereldung erhalte.
hat jemand eine idee woran es liegen könnte?
Vielen Dank im Voraus.
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Worksheets("Aufzüge").Range("A11") = 1
Dim sSearch As String
If ListBox1.ListCount > 1 Then
sSearch = ListBox1.List(ListBox1.ListIndex, 0)
Set rngID = Columns("A:A").Find(what:=sSearch, lookat:=xlWhole, LookIn:=xlValues)
If Not rngID Is Nothing Then
ComboBox1.Text = rngID.Offset(0, 1).Value
TextBox4.Text = rngID.Offset(0, 3).Value
ComboBox5.Text = rngID.Offset(0, 4).Value
ComboBox4.Text = rngID.Offset(0, 5).Value
TextBox2.Text = rngID.Offset(0, 6).Value
TextBox5.Text = rngID.Offset(0, 7).Value
TextBox6.Text = rngID.Offset(0, 8).Value
TextBox9.Text = rngID.Offset(0, 9).Value
TextBox7.Text = rngID.Offset(0, 10).Value
TextBox10.Text = rngID.Offset(0, 11).Value
TextBox11.Text = rngID.Offset(0, 12).Value
TextBox12.Text = rngID.Offset(0, 13).Value
End If
sSearch = ""
End If
ListBox1.Clear
Worksheets("Aufzüge").Range("A11") = 0
End Sub