Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
19.04.2024 12:23:24
Wenn-Formel anpassen
19.04.2024 12:09:19
Unique (Application.WorksheetFunction.Unique)
19.04.2024 11:51:37
Nächsten identischen Treffer suchen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1908to1912
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1908to1912
1908to1912
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

String in Listbox, 2 Spalten

String in Listbox, 2 Spalten
24.11.2022 09:13:00
MCO
Guten Morgen!
Aus einer SQL-Abfrage erhalte ich einen Text-String mit mehreren aneinandergehängten Datensätzen zurück.
Die Syntax ist "Auftragsnummer,Pos§Auftragsnummer,Pos§"
Hier der String

Liste_mod ="25403025,100§25403025,200§25403025,300§25429041,100§25429041,200§25429041,300§
Endergebnis soll sein, dass ich mit den Datensätzen 2 Spalten einer Listbox fülle.
Um die Daten in 1 Zelle zu bekommen hab ich es schon fertig, aber wie muss ich vorgehen, um ein 2-dimensionales Datenfeld zu füllen?
Das hab ich bisher

    Data = Split(Liste_mod, "§") 'erzeugt ein 1-dimensionales Datenfeld
'    With Me.Controls("Liaz_liste")
'        For i = 0 To UBound(Data)
'            .AddItem
'            For j = 0 To 1 '10 spalten max
'                .List(i, j) = Data(i)(j) 'schon für mehrfachspalten
'            Next j
'        Next i
'    End With
Wahrscheinlich ist es mal wieder supereinfach, ich komm bloss nicht drauf....
Danke fürs durchsehen...
Gruß, MCO

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: String in Listbox, 2 Spalten
24.11.2022 09:19:31
Oberschlumpf
Moin!
ja, so würd ich auch beginnen:
mit Data = Split(Liste_mod, "§") erhältst du ja schon mal...
25403025,100
25403025,200
25403025,300
25429041,100
25429041,200
25429041,300
...und jetzt würd ich mit Split(DieEinträgeVonOben, ",") die Ergebnisse so verteilen...

Spalte 1      Spalte 2
25403025  100
25403025  200
25403025  300
25429041  100
25429041  200
25429041  300
Hilft das als Denkanstoß?
Ciao
Thorsten
AW: String in Listbox, 2 Spalten
24.11.2022 09:47:47
MCO
Hallo Thorsten!
Das satzweise durchhecheln wollte ich eigentlich vermeiden mit .list = alle datensätze reinhauen, aber jetzt hab ich es so umgesetzt, wie du es auch vorgeschlagen hast.

    data = Split(Liste_mod, "§")
With Me.Controls("Liaz_liste")
For i = 0 To UBound(data) - 1
.AddItem
For j = 0 To 1
.List(i, j) = Split(data(i), ",")(j)
Next j
Next i
End With
Danke Dir!
Gruß, MCO
Anzeige
AW: String in Listbox, 2 Spalten
24.11.2022 09:58:43
Oberschlumpf
Hi,
ok, andere Idee - hier aber nur Denkanstoß, kein Code, weil ich den durch selbst ausprobieren erst mal ermitteln müsste - und ich weiß nich mal, ob das geht^^ :-)
Dann erstell doch z Bsp mit...

Data = Split(Split(Liste_mod, "§"), ",")
...gleich sofort ein 2dimensionales Array, welches deine Daten aus der SQL-Abfrage gleich so enthält, wie du sie für die Listbox benötigst.
Wie gesagt, nur noch ein Denkanstoß, bzw eigtl nur eine Idee, wie es vielleicht auch funktionieren kann :-)
Hilfts?
Ciao
Thorsten

Links zu Excel-Dialogen

ListBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige