Office: Problem mit Dropdownlist

Hallo,

ich ha ein kleines Problem mit Dropdownlists. Ich hab zwei Listen die auf Blatt 2 der Exceltabelle stehen, die direkt nebeneinander liegen.

In der ersten Spalte steht z.B. Spätschicht und in der Zweiten die dazugehörige Abkürzung S.

Jetzt wollte ich erreichen, das man auf Blatt 1 in der Dropdownlist die voll ausgeschriebenen Bedeutung angezeigt bekommt, aber wenn ein Begriff gewählt wird die Abkürzung in die gleiche Zelle eingetragen wird welche auch mit der Dropdownlist hinterlegt ist.

Also wenn man dann Spätschicht auswählt S eingetragen wird.

Würde mich über jede Hilfe freuen

Gruß

Rogue

 

Hi,

verwendest du ein Kombinationsfeld aus der Steuerelemente-Toolbox? Stelle unter den Eigenschaften ColumnCount auf 2, BoundColumn auf 2 und trage bei ColumnWidths z.B. 80 Pt;0 Pt ein (1. Spalte 80 Pt breit und 2. Spalte 0 Pt). Evtl. musst du 80 auf deine Bedingungen anpassen.

Bis später,
Karin

 

Hy,

ich hab es über Daten, Gültigkeit versucht. Gibt es vielleicht eine Möglichkeit es darüber zu realisieren? Sonst mach ich es so wie du es vorgeschlagen hast.

Gruß

Rogue

 

Hi,

wenn du es mit Daten Gültigkeit realisieren willst, dann musst du das Worksheet_Change Ereignis der betreffenden Zelle verwenden, um den Eintrag der Liste in das Kürzel zu verwandeln - so nach diesem Prinzip:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim arrWerte
    arrWerte = Array(Array("Frühschicht", "Mittagschicht", "Spätschicht"), Array("F", "M", "S"))
    If Target.Address = "$D$1" Then
        Application.EnableEvents = False
        Target = arrWerte(1)(Application.Match(Target, arrWerte(0), 0) - 1)
        Application.EnableEvents = True
    End If
End Sub

Das DropDown-Listenfeld befindet sich im Beispiel in Zelle D1.

Bis später,
Karin