Hi,

Liste erstellen z.B. :
1 ddd
2 ffff
3 ggg
usw.
Liste nach Namen sortieren, da das ja der eigentliche Suchbegriff ist.
Dann diese beiden Spalten mit den Werten markieren - Einfügen - Namen - Namen vergeben (z.B. test)
Als nächstes ein Kombinationsfeld (aus dem Bereich Steuerelementtoolbox !!! nicht aus Formular) zeichnen.
Rechtsklick auf die Kombobox und unter Eigenschaften folgende Dinge setzen:
BoundColumn = 1
ColumnCount = 2
ListFillRange = den Namen der Liste (test)
Zur Kontrolle kann man den Wert auch noch in einer Zelle
anzeigen lassen - dann noch -
linkedCell = A1

Wenn Du die Daten richtig eingetragen hast, wird in der Kombibox die ersten 8 (kann aber auch in den Eigenschaften geändert werden unter ListRows) Begriffe mit den Nummern aus der vorher definierten Liste (test) angezeigt. Weitere Begriffe können dann über den Laufbalken auf der rechten Seite angezeigt werden.
Nach anklicken des gesuchten Begriffes kann dann je nach Wunsch die Nummer oder der Begriff in eine Zelle (z.B. A1) eingetragen werden. Die Steuerung ob Zahl oder Begriff wird über BoundColumn = 1 bzw. 2 gesteuert !

Die = - Zeichen sind dabei n i c h t mit einzugeben !

Schriftgröße und dergleichen können ebenfalls über die Eigenschaften ausgewählt werden !

In diesem Sinne... have a nice Day... Gruß Helmut

Hi Helmut,

vielen Dank für deine Antwort. Die Liste lässt sich sehr gut mit den Daten füllen. Wenn ich jedoch den Wert wähle wird dieser mir nur in der Box angezeigt oder im "linkedCell".

Ich wollte es so nutzen:
Wenn ich mich in einer Zelle befinden z.B. A2 und die Jobnummer nicht weiß, möchte ich dann auf ein Button klicken wo mir die Jobnummern in Form einer Liste o. Userform angezeigt werden und ich dann die richtige auswählen kann (durch doppelklick oder eines zusätzlichen buttons). Diese soll dann in der aktiven, also in der Zelle wo ich mich befinde eingefügt werden.

Gruß
afetinci

Hi afetinici,

da ich leider nur ein Anfänger in Sachen VBA bin, habe ich zwar einen Lösungsansatz für Dich, aber keine fertige Lösung.

Das Makro funktioniert immer dann, wenn man andere Werte nimmt, wie den, den man vorher ausgewählt hatte.
z.B. es wurde 1 aus der Liste ausgewählt, die in Zelle a10 eingetragen wurde, dann kann man die 1 nicht für die Zelle a11 auch auswählen - jeder andere Wert funktioniert. Wie schon geschrieben, es ist nur ein Lösungsansatz und ein echter VBAler wird sich sicherlich ins Fäustchen lachen über meinen Versuch.

Bei diesem Lösungsansatz bin ich auch davon ausgegangen, daß die Combobox in den Zeilen 1 - 3 steht und danach erst die richtigen Werte erfolgen - bin von der Funktion Fenster fixieren ausgegangen.

Ansonsten müsstest Du entweder ein Makro über einen Button starten, daß eine Combobox oder Userform öffnet und dann die Abfrage erfolgt.

Sorry, daß ich Dir da nicht richtig weiterhelfen kann.

Private Sub ComboBox1_Change()
Dim combowert As String
combowert = Me.ComboBox1.Value
Me.ComboBox1.Select
ActiveCell.Select
ActiveCell.Value = Me.ComboBox1
End Sub

Ich hoffe das ein richtiger VBAler sich der Sache annimmt.

In diesem Sinne... have a nice Day... Gruß Helmut