28. März 2024, 20:10
VB-fun.de - Beitragsübersicht zum VB-/VBA-Forum-Archiv 0407
  E03: Einträge in der Listbox
 Von zfwez
 eMail
 Am 19. April 2008 um 14:58:21
 Frage Hallo,
in meiner Listbox habe ich z.B. 119 Einträge. Wähle ich ein oder mehrere aus, werden die dazu gehörigen Spalten in eine neu erstellte Tabelle kopiert. So weit so gut, jedoch ab dem 49 Eintrag in der Listbox wird nichts mehr kopiert !!
Hier mein Code :
lngSpalteNeu = 1 'Spalte B
For lngI = 0 To ListBox3.ListCount - 1
If ListBox3.Selected(lngI) Then
lngZeile = ListBox3.List(lngI, 1)
ListBox3.List(ListBox3.ListCount - 1, 1) = lngSpalte 'zeilennummern zusätzlich In Listbox eintragen
lngLetzteSpalte = wksTab.Cells(lngZeile, wksTab.Columns.Count).End(xlToLeft).Column
lngSpalteNeu = lngSpalteNeu + 1 '=Spalte B
wksNeu.Cells(1, lngSpalteNeu).Value = "Abs-Sample " & (lngSpalte / 2)
For lngSpalte = 1 To lngLetzteSpalte
wksNeu.Cells(lngSpalte / 1, lngSpalteNeu).Value = wksTab.Cells(lngSpalte, lngZeile).Value
Next
End If
Next
Danke im voraus und ein schönes WO
Gruß
zfwez
[ VB-/VBA-Forum | Archiv 0407 | Archiv-Übersicht ]
 Antworten
E03: Einträge in der Listbox - zfwez 19. April 2008 um 14:58:21
Re: Einträge in der Listbox - r.mueller@sz-online.de 20. April 2008 um 10:24:34
Re: Einträge in der Listbox - zfwez 20. April 2008 um 13:00:35
Re: Einträge in der Listbox - r.mueller@sz-online.de 20. April 2008 um 14:12:09
Re: Einträge in der Listbox - zfwez 20. April 2008 um 15:31:50
Re: Einträge in der Listbox - r.mueller@sz-online.de 20. April 2008 um 18:51:35

Zum Seitenanfang

Startseite | VB-/VBA-Tipps | Projekte | Tutorials | API-Referenz | Komponenten | Bücherecke | Gewinnspiele | VB-/VBA-Forum | DirectX | DirectX-Forum | VB.Net | VB.Net-Forum | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum