Clever-Excel-Forum

Hallo,

ich habe ein für euch sehr leichtes Problem. Ich will auf mein Tabellenblatt eine ListBox bringen.

Diese ListBox soll mit folgenden Elementen gefüllt werden:

with ListBox1
.AddItem "Befehl1"
.AddItem "Befehl2"
.AddItem "Befehl3"
End With

Die Befehle 1 bis 3 führen dann zu Funktionsaufrufen, die auf meinem Tabellenblatt von
mir gewünschte und noch zu programmierende Aktionen ausführen.

Mein Problem: Ich kriege das nicht hin. Wenn ich auf den Entwurfsmodus gehe und die entsprechende
ListBox1 auf meinem Tabellenblatt einfüge komme ich nicht mehr weiter.
Danke schon mal im voraus für eure Hilfe.

Hallo,

anbei mal ein Beispiel. Ruft in Workbook_Open die Prozedur Initialisierung aus dem entsprechenden Modul auf, um die Listbox zu füllen.
Ruft auf dem Codemodul zur Tabelle die entsprechenden Befehle als Makro auf.

Gruß

Code:
Private Sub Workbook_Open()

  Sheets(1).OLEObjects(1).Object.List = ["Befehl "&row(1:5)]

End Sub

Danke!

Ich habe mir den A... und H... aufgerissen, um so etwas hinzukriegen. Nichts zu machen.

Da fehlten mir dann doch noch die entscheidenden Kenntnisse. Auch eine Recherche

vermochte diese Lücke nicht aufzufüllen.

Schön, dass es ein solches Forum, mit solchen Experten wie euch gibt.

Es gibt noch mehr:

http://www.snb-vba.eu/VBA_Fill_combobox_listbox_en.html

Es wartet auf dich.

Büroklammer

maninweb

snb

Büroklammer

snb