Hi zusammen,

ich hatte ursprünglich das selbe Problem wie in diesem Beitrag:
https://www.herber.de/forum/archiv/1612to1616/1614073_Dropdown_Menue__Andere_Werte_ausgeben_als_anzeigen.html

Hier noch die Beispieldatei dazu:
https://www.herber.de/bbs/user/172163.xlsm

Der folgende Code, aus diesem Beitrag, hat mein ursprüngliches Problem auch schon gelöst.
Private Sub Worksheet_Change(ByVal Target As Range)
Spalte = "B"
StartZeile = 6
EndZeile = 6
For i = StartZeile To EndZeile
Cell = Spalte + Trim(Str(i))
Wert = Range(Cell).FormulaR1C1
If InStr(Wert, " - ") > 0 Then
Pos = InStr(Wert, " - ")
Wert = Left(Wert, Pos - 1)
Range(Cell).FormulaR1C1 = Wert
End If
Next i
End Sub

Mein neues Problem ist das ich mehrere Spalten habe in der ich im Dropdown-Menü andere Werte ausgeben möchte als angezeigt werden. Mit diesem Code kann ich aber immer nur eine Spalte beeinflussen. Gibt es eine Möglichkeit den Code so zu ändern das er auch bei mehreren Spalten funktioniert oder das ich ihn duplizieren kann ohne die Meldung "mehrdeutiger Name" zu erhalten?

Schon mal vielen Dank für eine Antwort.

Mit freundlichen Grüßen

Alex