Re: Excel - VBA - RowSource und Folgeproblem mit +10 Spalten

Excel - VBA - RowSource und Folgeproblem mit +10 Spalten (6 Beiträge, 129 Mal gelesen)

Du bist nicht angemeldet. [ Login/Registrieren ]

Hallo zusammen!

Habe folgendes Problem mit VBA:

Habe eine Tabelle mit insgesamt 26 Spalten (A:Z), welche nach autom. Filterung, das Filterergebnis in eine eigene Zwischentabelle kopiert, aus welcher folgend in eine UserForm -> Listbox mittels .rowsource die Filterdaten einliest. Soweit so gut.

Sobald ich dann in der Listbox Zeilen selektiere, und diese folgend in ein Tabellenblatt eintragen möchte, bricht Excel bei der erste .list-Aufgabe mit einer Fehlermeldung ab (singemäß zu wenig Speicher verfügbar).

Ohne RowSource habe ich es auch schon versucht, kann dann aber definitiv "nur" bis zu 10 Spalten mit .list auslesen und eintragen. Ich benötigte aber mind. 15 Zeilenbereichergebnisse

Hier Auszüge der relevanten Codebereiche:

[Code]
.....
[A1].CurrentRegion.Copy Sheets("Dummy").Cells(1, 1)

With lstPersonen
.ColumnCount = True
.RowSource = Sheets("Dummy").Cells(1, 1).CurrentRegion.Address
End With
.....
[/Code]

[Code]
With lstPersonen
  For i = 0 To .ListCount - 1
       If .Selected(i) = True Then
        s = s + 1
        Range("Ergebnis!A" & wo).Value = "Person Nr. " & s
        Range("Ergebis!A" & wo + 1).Value = "Familienname:"
        Range("Ergebis!C" & wo + 1).Value = .list(i, 0)
        ....
        Range("Ergebnis!A" & wo+15).value ="Artikelnummer:"
        Range("Ergebnis!C" & wo+15).value=.list(i,24)
...
[/Code]

Ich stehe nun schon seit Stunden am Schlauch, und weiß nicht, wo ich den Fehler habe.
Vielleicht kann mir jemand auf die Sprünge helfen.
Danke

Alles stimmt. Aber auch das Gegenteil.

Re: Excel - VBA - RowSource und Folgeproblem mit +10 Spalten (AntiBit am 17.09.2014, 15:48:53)

Re(2): Excel - VBA - RowSource und Folgeproblem mit +10 Spalten (SunnyHill am 17.09.2014, 16:45:33)

Vom Autor zurückgezogen oder Autor hat seine Registrierung nicht bestätigt (Penguin am 17.09.2014, 21:43:36)

bzw. ich hab mir das problem noch mal angeschaut - sofern ich deine anforderung richtig verstanden habe ist meine (geänderte) Datei schon die Lösung, die Userform frmLargeSel ist die, die du brauchst...

https://forum.geizhals.at/files/363/userform.xlsm

Hab 30 Spalten und 10 000 Werte je Spalte als Quelle verwendet --> kein Problem.

Wenn du lieber anstelle der einen Zeile die ins Excel geschrieben wirst, alle in der Listbox befindlichen schreiben willst, ersetze diese Zeile:
OutputSheet.Cells(1, 1).Offset(0, 0).Range("a1:ad1") = Me.lstPersonen.List(Me.lstPersonen.ListIndex)

mit dieser

OutputSheet.Cells(1, 1).Offset(0, 0).Range("a1:ad" & me.lstPersonen.list.count) = Me.lstPersonen.List

mfg

Penguin

18.09.2014, 08:54 Uhr - Editiert von Penguin, alte Version: hier

Dieses Forum ist eine frei zugängliche Diskussionsplattform.
Der Betreiber übernimmt keine Verantwortung für den Inhalt der Beiträge und behält sich das Recht vor, Beiträge mit rechtswidrigem oder anstößigem Inhalt zu löschen.
Datenschutzerklärung