ListBox füllen

16/05/2008 - 09:48 von Harald Schlüter | Report spam
Guten Morgen!

Ich möchte eine Listbox, die sich in Tabelle 1 meiner Excel-Datei
befindet mit einem Range-Wert (die Anzahl der Werte variiert) aus
Tabelle 2 füllen.

Wie ist das möglich? Kann mir jemand einen VBA-Code nennen?

Vielen Dank und beste Grüße,

Harald
 

Lesen sie die antworten

#1 Claus Busch
16/05/2008 - 11:06 | Warnen spam
Hallo Harald,

Am Fri, 16 May 2008 00:48:30 -0700 (PDT) schrieb Harald Schlüter:

Ich möchte eine Listbox, die sich in Tabelle 1 meiner Excel-Datei
befindet mit einem Range-Wert (die Anzahl der Werte variiert) aus
Tabelle 2 füllen.



wenn die Anzahl der Werte variiert, benennst du den Bereich am Besten
mit einem dynamischen Bereichsnamen und beziehst dich dann auf diesen
Namen beim Befüllen der ListBox:
Sub ListBox_Fuellen()

'Dynamischen Bereichsnamen für die Liste in Tabelle2
'Spalte A erstellen (Bezüge anpassen)
ActiveWorkbook.Names.Add Name:="MeineListe", RefersToR1C1:= _
"=OFFSET(Tabelle2!R1C1,,,COUNTA(Tabelle2!C1),1)"

'Liste füllen
Sheets("Tabelle1").ListBox1.ListFillRange = "MeineListe"

End Sub


Mit freundlichen Grüssen
Claus Busch
Win XP Prof SP2 / Vista Ultimate
Office 2003 SP2 / 2007 Ultimate

Ähnliche fragen