Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

ComboBox-List mit einem Bereich füllen

45 views
Skip to first unread message

Ralf Schollmeyer

unread,
Jun 27, 2004, 6:36:21 AM6/27/04
to
Hallo NG,
habe das Problem eine Combobox mit einem Range zu füllen. Ich bentzte den
Code:
ComboBox1.AddItem (Range("Name").Address)
Das Ergebniss ist im Prinzip das, dass nun in der Combobox der Adressbezug
$A$1:$A$20 steht und nicht die Zellinhalte des Bereichs.
Dazu kommt noch ein anderer Umstand, dass wenn der Bereich dynamisch ist,
nur ein Element in der Liste vorhanden ist und das ist wiederum ein
Zellbezug $A$1:$A$20.

Gibts irgendeine Möglichkeit, die tatsächlichen Zellinhalte von einem
Bereich in die Liste zu transferieren ohne dass eine For-Schleife odg
verwendet wird?

MfG
Ralf

Melanie Breden

unread,
Jun 27, 2004, 7:17:31 AM6/27/04
to
Hallo Ralf,

Ralf Schollmeyer schrieb:

verwende die RowSource-Eigenschaft der ComboBox:

Private Sub UserForm_Initialize()
ComboBox1.RowSource = Worksheets("Tabelle1").Range("A1:A20").Address
End Sub

--
Mit freundlichen Grüssen

Melanie Breden
- Microsoft MVP für Excel -

http://excel.codebooks.de (Das Excel-VBA Codebook)
#Excel-Auftragsprogrammierung#


Michael Zimmermann

unread,
Jun 27, 2004, 7:25:40 AM6/27/04
to
Hallo!

Ralf Schollmeyer:

Versuche

ComboBox1.RowSource = Range("Name").Address

oder

ComboBox1.List = Range("Name").Value


Ebenfalls interessant ist

ComboBox1.List = fld()

womit Du ein bestehendes Array als Listeninhalt zuweisen
kannst.

Gruß aus Mainz
Michael

Herbert Taferner

unread,
Jun 27, 2004, 7:39:47 AM6/27/04
to
Hallo Ralf,

> Dazu kommt noch ein anderer Umstand, dass wenn der Bereich dynamisch ist,
> nur ein Element in der Liste vorhanden ist und das ist wiederum ein
> Zellbezug $A$1:$A$20.
>
> Gibts irgendeine Möglichkeit, die tatsächlichen Zellinhalte von einem
> Bereich in die Liste zu transferieren ohne dass eine For-Schleife odg
> verwendet wird?
>

oder so,
wenn der Bereich schon dynamisch sein soll
z. B. von A1 bis A letzter Eintrag

'------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Lz
Dim Bereich

With ActiveSheet
.ComboBox1.ListFillRange = ""
Lz = .Cells(Rows.Count, 1).End(xlUp).Row
Bereich = "A1:A" & Lz
.ComboBox1.ListFillRange = Bereich
End With

End Sub
'------------------------------------------

mfg Herbert


Ralf Schollmeyer

unread,
Jun 27, 2004, 1:15:26 PM6/27/04
to
Danke Melanie

"Melanie Breden" <Melanie....@SPAMmvps.org> schrieb im Newsbeitrag
news:2k7omcF...@uni-berlin.de...

Ralf Schollmeyer

unread,
Jun 27, 2004, 1:15:43 PM6/27/04
to
Danke Michael

"Michael Zimmermann" <Zimme...@SZWeb.de> schrieb im Newsbeitrag
news:2k7p4eF...@uni-berlin.de...

Ralf Schollmeyer

unread,
Jun 27, 2004, 1:16:09 PM6/27/04
to
Danke Herbert

"Herbert Taferner" <t.he...@SPAMgmx.at> schrieb im Newsbeitrag
news:eskbbtDX...@TK2MSFTNGP12.phx.gbl...

Herbert Taferner

unread,
Jun 27, 2004, 1:51:57 PM6/27/04
to
Hallo Ralf,

> Danke Herbert

Bitte gern !

mfg Herbert


0 new messages