Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1856to1860
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
Inhaltsverzeichnis

2 Textboxen sort

2 Textboxen sort
03.12.2021 12: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
Anzeige
AW: 2 Textboxen sort
03.12.2021 12: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 13: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
Anzeige
das sind mal identische Lösungen ;-)
03.12.2021 13:07:55
Rudi
was liegt näher?
Gruß
Rudi
Danke
03.12.2021 13:11:46
CMFA
dank passt
VG CMFA
dann geschlossen. owT
03.12.2021 13:12:16
Rudi

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige