VBA Code für dynam. Suche+Drop Down

Hallo liebe Excel Freunde und Gemeinde
Habe bereits gestern dazu einen Thread gemacht, da ich gehofft hatte, dass es eine Lösung ohne VBA gibt.... aber dem scheint nicht so zu sein, deswegen an die VBA Profis, ob Sie mir weiterhelfen können wie man das machen könnte?!
*************************************************
Man soll in der Zelle (Bspw. B2) einen Text eingeben können (relativ beliebig) und je nach Eingabe in dieser Zelle eine konkrete Auswahlliste in der nächsten Zelle (resultierend auf der Eingabe in B2) bekommen!!!!
Klar?
Vielleicht hilft ein Besiepiel?
Ich gebe in B2 den Text Bett ein und will nun dass er mir in Zelle B3 ein Auswahlfeld erstellt, wo alle Daten angezeigt werden (dynamisch?!) die mit Bett anfangen oder das Wort bett enthalten.....(diese DB liegt in Mappe 2...)
Also eine Auswahlliste mit Krankenbett, Schlafbett, Bettgestell....usw.
Habt ihr eine Idee?
So ne Auswahlliste kann man ja mit Tricks über Gültigkeit /Liste machen....
z.B:
=BEREICH.VERSCHIEBEN(alles_4Kz;1;VERGLEICH(F23;ueberschrift_4Kz;0)-1;ANZAHL2(INDEX(alles_4Kz;;VERGLEICH(F23;ueberschrift_4Kz;0)))-1;1)
Aber das geht nur wenn man ganze Wörter hat als Eingabe/Auswahl und man einen Bereich bennennt!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Caspar,
ich hab noch ne VBA-Variante im Angebot. Die ist wesentlich perfomanter als die Formellösung.
Mit Blick auf deine vorhandene Tabelle mach folgendes:
Formeln in Spalte D komplett löschen.
Rechtsklick auf den Tabellenreiter "Tabelle1" - Code anzeigen auswählen.
Das rechte weisse Fenster komplett leeren (falls es nicht eh schon leer ist) und dort diesen Code komplett reinkopieren:


Option Explicit
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address(0, 0) <> "B1" Then Exit Sub
Dim Suchbereich As Range, Suchbegriff As Variant
Dim C As Range, fAddr As String, lRow As Long
Set Suchbereich = Worksheets("Tabelle2").[a:a]
Suchbegriff = Me.[b1]
lRow = 1
Me.[d:d].Clear
With Suchbereich
Set C = .Find(Suchbegriff, lookat:=xlPart, MatchCase:=False)
If Not C Is Nothing Then
fAddr = C.Address
Do
Me.Range("D" & lRow) = C
lRow = lRow + 1
Set C = .FindNext(C)
Loop While Not C Is Nothing And C.Address <> fAddr
End If
End With
End Sub

VBA-Editor wieder schließen.
Und dann gib in B1 mal nen Suchbegriff ein.
Grüße Boris

Beliebteste Forumthreads (12 Monate)

VBA Code für dynam. Suche+Drop Down

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Code für dynam. Suche+Drop Down

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread