Werte in ListBox kopieren

Forumthread: Werte in ListBox kopieren
3 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Werte in ListBox kopieren

16.07.2008 15: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

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Werte in ListBox kopieren

16.07.2008 15:49:00

Holger
AW: Werte in ListBox kopieren

17.07.2008 08:05:20

Josef
AW: Werte in ListBox kopieren

17.07.2008 17:30:30

Holger

AW: Werte in ListBox kopieren

16.07.2008 15: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

AW: Werte in ListBox kopieren

17.07.2008 08: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 17: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