Office: (Office 2013) Durch Dropdown anderen Wert ausgeben lassen

max1908 · 22. März 2018

Servus zusammen,

ich habe zu meinem Thema bereits gesucht, aber keine zufriedenstellende Antwort gefunden. Vielleicht könnt ihr mir helfen.

Ich benutze Dropdown Felder aus der Datenüberprüfung. Denen liegt eine Liste mit Textfeldern zugrunde (z.B. "Keine Beeinträchtigung", "Leichte Beeinträchtigung" usw.). Ich will jetzt aber, dass mir Excel in der Zelle nicht den Text widergibt, sondern für jedes Textfeld eine spezifische Zahl, die ich ebenfalls definiert habe. Also z.B. für "Keine Beeinträchtigung" die 1, für "Leichte Beeinträchtigung" die 2 usw.

Habt ihr eine Idee, wie ich das lösen kann?

Bin für Input dankbar!

BG Max

:)

Hajo_Zi · 24. März 2018

benutze Sverweis()

max1908 · 24. März 2018

Wie soll das genau gehen?

Mein Drowdown ist in Zelle A1. Mit dem Sverweis kann ich die Zahl dann in B1 schreiben. Ich will sie aber nicht in B1, sondern in A1 haben.

MisterBurns · 24. März 2018

Wenn du keine Hilfsspalte verwenden willst, bleibt dir nur noch VBA:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim i As Range

Set i = ActiveSheet.Cells(1, 1)

Select Case i.Value
Case "Test 1"
i.Value = 1
Case "Test 2"
i.Value = 2
Case "Test 3"
i.Value = 3
End Select

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

Hajo_Zi · 24. März 2018

das geht nur über VBA.

Beverly · 24. März 2018

[EDIT]: falsch gelesen

Beverly · 24. März 2018

Mein Vorschlag ohne Select Case

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngZelle As Range
Dim rngBereich As Range
If Target.Cells(1).Address(False, False) = "A1" Then
Set rngBereich = Range(Application.Substitute(Target.Cells(1).Validation.Formula1, "=", ""))
Set rngZelle = rngBereich.Find(Target.Value, lookat:=xlWhole)
If Not rngZelle Is Nothing Then
Application.EnableEvents = False
Target = rngZelle.Row - rngBereich.Cells(1).Row + 1
Application.EnableEvents = True
End If
End If
Set rngZelle = Nothing
Set rngBereich = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: (Office 2013) Durch Dropdown anderen Wert ausgeben lassen

Durch Dropdown anderen Wert ausgeben lassen

Durch Dropdown anderen Wert ausgeben lassen

Durch Dropdown anderen Wert ausgeben lassen

Durch Dropdown anderen Wert ausgeben lassen - Similar Threads - Dropdown Wert ausgeben

Dropdown Auswahl -> anderer Wert Speichern

2 Werte aus Dropdown übernehmen

Über Dropdown-Menü Differenz berechnen, verschiedene Werte

Kombinationsfelder gleichzeitig auf "Wert 1" rücksetzen

Zellen verbinden bei bestimmtem Wert aus Dropdown-Liste

Matrix durchsuchen und alle zutreffende Werte ausgeben

Dropdownliste und Werte ausgeben ohne WENN DANN Funktion?