Office: excel vba dropdownliste füllen

Hallo,

ich habe zwar im Internet einige Beispiele gesehen, wie das Füllen von Dropdownlisten funktioniert, komme aber in meinem Fall nicht dahinter.

Ich habe 2 Tabellen in Excel die "dlgArchiv" und die "Archiv". In Archiv sind ein paar Spalten mit Überschriften und Daten. In dlgArchiv befindet sich ein Dialogfeldrahmen und in diesem Rahmen platziere ich ein Dropdownfeld.
Wie kann ich nun dieses Dropdownfeld mittels vba ansprechen und mit den Überschriften z.B.: Von A1 bis H1 befüllen?
Das Befüllen soll beim Anzeigen des Dialogfeldrahmen automatisch funktionieren.

Mit

Sub Dialogfeldrahmen1_BeiAnzeigen()
Dropdown8.AddItem ("test")
End Sub

funktioniert das nicht, da er das Objekt nicht findet.

Benutze Excel 2003!

danke acdc

:)

 

Moin,acdc_1,

und ganz banal über Daten/Gültigkeit und einen vergebenen Namen funktioniert das nicht? Kannst Du bitte mal ein Beispiel anhängen - ich denke jetzt gerade nämlich an Excel95-Dialogblätter, wenn ich Deinen Beispielcode sehe.

 

Anbei mein Excelsheet!

Ich habe das Ganze bereits bestehend übernommen und muss es jetzt verändern. Ich denke ich sollte im vba ein Formular machen, dass ist vielleicht einfacher. Bin da aber nicht sehr erfahren.

acdc

 

Moin, acdc_1,

lag ich doch mit meiner Vermutung richtig. Diese Art der Formulargestaltung wurde ab Excel97 durch Verwendung der VBE und UserForms ersetzt - und nach mehr als 12 Jahren kann das Teil wohl auch eine Überarbeitung vertragen. Und auch der Code darf den Gegebenheiten zumindest der Zeiten bis Excel2003 bezüglich der Zahl der verfügbaren Zeilen Rechnung tragen...

Im Klartext: per ALT+F11 in die VBE, über Einfügen eine neue UserForm infügen, ein Listenfeld auf die UF setzen, unter Eigenschaften bei ColumnCount 7 einsetzen, die Breite unter ColumnWidth in cm durch Semikola getrennt vorgeben (wird beim Verlassen automatisch in pt umgerechnet) , ColumnHeads auf True, RowSource auf testweise Archiv!A2:H3 (dies ist statisch und nur für die Erstellung, dies kann später durch die Verwendung eines Namens dynamisisert werden). Und dann geht´s weiter, was passieren soll, wenn ein Element ausgewählt wird, was passiert, wenn eine der beiden Schaltflächen, die auf die UF gehören, gedrückt wird...

Hinweis: Mappe1, Beispiel oder Test sind ganz hervorragende Namen, um mich von der Ansicht dieser Anhänge abzuhalten - ich hatte diesen Monat schon 10x Test. Aber wir haben ja schon den letzten Tag diese Monats...

 

Danke für die ausführliche Antwort. Jetzt habe ich jedoch noch das Problem:

Private Sub abbruchButton_Click()
form.Hide
End Sub

Eigentlich gehört hier ein unload form , das funktioniert jedoch nicht, weil man eine form nicht geladen bzw. entladen werden kann. hide löscht ja nicht aus dem Speicher.

Private Sub UserForm_Initialize()
Me.Combo.Text = Sheets("Archiv").Cells(1, 1).Value


For i = 1 To 7
Me.Combo.AddItem (Sheets("Archiv").Cells(1, i).Value)

 

moin acdc, moin jinx

Versuch für den Abbruch Button
Code:

und unter UserForm_Initialize()
Code:

Gruß Sven