2 Textboxen sort

Forumthread: 2 Textboxen sort
5 Beiträge zu diesem Forumthread
Anzeige

Forumthread: 2 Textboxen sort

2 Textboxen sort

03.12.2021 13:26:33

CMFA

Hallo Forum,
ich habe ein kleines Problem. Es geht um die Sortierung von zwei TextBoxen. Die eine TextBox ist mit Namen, diese sind vorgegeben. Die zweite Box dort werden entsprechend der ersten TextBox Zahlen eingetragen. Beim verlassen der TextBox zwei soll eine Sortierung der Zahlen erfolgen, was auch klappt. Nun soll aber die erste TextBox mit sortiert werden. entsprechende Datei angehängt.
Das Ergebnis sollte dann so aussehen
Küche 8847 2206
Bad 8847 2207
usw.
https://www.herber.de/bbs/user/149550.xlsm
Wie kann ich das erreichen?
VG CMFA

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: 2 Textboxen sort

03.12.2021 13:59:14

Rudi
AW: 2 Textboxen sort

03.12.2021 14:02:57

Nepumuk
das sind mal identische Lösungen ;-)

03.12.2021 14:07:55

Rudi
Danke

03.12.2021 14:11:46

CMFA
dann geschlossen. owT

03.12.2021 14:12:16

Rudi

AW: 2 Textboxen sort

03.12.2021 13:59:14

Rudi

Hallo,
einfach so:


Sub sortieren(x As String, y As String)
Dim i As Integer, j As Integer, arrTmpX, TmpX, arrTmpY, TmpY
arrTmpX = Split(x, Chr(10))
arrTmpY = Split(y, Chr(10))
For i = 0 To UBound(arrTmpX)
For j = i + 1 To UBound(arrTmpX)
If arrTmpX(i) > arrTmpX(j) Then 'war

Gruß
Rudi

AW: 2 Textboxen sort

03.12.2021 14:02:57

Nepumuk

Hallo,
teste mal:


Option Explicit
Sub sortieren(x As String, y As String)
Dim i As Integer, j As Integer, arrTmp1, arrTmp2, Tmp
arrTmp1 = Split(x, Chr(10))
arrTmp2 = Split(y, Chr(10))
For i = 0 To UBound(arrTmp1)
For j = i + 1 To UBound(arrTmp1)
If arrTmp1(i) > arrTmp1(j) Then 'war

Gruß
Nepumuk

das sind mal identische Lösungen ;-)

03.12.2021 14:07:55

Rudi

was liegt näher?
Gruß
Rudi

Danke

03.12.2021 14:11:46

CMFA

dank passt
VG CMFA

dann geschlossen. owT

03.12.2021 14:12:16

Rudi