Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema ListBox
BildScreenshot zu ListBox ListBox-Seite mit Beispielarbeitsmappe aufrufen

Werte in ListBox kopieren

Betrifft: Werte in ListBox kopieren von: Josef
Geschrieben am: 16.07.2008 13:03:25

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

  

Betrifft: AW: Werte in ListBox kopieren von: Holger
Geschrieben am: 16.07.2008 13:49:04

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


  

Betrifft: AW: Werte in ListBox kopieren von: Josef
Geschrieben am: 17.07.2008 06:05:20

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


  

Betrifft: AW: Werte in ListBox kopieren von: Holger
Geschrieben am: 17.07.2008 15:30:30

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


 

Beiträge aus den Excel-Beispielen zum Thema "Werte in ListBox kopieren"