Listbox
27.10.2020 10:31:06
Wolfgang
ich habe aus dem Internet eine Adressdatei mit Listbox für 5 Spalten heruntergeladen und diese für 11 Spalten
geändert. Leider funktioniert die Sub NachnameSuchen nicht. Der Debugger unterlegt die Zeile: "Me.Listbox1.Clear mit gelb. Auch bei der Sub Listbox1_Click wird die Zeile IngZeile = Me.Listbox1 ....... gelb unterlegt.
Da ich nicht weis wie man die beiden Subs umstellt wäre ich für eine Hilfe sehr dankbar.
Gruß Wolfgang
Private Sub NachnameSuchen_Click() 'Button "Nachnamen suchen"
Dim lngZeile As Long
Dim lngZeileMax As Long
Dim i As Integer
Me.ListBox1.Clear
With Tabelle1
lngZeileMax = .Cells(.Rows.Count, 1).End(xlUp).Row
For lngZeile = 3 To lngZeileMax
If InStr(UCase(.Cells(lngZeile, 2).Value), _
UCase(Me.TextBox2.Value)) > 0 Then
Me.ListBox1.AddItem .Cells(lngZeile, 1).Value
Me.ListBox1.Column(1, i) = .Cells(lngZeile, 2).Value
Me.ListBox1.Column(2, i) = .Cells(lngZeile, 3).Value
Me.ListBox1.Column(3, i) = .Cells(lngZeile, 4).Value
Me.ListBox1.Column(4, i) = .Cells(lngZeile, 5).Value
Me.ListBox1.Column(5, i) = lngZeile
i = i + 1
End If
Next lngZeile
End With
End Sub
Private Sub ListBox1_Click() 'Mit Klick auf Datensatz in Listbox wird in _
Textboxen geschrieben
Dim lngZeile As Long
Dim i As Integer
lngZeile = Me.ListBox1.Column(11, Me.ListBox1.ListIndex)
For i = 1 To 11
Me.Controls("TextBox" & i).Value = Tabelle1.Cells(lngZeile, i).Value
Next i
End Sub