Der Code soll nur Werte die ähnlich (nicht identisch, sondern ähnlich) sind mit dem Wert aus "finden",
in die Listbox einfügen.
Wenn es geht sollen die Header weiterhin bestehen bleiben.
Daten:
Tabellenblatt: "Kontenplan"
VBA-Tabellenname: "Tabelle9"
Die Header befinden sich in den Zelladressen: "A1:C1"
Die Zellen die nach dem finden Wert durchsucht werden: "A:A"
Matrix von den Werten die ausgegeben werden sollen sind: "A2:C999" (aber nur die die mit dem Wert von "finden" ähnlich sind)
ListBox = "lbx_Konten"
Intellegente Tabelle mit Daten: "tbl_Kontenplan"
Code:
Private Sub UserForm_Click
Dim finden As Range, wks As Worksheet
Set wks = Worksheets("Kontenplan")
Set finden = wks.Range("A2:A999").Find(what:=txtbx_Suchbegriff)
'finden = Wert
'finden.Address = Wertadresse
lbx_Konten.ColumnHeads = True
lbx_Konten.RowSource = Tabelle9.Range("tbl_Kontenplan").Address
lbx_Konten.ListIndex = 0
End Sub
Ich bin jedem für seine Hilfe dankbar!MfG
Herbert