Dropdown-Fenster

• Dropdown-Fenster von Hannes vom 12.11.2003 13:39:54
  • AW: Dropdown-Fenster - von xXx am 12.11.2003 15:22:25
    • AW: Dropdown-Fenster - von Hannes am 12.11.2003 15:40:25
  • AW: Dropdown-Fenster - von Hannes am 12.11.2003 15:37:03

Betrifft: Dropdown-Fenster
von: Hannes
Geschrieben am: 12.11.2003 13:39:54
Hallo Excel-User,

ich habe folgende Aufgabenstellung:

mehrere Dropdown Felder erstellen, deren Information aus hinterlegten Tabellenblätter gezogen werden soll.

Beispiel: in Tabellenblatt 1 sind 5 Dropdown-Felder und in den Tabellenblättern 2-6 sind für jeweils ein Feld die Daten hinterlegt.

Ich möchte dann später nur das erste Tabellenblatt mit den asugewählten Daten ausdrucken.

So weit bin ich:
Ich kann ein DropDown-Feld erstellen, und habe auch die Daten eingegeben, jedoch über die Makros. Da später die Daten gepflegt werden müssen, sollte es über die Tabellenblätter laufen, denn dann kann auch jemand ohne Programmierkenntnisse die Daten nachpflegen.
Aber die Verknüpfung, das ich auf einen Click die Daten aus den anderen Blättern in meine Dropdown-Liste bekommen, schaffe ich nicht. In meinem Buch steht etwas von Worksheets, dass haut aber irgendwie nciht hin. Kann mir vielleicht jemand helfen?

Wäre super.
Gruß, Hannes

Betrifft: AW: Dropdown-Fenster
von: xXx
Geschrieben am: 12.11.2003 15:22:25
Hallo,
so gehts:

Private Sub Worksheet_Activate()
Dim Z As Integer
Z = Sheets("Tabelle2").Cells(65536, 1).End(xlUp).Row
ComboBox1.ListFillRange = "Tabelle2!A1:A" & Z
Z = Sheets("Tabelle3").Cells(65536, 1).End(xlUp).Row
ComboBox2.ListFillRange = "Tabelle3!A1:A" & Z
Z = Sheets("Tabelle4").Cells(65536, 1).End(xlUp).Row
ComboBox3.ListFillRange = "Tabelle4!A1:A" & Z
Z = Sheets("Tabelle5").Cells(65536, 1).End(xlUp).Row
ComboBox4.ListFillRange = "Tabelle5!A1:A" & Z
Z = Sheets("Tabelle6").Cells(65536, 1).End(xlUp).Row
ComboBox5.ListFillRange = "Tabelle6!A1:A" & Z
End Sub

Gruß aus'm Pott
Udo
http://www.excelerator.de

P.S. Das Forum lebt auch von den Rückmeldungen der Frager an die Antworter!

Betrifft: AW: Dropdown-Fenster
von: Hannes
Geschrieben am: 12.11.2003 15:40:25
Hallo Udo,

ich hab mir deinen Code gerade mal angeschaut und denke, dass ich damit etwas anfangen kann. Danke schon mal über die "erste Hilfe"!!!

Gruß, Hannes

Betrifft: AW: Dropdown-Fenster
von: Hannes
Geschrieben am: 12.11.2003 15:37:03
So siehts bisher aus:

Private Sub ComboBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
With ComboBox1
.AddItem "produkt 1"
.AddItem "Produkt 2"
End With
End Sub

Wie kann ich diese Daten aus Textfeldern aus weiter hinten liegenden Tebellenbkättern ziehen?