dropdown+sverweis in einer zelle

Hallo, ich möchte mich kurz erkundigen ob mein Problem so überhaupt lösbar ist. Ich habe jetzt diverse Foreneinträge gesehen, wo eine Dropdownliste in A1 mit einem Sverweis _ einen Eintrag in B1 erzeugt hat. Ich brauche allerdings Folgendes: Ich habe in Spalte A eine Dropdownliste. Wenn ich dort etwas _ _ _ _ auswähle, soll aber was anderes angezeigt werden. Konkret: Ich wähle ein Land, mit wird aber nur der Ländercode angezeigt (die entsprechende _ Tabelle existiert bereits) -> Auswahl in Dropdown "Deutschland" soll in derselben Zelle nicht _ _ _ Deutschland, sondern den Ländercode also "DEU" anzeigen. Klar geht das ganze mit ner zusätzlichen Spalte, aber auch in derselben Spalte wie die Dropdown? ( Will die Tabelle nicht noch weiter aufblähen.)

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) Const adRelBer$ = "A2", adVglBer$ = "A1:B2", naVglTab$ = "Tabelle2" '←Anpassen! If Intersect(Target, Me.Range(adRelBer)) Is Nothing Then Exit Sub On Error Resume Next With Application .EnableEvents = False Target = WorksheetFunction.VLookup(Target, Sheets(naVglTab).Range(adVglBer), 2, False) .EnableEvents = True End With End Sub

Hi danke zunächst einmal für den Code-Vorschlag! Allerdings versteh ich ihn noch nicht so ganz, bzw. bin zu blöd ihn anzupassen, deshalb konkret wie was bei mir steht.
In Tabbelle1 sind in Spalte D lauter Dropdownfelder. Angezeigt möchte ich in der Dropdownauswahl aus Tabelle2 den Inhalt von Spalte B, aber angezeigt zuletzt den Inhalt von Spalte E aus Tabelle2.
Es ist also nicht nur ein Dropdownfeld . meinst du die eine angesprochene mit adRelBer$ ? advglber$ ist die range die verglichen warden soll ? Also bei mir Spalte B und E aus Tabelle 2 ?
Und als Auswahl für das Dropdown nach wie vor Spalte B einfach ? Sorry für die vielen Fragen, bin absoluter Anfänger... Die 2 in der VLookup muss ich auch nochmal nachschauen.

…Anpassung nicht fktioniert, Edgard:

Private Sub Worksheet_Change(ByVal Target As Range)
Const adRelBer$ = "D2:D10", adVglBer$ = "B2:E6", naVglTab$ = "Tabelle2"
If Intersect(Target, Me.Range(adRelBer)) Is Nothing Then Exit Sub
On Error Resume Next
With Application
.EnableEvents = False
Target = WorksheetFunction.VLookup(Target, Sheets(naVglTab).Range(adVglBer), 4, False)
.EnableEvents = True
End With
End Sub

Die konstanten Bereiche musst du natürlich noch anpassen. Dabei ist adRelBer die Adresse des ganzen Tabelle1-Bereichs mit den DropDowns, adVglBer die Adresse des ganzen Vglsbereichs auf Tabelle2. Die EreignisProzedur muss natürlich im DokumentKlassenModul der Tabelle1 (quasi auf ihrer Rückseite) angelegt wdn. Die Module stellen das VBA-Projekt dar, das im VBEditor angezeigt wird. Näheres findest du in der VBE-Hilfe.
Luc :-?

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

334 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

dropdown+sverweis in einer zelle

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

334 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread