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

Forumthread: Übertrag von Daten aus Listbox in Tabell

Übertrag von Daten aus Listbox in Tabell
23.10.2021 13:42:33
Daten
Hallo,
ich benötige eure Hilfe bei der Übertragung der Daten aus der Listbox in eine andere Tabelle(hier: Tabelle1). Das Problem ist der Übertrag der 2. Spalte. Hierbei handelt es sich um Text mit Zeilenumbruch.
Die ListBox befülle ich mit folgendem Code:

With ListBox1
.Clear
.ColumnCount = 10
.ColumnWidths = "2,2cm;6,5cm;2cm;4cm;3,5cm;3,5cm;0cm;0cm;0cm;0cm"  'Spalte 6 Bestand wird ausgeblendet
'hier geändert von i=9 auf i=10 (ohne die Kopfzeilen)
'Spaltenbeschriftung über Label
For i = 11 To Worksheets(wsName).Cells(Rows.Count, "B").End(xlUp).Row          '11=ohne Saldozeile
Li = i - 9
str = Worksheets(wsName).Cells(i, 3)
If CDate(Worksheets(wsName).Cells(i, 2)) >= Startdatum And CDate(Cells(i, 2))  9 Then
If str = "" Then str = " "
arr = Split(str, " ")
str2 = arr(0)
For ii = 1 To UBound(arr)
If Len(str2 & arr(ii)) + 1 
Wie bekomme ich den Orginaltext in die entsprechende Zelle bezüglich: " .List(LC, 1) = Worksheets(wsName).Cells(i, 3) 'Original-Text speichern"
Besten Dank für eure Hilfe.
Gruss
Peter
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Übertrag von Daten aus Listbox in Tabell
23.10.2021 14:09:54
Daten
Hallo Peter,
Lade bitte mal eine Beispieldatei hoch oder wenigstens das Initialize deiner Userform. So kann man kaum einen sinnvollen Weg aufzeigen.
Gruß Uwe
AW: Übertrag von Daten aus Listbox in Tabell
23.10.2021 16:12:42
Daten
Hallo Uwe,
anbei die gewünschte Datei. Wie bereits ausgeführt sollen die Daten aus der Listbox in die Tabelle2 übertragen werden. Im Original sind diese nach Datum ausgesucht.
Datei anbei: https://www.herber.de/bbs/user/148762.xlsm
Gruss
Peter
Anzeige
AW: Übertrag von Daten aus Listbox in Tabell
23.10.2021 18:26:34
Daten
Hallo Peter,
weise diese Prozedur deinen Button zu:

Private Sub TabZweiSchreiben()
Dim Lz As Long, i As Long
With ListBox1
Lz = .ListCount
For i = 2 To Lz + 1 Step 2
Tabelle2.Cells((i / 2) + 9, 2) = .List(i - 2, 0)
Tabelle2.Cells((i / 2) + 9, 3) = .List(i - 2, 1) & " " & .List(i - 1, 1)
Tabelle2.Cells((i / 2) + 9, 4) = .List(i - 2, 2)
Tabelle2.Cells((i / 2) + 9, 5) = .List(i - 2, 3)
Tabelle2.Cells((i / 2) + 9, 6) = .List(i - 2, 4)
Tabelle2.Cells((i / 2) + 9, 7) = .List(i - 2, 5)
Tabelle2.Cells((i / 2) + 9, 8) = .List(i - 2, 6)
Next i
End With
End Sub
Gruß Uwe
Anzeige
AW: Übertrag von Daten aus Listbox in Tabell
23.10.2021 19:31:31
Daten
Hallo Uwe,
besten Dank für Deine Hilfe. Entsprechend dem Muster klappt das einwandfrei. Wenn jedoch die Zelle nur einzeilig ist in der Listbox, dann funktioniert der Code leider nicht. Kannst Du mir bitte nochmals helfen.
Ich habe für meinen Test die Zeilen mit Tgb.-Nr. 2, 5 und 7 gekürzt. ("Dies ist Test 5 mit einem Text".
Gruss
Peter
Anzeige
AW: Übertrag von Daten aus Listbox in Tabell
23.10.2021 23:30:22
Daten
Hallo Peter,
für mich ergibt sich da momentan kein wirklicher Lösungsansatz. Vielleicht kann da mal ein anderer Drüberschauen.
AW: Übertrag von Daten aus Listbox in Tabell
24.10.2021 01:39:14
Daten
Hallo Uwe,
besten Dank.
Gruss
Peter
AW: Übertrag von Daten aus Listbox in Tabell
24.10.2021 09:58:21
Daten
Hallo Uwe,
das mit dem Auslesen aus der Listbox funktioniert offensichtlich nicht so wie ich es mir erhofft hatte.
Habe aber jetzt eine Lösung gefunden. Es wird durchgeführt durch Filtern dann klappt es einwandfrei.
Gruss
Peter
Anzeige
;

Forumthreads zu verwandten Themen

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