Autovervollständigung /Suchfenster

Hallo Excelfreunde
Nach langer Pause brauch ich nun wieder eure Hilfe. Habe zwar gesucht, habe aber nicht das gewünschte gefunden. Vielleicht lag es auch an meinen suchbegriffen.
Ich habe eine Tabelle in dieser sind Orte und weitere Informationen zu diesen Orten.
In Spalte A sind die Orte,
in Spalte B bis H sind weitere Angaben zu diesem Ort.
Mein Projekt welches ich erstellen möchte, weil diese Liste schon lang ist und in naher Zukunft sich noch um einiges erweitert, ist eine Eingabemöglichkeit in der ich in einer Zelle/Userforn/etc. die Eingabe machen möchte. Während der Eingabe soll, wie bei der Autovervollständigung eine mögliche Auswahl der Spalte A angezeigt werden. Und bei entprechender Auswahl sollten die dazugehörigen Zellen aus den Spalten B-H unter/neben der Eingabe angezeigt werden.
Meine Frage, ist so etwas möglich?
Über eine Lösung würde ich mich freuen.
Ob es mit oder ohne Makro/Visual Basic ist mir gleich. Es sollte, da die Tabelle mehrere Personen benutzen, Idioten-sicher :-) sein (Tabelle öffnen, Eingabe machen, ablesen, neue Eingabe oder Tabelle wieder schließen).
Z.Bsp.
Ein Eingabe Formular
Ein Feld zur Eingabe, welches dymanisch reagiert auf die Eingabe (abfrage der Spalte A)
Sieben Felder die nach Auswahl angezeigt werden. (Salten B-H der Zeile in der der gewählte Ort ist)
Ich hoffe, dass ich mich verständlich ausgedrückt.
Freundliche grüsse
H-P

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo H-P,
ich bin kein profi deshalb kann ich es Dir auch nicht erklären habe die lösung durch probieren gefunden teste mal
liebe grüsse thomas

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
'UserForm1.TextBox2 = ListBox1.List(ListBox1.ListIndex)
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
TextBox1.Text = rngID.Offset(0, 0).Value
TextBox2.Text = rngID.Offset(0, 1).Value
TextBox3.Text = rngID.Offset(0, 2).Value
TextBox4.Text = rngID.Offset(0, 3).Value
TextBox5.Text = rngID.Offset(0, 4).Value
TextBox6.Text = rngID.Offset(0, 5).Value
TextBox7.Text = rngID.Offset(0, 6).Value
End If
sSearch = ""
End If
' ListBox1.Clear
End Sub

Private Sub Textbox1_Change()
Dim vTemp       As Variant
Dim vAuswahl()  As Variant
Dim lZeile      As Long
Dim lLiBo       As Long
With ThisWorkbook.Worksheets("Verbandsgemeinden")
vTemp = .Range("A2:A" & .Cells(.Rows.Count, 1).End(xlUp).Row)
End With
For lZeile = 1 To UBound(vTemp)
If Left(vTemp(lZeile, 1), Len(Me.TextBox1)) = Me.TextBox1 Or _
Left(LCase(vTemp(lZeile, 1)), Len(LCase(Me.TextBox1))) = Me.TextBox1 Then
ReDim Preserve vAuswahl(1, lLiBo)
vAuswahl(0, lLiBo) = vTemp(lZeile, 1)
vAuswahl(1, lLiBo) = lZeile
lLiBo = lLiBo + 1
End If
Next lZeile
If lLiBo > 0 Then Me.ListBox1.List = Application.Transpose(vAuswahl)
End Sub

Private Sub TextBox2_Change()
End Sub

Beliebteste Forumthreads (12 Monate)

Autovervollständigung /Suchfenster

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Autovervollständigung /Suchfenster

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread