Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Listboxendaten in Tabelle übertragen

Listboxendaten in Tabelle übertragen
19.03.2021 04:35:09
Ranjid
Guten Morgen werte Forengemeinschaft,
Ich muss aus zahlreichen multiselect Listboxen (138) Daten in eine Tabelle schreiben. Da ich vermeiden will, jede Listbox einzelnen auszulesen, habe ich mit eine Hilfstabelle erstellt und in dieser die Namen der Listboxen inklusive der Spalten und Startzeile hinterlegt, in welche die Daten übertragen werden soll. Nun mein Problem. Spreche ich eine einzelnen Listbox an, kann ich die Daten wie gewünscht übertragen:
Dim a As Integer
With ListBox_RK_BM1
For a = 0 To .ListCount - 1
If .Selected(a) Then
Sheets("RM-Vorschlag").Range("AQ" & (a + 4)) = .List(a)
End If
Next a
End With
Nun habe ich versucht, dass Ganze zu automatisieren:
Worksheets("HT_RM-Vorschlag").Activate
Dim LastRow As Long
Dim a, b, c, Spalte, ErsteZeile As Integer
LastRow = Cells(Rows.Count, 2).End(xlUp).Row
For a = 2 To LastRow
Spalte = Sheets("HT_RM-Vorschlag").Cells(a, 4)
ErsteZeile = Sheets("HT_RM-Vorschlag").Cells(a, 5)
c = 0
With Sheets("HT_RM-Vorschlag").Cells(a, 2).Value
For b = 0 To .ListCount - 1
If .Selected(b) Then
Sheets("RM-Vorschlag").Cells(ErsteZeile + c, Spalte) = .List(b)
c = c + 1
End If
Next b
End With
Next a
Zwar bekomme ich mit "With Sheets("HT_RM-Vorschlag").Cells(a, 2).Value" den Wert für die jeweils gewünschte Listbox wieder, aber bei der Zeile "For b = 0 To .ListCount - 1" erhalte ich dann einen "Laufzeitfehler '424': Objekt erforderlich". Lasse ich das Value weg, der Fehler zu einem "Laufzeitfehler '438': Objekt unterstützt diese Eigenschaft oder Methode nicht" draus. Was mache ich Falsch oder welche andere für Beginner geeignete Lösungsmöglichkeit bleibt mir, um die Daten aus den Listboxen zu übertragen, ohne das ich obigen Siebenzeiler 137 Mal angepasst in den Code kopieren muss?
Vielen Dank schon mal für eure Hilfe.
ps.: Sorry dafür, dass ich keine Funktion dafür gefunden habe, den Code gegenüber dem Text abzuheben.

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Listboxendaten in Tabelle übertragen
19.03.2021 05:23:58
Hajo_Zi
Sheets("HT_RM-Vorschlag").Cells(a, 2) hat keine Eigenschaft .List(b)
Zu Deiner Datei kann ich nichts schreiben, was wohl daran liegt das ich nicht auf fremde Rechner schaue.Ich baue keine Datei nach.
Sollte die Datei verlinkt werden?
Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten
http://www.ms-office-forum.de/forum/showthread.php?t=322895
ändern.
Bilder lade ich mir nicht runter, da Excel damit nichts anfangen kann.
http://www.excel-ist-sexy.de/bilder-statt-datei/
Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.
Das ist nur meine Meinung zu dem Thema.
http://www.excel-ist-sexy.de/bilder-statt-datei/
Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.
Das ist nur meine Meinung zu dem Thema.
Falls Link nicht ausgeführt wird:
1. Link kopieren
2. rechte Maustaste neues Fenter.
3. Umschaltstaste drücken und Klick auf den Link
4. STRG+ Link mit Maus aktivieren
Bild
Homepage

Anzeige
AW: Listboxendaten in Tabelle übertragen
19.03.2021 07:33:04
ralf_b
müßte das with nicht auf die Listbox zeigen
With Sheets("HT_RM-Vorschlag").Cells(a, 2).Value
For b = 0 To .ListCount - 1
If .Selected(b) Then
Sheets("RM-Vorschlag").Cells(ErsteZeile + c, Spalte) = .List(b)

;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige