ListBox mit Befehlen auf Tabellenblatt bringen

[Büroklammer]

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.

[maninweb]

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ß

[snb]

Code:

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

[Büroklammer]

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.

[snb]

Es gibt noch mehr:

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

Es wartet auf dich.