Dropdownliste mit Beschreibung

Hallo zusammen
Ich arbeite an einem Excel-Dokument, wo ich Listen kreiert habe. Habe das mit Validation "List" gemacht, und beziehe die Liste von einem anderen Worksheet. Habe die Liste mit Name Define erstellt. Die Werte gehen von 1 bis 4.
Gerne würde ich nun eine Beschreibung diesen Werten anhängen. Mit der Option, diese Beschreibung direkt in die Liste einzutragen, bin ich unglücklich, da erstens die Beschreibungen dann immer im Feld angezeigt werden und zweitens man nicht mehr einfach Zahlen eintippen kann, sondern immer mit der Maus die Auswahl tätigen muss.
Gibt es eine Möglichkeit, im Dropdownmenü zusätzlich eine Beschreibung anzeigen zu lassen? Evtl. mit einer zweiten Liste arbeiten?
Danke & Gruss,
David

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hi David,
ich persönlich würde das ungefähr so lösen:
Im VBA-Editor dies in das Codemodul der entsprechenden Tabelle einfügen:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count = 1 Then
ta = Target.Address
Select Case ta
Case "A1"
frmAuswahlliste.Show
Case "X1"
' für andere Dropdowns erweiterbar
Case Else
End Select
End If
End Sub

Als nächstes eine kleine Userform mit Namen frmAuswahlliste erstellen, eine Listbox einfügen und diesen Code in das Codemodul der Userform eingeben:

Private Sub UserForm_Initialize()
For i = 1 To 10 ' 10 durch Anzahl Listeneinträge ersezen
ListBox1.AddItem i & " " & Sheets("Liste").Cells(i, 2).Value
' wobei ich davon ausgehe, dass "Liste" das Tabellenblatt
' mit den Auswahlbegriffen ist und die Liste in A1 bis B10 liegt
' (in Spalte A die Nummern und in B die Begriffe)
' das i & " " &  sorgt dafür, dass dem Begriff die laufende Nr
' automatisch vorangestellt wird.
Next
End Sub

Private Sub ListBox1_Click()
x = ListBox1.ListIndex + 1
' +1, da VBA von 0 an zählt
Sheets("Eintrag").Cells(47, 11).Value = x
' "Eintrag" durch den Tabellennamen ersetzen, in welcher die
' Dropdown-Liste soll und 47,11 durch die entsprechende
' Zeile und Spalte ersetzen
Unload Me
End Sub

Beispielcode, habe ich nicht testen können, aber ich hoffe, damit kommst Du schon weiter.
Gruß
Timo

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Dropdownliste mit Beschreibung

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread