Mit textbox eintrag Listbox eintrag finden
18.05.2018 14:40:07
Horst
bin neu im Forum. Habe eine VBA Frage. Ich habe ein Formular in dem ich eine drei spaltige List _ habe. In der ersten und zweiten Spalte sind Adressen. Jetzt möchte ich in eine Textbox ein oder mehrere Buchstaben eintragen, diese sollen in der Listbox alle Zeilen anzeigen, die in der ersten Spalte mit diesen Buchstaben anfangen. Ich habe bereits zwei Tage lang mehrere Foren durchsucht, aber keines der Beispiele hat funktioniert. Ich verwende folgenden Code:
Private Sub UserForm_Activate()
ListBox1.ColumnCount = 3
ListBox1.RowSource = Worksheets("Tabelle1").Range("A2:C114").Address(External:=True)
TextBox1.Font.Size = 18
TextBox1.Value = Date
End Sub
'ListBox1.List = Application.Worksheet.Function("Tabelle1").Transpose(Range("B5:D117"))
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
'Range("B7:D7").Select
'Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
'Worksheets("Fahrten").Range("B7") = ListBox1.List(ListBox1.ListIndex, 0)
'Worksheets("Fahrten").Range("C7") = ListBox1.List(ListBox1.ListIndex, 1)
'Worksheets("Fahrten").Range("D7") = ListBox1.List(ListBox1.ListIndex, 2)
Dim x As Long
x = Range("A65536").End(xlUp).Row + 1
Rows(x).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
ActiveCell = TextBox1.Value
ActiveCell.Offset(0, 1).Select
ActiveCell = ListBox1.Column(0)
ActiveCell.Offset(0, 1).Select
ActiveCell = ListBox1.Column(1)
ActiveCell.Offset(0, 1).Select
ActiveCell = ListBox1.Column(2)
End Sub