Dropdown Liste mit Buchstabensuche

dieter(drummer) · 1970-01-01T00:00:00+00:00

Excel/VBA SoLaLa Hi Excelprofis, in Spalte A habe ich eine Dropdown Liste über Daten/Gültigkeit. Die Liste (mit Alpha Namen ist alphabetisch schon sortiert und kommt aus einem ausgeblendeten Tabellenblatt in dieser Mappe. Die vorletzte Zeile ist eine Leerzeile, damit manuelle Eingaben möglich sind. Die Liste funktioniert! Problem: 1) Bei Aufruf der Liste steht diese immer in der Vorletzten Zeile (Leerzeile). 2) Wenn ich z.B. den Buchstaben L eingebe, kommt nicht der erste Name, der mit L beginnt. Suche Lösung für: 1) Bei Eingabe eines Buchstabens soll der erste in der Liste auftauchen, der mit diesem beginnt. Diese Lösung wäre schon toll. Geht das? Danke für's drum kümmern und evtl. Hilfe. Mit Gruß dieter(drummer)

Hallo Dieter,

VBA-Code:

Private Sub ComboBox1_Change()
'Code in das Tabellenblatt der Combobox
Dim i As Integer
For i = 5 To 100
Cells(i, "A") = ComboBox1.Value
Next
End Sub
Gruss Jürgen

AW: Danke Jürgen. Hilft mir schon weiter

dieter(drummer)

Hi Jürgen,
am Script sehr ich schon die Möglichkeiten. Nun muss ich noch herausfinde, wie ich die Auswahl NUR in die nächste freie Zelle in Spalte A kriege. Es sollen ja nicht 100 Einträge mit gelcicher Auswahl erfolgen.
Danke für Deine Hilfe.
Mit Gruß
dieter(drummer)

So vielleicht!

Backowe

Hallo Dieter,

VBA-Code:

Private Sub ComboBox1_Change()
Cells(Cells(Rows.Count, "A").End(xlUp).Row + 1, "A") = ComboBox1.Value
End Sub
Gruss Jürgen

AW: So vielleicht!

hary

Hallo Dieter
naechste freie Zelle? auch mittendrin. Juergen sein Code.


Private Sub ComboBox1_Change()
'Code in das Tabellenblatt der Combobox
Dim i As Integer
For i = 5 To 100
If Cells(i, "A") = "" Then 'naechste freie Zelle
Cells(i, "A") = ComboBox1.Value
End     ' wenn leere zelle beschrieben Sub beenden sonst geht's immer weiter
End If
Next
End Sub

Gruss Hary

AW: Danke auch an Hary

dieter(drummer)

Hi Hary,
Danke für Deine Hilfe. Es soll aber etwas anders sein, Siehe meine letzte Info an Jürgen.
Gruß
dieter(drummer)

AW: Noch mal Danke. Muss damit experimentieren

dieter(drummer)

Hi Jürgen,
Danke für Deine Hilfe. Muss damit mal weiter eperimentieren. Der Sinn ist, dass eine Liste aus einem anderen Tabellenblatt der Arbeitsmappe, die Eintragungen der Liste - jeweils einen Namen - bei Aufruf der Liste und Aktivierung des ausgesuchten Namens, den Namen in die aktivierte Zelle (dies ist dann die nächste freie, die manuell angewählt wurde) eingetragen werden.
Ist wohl zu kompliziert.
Danke für Hilfestellung.
Gruß
dieter(drurmmer)

AW: Noch mal Danke. Muss damit experimentieren

hary

Hallo Dieter
also manuelle auswahl der leeren zelle, dann ins Cbo Change Ereigniss
activecell = ComboBox1.Value
Gruss Hary

AW: Hary, Danke! Bin nicht so gut, ....

dieter(drummer)

Hi Hary,
bin leider nicht so gut, dies in VBA umzusetzen. Leider ....
Danke und Gruß
dieter(drummer)

AW: Dank an Hary und Jürgen. Komme damit weiter

dieter(drummer)

Hi Hary,
habe mit Liste, die ich über Namen definieren angelegt habe, experimentiert. Erste Erfolge kommen.
Danke für Deine Geduld und Hilfe. Natürlich auch Dank an Jürgen.
Gruß
dieter(drummer)

Hallo Dieter,

VBA-Code:

Private Sub ComboBox1_Change()
Cells(Cells(Rows.Count, "A").End(xlUp).Row + 1, "A") = ComboBox1.Value
End Sub
Gruss Jürgen

AW: So vielleicht!

hary

Hallo Dieter
naechste freie Zelle? auch mittendrin. Juergen sein Code.


Private Sub ComboBox1_Change()
'Code in das Tabellenblatt der Combobox
Dim i As Integer
For i = 5 To 100
If Cells(i, "A") = "" Then 'naechste freie Zelle
Cells(i, "A") = ComboBox1.Value
End     ' wenn leere zelle beschrieben Sub beenden sonst geht's immer weiter
End If
Next
End Sub

Gruss Hary

AW: Danke auch an Hary

dieter(drummer)

Hi Hary,
Danke für Deine Hilfe. Es soll aber etwas anders sein, Siehe meine letzte Info an Jürgen.
Gruß
dieter(drummer)

AW: Noch mal Danke. Muss damit experimentieren

dieter(drummer)

AW: Noch mal Danke. Muss damit experimentieren

hary

Hallo Dieter
also manuelle auswahl der leeren zelle, dann ins Cbo Change Ereigniss
activecell = ComboBox1.Value
Gruss Hary

AW: Hary, Danke! Bin nicht so gut, ....

dieter(drummer)

Hi Hary,
bin leider nicht so gut, dies in VBA umzusetzen. Leider ....
Danke und Gruß
dieter(drummer)

AW: Dank an Hary und Jürgen. Komme damit weiter

dieter(drummer)

Hi Hary,
habe mit Liste, die ich über Namen definieren angelegt habe, experimentiert. Erste Erfolge kommen.
Danke für Deine Geduld und Hilfe. Natürlich auch Dank an Jürgen.
Gruß
dieter(drummer)

Dropdown Liste mit Buchstabensuche

Forumthread: Dropdown Liste mit Buchstabensuche

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial