Office: (Office 2013) dropdown mit suchfunktion

Michael.Volgger · 8. März 2015

hallo!
ich ein problem und wühle mich ziemlich erfolglos durch die suchanbieter.
vielleicht kann mir hier jemand helfen. ich habe eine tabelle mit verschiedenen textil-kompositionen (100% co, 50% co 50% af, etc.).
in einer zweiten tabelle habe ich verschiedene artikel, denen ich diese komposition zuweisen muss. um mich nicht durch ca. 400 kompositionen zu wühlen, hätte ich gerne eine funktion, welche per eingabe z.b. co mir sämtliche varianten mit co anzeigt und die gewünschte dann in die zelle schreibt.
also, teile eines zelleninhalts suche und gewünschten wert in zelle schreiben
hoffe, ich habe mich halbwegs verständlich ausgedrückt...
danke schon mal im voraus!!
mike

:)

XDuckX-Fan · 10. März 2015

Hallo Mike,
schau mal hier: Dropdown mit Suchfunktion bei Eingabe...

Gruß
Thomas

Beverly · 10. März 2015

Hi Mike,

so richtig verstehe ich nicht was du machen willst - aber eventuell hilft der Autofilter weiter.

Michael.Volgger · 10. März 2015

hallo!
danke erstmal für die lösungsansätze. der autofilter hilft mir nicht weiter.
der link von thomas ist im prinzip genau das, was ich suche. nur müsste der ausgewählte wert dann in die aktive zelle geschrieben werden.
wenn das noch ginge, wäre es perfekt.

XDuckX-Fan · 10. März 2015

Hallo Mike,

das Code:

Private Sub ComboBox1_Change()
ActiveCell = ComboBox1.Value
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

wäre eine Möglichkeit...

Gruß
Thomas

Beverly · 10. März 2015

Hi Mike,

eine ComboBox hat die Eigenschaft LinkedCell - trage dort die Zelladresse ein und die Auswahl der ComboBox wird dort ausgegeben.

XDuckX-Fan · 12. Januar 2021

Hallo Mike,

von Beverly

...eine ComboBox hat die Eigenschaft LinkedCell - trage dort die Zelladresse ein und die Auswahl der ComboBox wird dort ausgegeben...
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

@Karin...habe ich im Code der Tabelle2 mit eingetragen, funktioniert aber nich wie gewünscht...(siehe Kommentar dazu im Code-Eintrag der Tabelle2), denn Mike will die "ActiveCell" ansprechen..

@mike...ich habe Dir die erste Beispiel-Tabelle (...83063.xlsm) aus meinem Linkverweis entsprechend Deinem Wunsch einmal nachgebaut. Zusätzlich habe ich Dir noch ein Ein-/und Ausblenden der Combobox1 möglich gemacht (ein...wenn Du in Spalte (B) bist, da wo Du Deine (Such)Einträge vornehmen möchtest, aus...wenn Du nicht in Spalte (B) bist)...schau Dir die Tabellen und den Code einfach mal an, kannst Dich ja dann hier nochmal melden...eine Rückmeldung ist ja immer gerne gesehen...*grins

Gruß
Thomas

Beverly · 11. März 2015

Hi Mike,

versuche es mal mit diesem Code

Code:

Option Explicit
Dim rngEintrag As Range
Dim rngZiel As Range
Dim strInhalt As String

Private Sub ComboBox1_Change()
strInhalt = ComboBox1
End Sub

Private Sub ComboBox1_GotFocus()
Dim arrGesamt
arrGesamt = Worksheets("Textil-Kompositionen").Range("A2:A6")
ComboBox1.List = arrGesamt
ComboBox1 = rngEintrag.Value
Set rngZiel = rngEintrag
End Sub

Private Sub ComboBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim wks1 As Worksheet
Dim rngZelle As Range
Dim arrDaten()
Dim lngZaehler As Long
ReDim arrDaten(0)
Set rngZiel = rngEintrag
Set wks1 = Worksheets("Textil-Kompositionen")
ComboBox1.Clear
For Each rngZelle In wks1.Range("A2:A6")
If InStr(rngZelle, strInhalt) > 0 Then
ReDim Preserve arrDaten(0 To lngZaehler)
arrDaten(lngZaehler) = rngZelle.Value
lngZaehler = lngZaehler + 1
End If
Next rngZelle
ComboBox1.List = arrDaten()
End Sub

Private Sub ComboBox1_LostFocus()
If Not rngZiel Is Nothing Then rngZiel.Value = strInhalt
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Wenn mehr als eine Zelle selektiert dann Makro beenden...
If Target.Cells.Count > 1 Then Exit Sub
If Target.Column = 2 Then
ComboBox1.Visible = True
Set rngEintrag = Target
Else
ComboBox1.Visible = False
Set rngEintrag = Nothing
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Michael.Volgger · 11. März 2015

hallo an alle!
super, genau das, was ich brauche.
danke!!!!! :-)

MaxFL · 15. September 2020

Hallo Zusammen,

ich rolle dieses alte Thema mal wieder auf *biggrin.gif*

ich habe das selbe Problem wie Mike.

Der Code von Karin funktioniert auch bei mir wunderbar. Meine frage ist, kann man das erscheinen der Combobox auch noch zusätzlich an die Zeile knüpfen?
In dem Code von Karin erscheint die Combobox sobald man sich in Spalte 2 aufhält.

Mein Ziel wäre zum Beispiel, wenn man in Spalte 2, Zeile 15 geht, dass dann die Combobox erscheint. Ich bekomme es nicht hin, es ist wahrscheinlich sehr einfach, aber stehe irgendwie auf dem schlauch.

vorab schon einmal Danke!

Gruß Max

MaxFL · 12. Januar 2021

von Beverly

Hi Mike,

versuche es mal mit diesem Code

Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: (Office 2013) dropdown mit suchfunktion

dropdown mit suchfunktion

dropdown mit suchfunktion

dropdown mit suchfunktion

dropdown mit suchfunktion

dropdown mit suchfunktion - Similar Threads - dropdown suchfunktion

Umsatzsteuer mit Dropdown berechnen - Rechnung

Feld in Abhängigkeit eines Dropdowns

DropDown Auswahl mit 2 Funktionen

DropDown öffnen bei anwählen (.Select) einer Zelle

Dynamische Dropdown-Auswahl

Artikel bestellen mit Suchfunktion

Dropdown-Menü/ Suchfunktionen Hilfe