Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Werte in ListBox kopieren

Forumthread: Werte in ListBox kopieren

Werte in ListBox kopieren
16.07.2008 13:03:25
Josef
Hallo!
Können gefundene Werte welche über eine Suche in einer Textbox in eine ListBox eingetragen werden, in der ListBox markiert und kopiert werden, um diese Werte dann in ein anderes Arbeitsblatt einzufügen?
Wie würde hier bitte eine VBA Lösung lauten?
Danke
Josef

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Werte in ListBox kopieren
16.07.2008 13:49:00
Holger
Hallo Josef,
du musst die ListBox mit der Multiselect-Eigenschaft versehen.
Die markierten Einträge kannst du mit der Selected-Eigenschaft abfragen und in das andere Arbeitsblatt ausgeben:
for i=0 to listbox1.count-1
if listbox1.selected(i)=true then sheet("anderes Arbeitsblatt").cells(Zeile,Spalte)=listbox1.list(i)
next i
Viel Erfolg
Holger

Anzeige
AW: Werte in ListBox kopieren
17.07.2008 06:05:20
Josef
Hallo Holger!
Danke für Deine Antwort. Habe es gerade getestet. Bekomme einen Fehlerhinweis bei count. (Eigenschaft wurde nicht gefunden. Der Eintrag in der ListBox wäre 4 spaltig.
Danke
Josef

AW: Werte in ListBox kopieren
17.07.2008 15:30:30
Holger
Hallo Josef,
du hast leider Recht, man sollte nicht einfach aus dem Gedächtnis heraus schreiben:
for i=0 to listbox1.listcount-1
if listbox1.selected(i)=true then sheet("anderes Arbeitsblatt").cells(Zeile,Spalte)=listbox1.list(i, Spalte der ListBox)
next i
Gruß
Holger
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige