Office: Combobox in Userform füllen

Hallo, zusammen
ich glaube ich sitz gerade voll auf der Leitung :-D
ich komme nicht drauf.
Das ist mein Problem:

Ich habe ein Userform mit einem ComboBox und ich will als Rowsource der Combobox alle
Bereichsnamen die ich vorher in einem Tabellenblatt definiert habe auflisten.

ist das möglich????


Danke Euch allen

Gruß Andre

:)

 

Hallo Adre,

schreibe den Bereich bei RowSource ein.
Tabelle1:A1:A10

 

Hey danke, aber ich habe es falsch ausgedrückt
ich habe in einem Tabellen blatt Mehrere Bereiche
die zum beispiel heisen


Bereich 1
Bereich 2
Bereich 3
.
.
.

Ich will jetzt das alle Bereiche wo imme sie im Tabellenblatt liegen
aufgelistet werden und in das Rowsource gelegt werden
das ich über den Drop down den Bereich wählen kann den ich will

Gruß

 

Hallo Andre,
Code:

 

ich habe jetzt den code in im Userform kopiert
jetzt habe ich 2 probs

1. wenn ich das so reinschreibe
bekommen ich beim start der Userforms einen Laufzeitfehler "1004"
und 2.
ich dachte so Rowsource muss ich über initialize füllen und nicht über Activate

 

ich fülle nicht RowSource ich benutze AddItem. Es muss einen Bereich1 und Bereich2 für den Code geben.
initialize wird nur einmal in der Sitzung ausgeführt, darum benuitze ich Activate.

 

ok jetzt fällt der Groschen *biggrin.gif*

des mit dem Bereich 1 und Bereich 2 .... war nur ein Beispiel
in wirklichkeit heißen die Bereiche anders! wollte sie jetzt nur nicht alle auf
zählen *biggrin.gif*
gibt eine möglichkeit für meine Ausführung

weil ich kann ja über einen befehl alle BereichsNamen aufzählen und in zellen schreiben wie kann ich diese ohne sie in zellen zu schreiben direkt in das Rowsource bzw Combobox einpflegen.

hier der auflist befehl für Bereichsnamen


Option Explicit

Sub AlleNameProtokollieren()

Dim BekannteBereiche As Object
'Variable deklarieren

Sheets("Tabelle1").Activate
Range("A1").Select
'Tabllenblatt der Auflistung und Zelle angeben

For Each BekannteBereiche In ActiveWorkbook.Names
ActiveCell.Value = BekannteBereiche.Name

ActiveCell.Offset(1, 0).Select
Next
End Sub

 

Hallo Andre,

ich habe jetzt 2 Lösungsvorschläge erarbeitet und jedesmal wurde dann die Aufgabe geändert. Ich bin der Auffassung ich habe meinen Willen zur Lösuntg gezeigt. Jetzt lasse ich andere ran.

 

geändert hat sich gar nix aber wenn du meinst

 

1. Es sind mehrere Bereich nich einer
2 Die Bereiche haben nicht mehr den Namen Bereich1 , Bereich2 usw.

Also zählen kann ich schon.

 

Hallo Andre,

je nachdem, wie genau Du die Bereiche erstellt hast (global für die Mappe oder lokal für die betreffende Tabelle):

Code:

Die erste Schleife arbeitet die Namen des Tabellenblattes ab, die 2. die des Workbooks.

Die ganze "Activaterei" und "Selecterei" in Deinem Code kannst Du Dir aber schenken....

Grüße
EarlFred