Office: Dropdown Element

Hallo,

In einer Excel 2010 Tabelle sollen in einer Spalte Angaben zu Möbeln gemacht werden. In der Zeile soll jeweils angegeben werden, ob es ein Tisch, ein Stuhl, Kleiderschrank etc. ist. Damit der Text nicht in jeder Zeile neue geschrieben werden muss, habe ich versucht, mit einer Dropdown-Liste zu arbeiten. Damit soll es den Nutzern der Tabelle ermöglicht werden, das jeweilige Möbel anzuklicken und in die Zelle einzutragen. Nun habe ich eine solche Drop-Down-Liste gemacht und wollte sie von A2 bis A20 runterkopieren, damit in der jeweiligen Zelle ein entsprechendes Möbel angzeigt wird. Der Effekt war aber nich ganz so wie gedacht. Wir z.B. in A1 Stuhl selektiert, so zeigt es in allen Zellen, in denen die Drop-Down-Liste ist auch Stuhl an. Obwohl vielleicht in A5 Tisch und in A10 Wandschrank stehen soll.

Wie kann ich dieses Problem umschiffen?

Herzliche Grüsse,

CFehr

 

Hi,

was für ein DropDown verwendest du - Gültigkeitsprüfung, Formular-Steuerelement oder ActiveX-Steuerelement?

Bis später,
Karin

 

Hallo,

in der beiliegenden Excel-Datei habe ich in Spalte A ein DropDown in die ersten 10 Zeilen kopiert. Das funktioniert ohne Probleme. Natürlich eins ist klar: Der gewünschte Wert muss in jeder Zeile neu im DropDown ausgewählt werden.

 

Hallo Karin,

Ich verwende ein Formularsteuerelement.

Gruss und Dank für die Hilfe.

Christoph

 

Hallo Anton,

Vielen Dank für Deine Unterstützung.

Ich schaue mal, ob ich das hinkriege.

Grüsse,

CFehr

 

Hi Christoph,

du musst die Zellverknüpfung für jedes Steuerelement neu festlegen - beim Kopieren wird immer die Ausgangs-Verknüpfung mit weitergegeben.

Bis später,
Karin

 

Hi Karin,

Danke für den Tipp. Der funktioniert vom Prinzip her. Nur sehe ich ein Problem: Die Liste kann meherer hundert Zeilen lang sein. Kundennummer 1 bis 800. Ich müsste also für jedes Steuerelement, das ich kopiere, wieder eine neue Zellverknüpfung erstellen, obwohl ich im Sortiment nur beispielsweise fünf verschiedene Möbel habe? Das würde die Sache doch eher schwerfällig machen. Gibt es da eine Möglichkeit, dieses Problem zu umschiffen?

Grüsse,

Christoph

 

Hi Christioph,

das kann man mit VBA lösen. Es stellt sich dabei die Frage: wird die Liste (irgendwann) erweitert oder bleibt die Anzahl an Zeilen konstant? Davon ist die Verfahrensweise (und damit der VBA-Code) abhängig.

Bis später,
Karin

 

Hi Karin,

Die Zahl der Zeilen schwankt. Sie ist gegen oben offen. Je nachdem wieviele Kunden es hat.

Gruss und Dank für die Hilfe

Christoph

 

Hi Christoph,

ich weiß nun leider nicht, in welcher Spalte die Kunden stehen, weil davon ja die Anzahl an Kombinationsfeldern abhängt - bin mal von Spalte B ausgegangen. Auch deine Zellen, wo die Daten für die Auswahl Stuhl, Tisch usw. stehen - bei mir ist es der Bereich D1: D6. Beide Angaben musst du an deine Bedingungen anpassen, eventuell auch die Größe des Kombinationsfeldes.

Code:

Sub DropDownsErstellen()
   Dim lngLetzte As Long
   Dim lngZeile As Long
   lngLetzte = IIf(IsEmpty(Cells(Rows.Count, 2)), Cells(Rows.Count, 2).End(xlUp).Row, Rows.Count)
   If lngLetzte > ActiveSheet.DropDowns.Count Then
      For lngZeile = ActiveSheet.DropDowns.Count + 2 To lngLetzte
         With ActiveSheet.DropDowns.Add(0, 0, 100, 19)
            .Top = Cells(lngZeile, 1).Top
            .Left = Columns(1).Left
            .ListFillRange = "$D$1:$D$6"
            .LinkedCell = Cells(lngZeile, 1).Address
         End With
      Next lngZeile
   End If
End Sub

Bis später,
Karin

 

Hi Karin,

Herzlichen Dank für Deine Hilfe. Das ist wirklich super...

Grüsse aus der nasskalten Schweiz

Christoph

 

Hallo Karin,

Du bist genau richtig gelegen mit Deiner Vermutung. Vielen Dank. Und bitte entschuldige die späte Rückmeldung.

Grüsse,

Christoph