Excel - VBA - RowSource und Folgeproblem mit +10 Spalten

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

Penguin — Thu, 18 Sep 2014 06:50:23 GMT

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

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

Penguin — Thu, 18 Sep 2014 06:50:23 GMT

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

SunnyHill — Wed, 17 Sep 2014 14:45:33 GMT

Hallo!
Ist mir schon klar; jedoch sind teilweise Firmensachen drin, welche es zu aufwendig machen würden, diese alle vorher zu "cleanen".

Das Witzig an der Sache ist, dass das Programm - Harry Potter läßt grüßen - drei oder vier Mal ohne Probleme und ohne Abänderung des Codes durchlaufen haben lassen können

Die Freude war groß, und die Enttäuschung wenige Starts danach wieder größer; gleiche Fehlermeldung bzw. Abbruch beim ersten Versuch mittels .list-Anweisung aus der Listbox Daten ins Worksheet zu schreiben

Bin erst am SA wieder im Büro, und werde dann den Code versuchen hochzuladen.

VIelleicht weiß auch jemand trotztdem eine Hilfe

Danke, und lG - SunnyHill

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

AntiBit — Wed, 17 Sep 2014 13:48:53 GMT

Hi,
es wäre wesentlich leichter dir zu helfen, wenn du das Workbook attachen oder irgendwo raufladen würdest.

Excel - VBA - RowSource und Folgeproblem mit +10 Spalten

SunnyHill — Wed, 17 Sep 2014 09:22:01 GMT

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