Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1288to1292
1288to1292
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Listbox per makro füllen lassen

Forumthread: Listbox per makro füllen lassen

Listbox per makro füllen lassen
28.11.2012 13:01:35
joachim
Hallo !
Wie kann ich eine Listbox per makro "füllen" lassen ?
Bitte um kurze Hilfe !!
DAnke !

Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
gib mal bei Listensuche:Listbox ein.. owT
28.11.2012 13:04:55
robert

AW: Listbox per makro füllen lassen
28.11.2012 13:07:02
Rudi
Hallo,
du kannst
a) Die ListFillRange-Eigenschaft festlegen oder
b) die List-Eigenschaft festlegen oder
c) mit der AddItem-Methode arbeiten
Kommt drauf an, was du bezweckst. Ich bevorzuge b)
Gruß
Rudi

AW: Listbox per makro füllen lassen
28.11.2012 13:13:07
joachim
Hallo Rudi,
ich habe eine Tabelle wo die anzahl Einträge unterschiedlich ist..
Spalte A
zeile1 Text1
zeile2 Text2
zeile3 Text3
zeile4 Text4
In der Listbox stehen dann die 4 Einträge Text1-4
Wie würde der Befehl dann aussehen ?
danke !
gruß
joachim

Anzeige
AW: Listbox per makro füllen lassen
28.11.2012 13:29:21
Rudi
Hallo,
z.B. 
with sheets("Tabelle1")
listbox1.list = .range(.cells(1,1), .cells(1,1).end(xldown)).value
end with

Gruß
Rudi

AW: Listbox per makro füllen lassen
28.11.2012 13:38:46
joachim
danke !

AW: Listbox per makro füllen lassen
28.11.2012 15:07:29
joachim
Hallo Rudi,
habe es gerade getestet.... Leider bringt er eine Fehlermeldung
Objekt unterstützt diese Eigenschaft oder Methode nicht..
With Sheets("buchung").ListBox3
.List = .Range(.Cells(1, 26), .Cells(1, 26).End(xlDown)).Value
End With
kannst du helfen ?
danke !
Gruß
joachim

Anzeige
AW: Listbox per makro füllen lassen
28.11.2012 16:10:08
Rudi
Hallo,
eine Listbox hat doch keine Range-Eigenschaft! 
With Sheets("buchung")
.ListBox3.List = .Range(.Cells(1, 26), .Cells(1, 26).End(xlDown)).Value
End With

Gruß
Rudi

btw:...
28.11.2012 16:11:42
Rudi
Hallo,
vorhin hast du doch schonmal fast den gleichen Fehler gemacht.
Gruß
Rudi
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige