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 |
|