Live-Forum - Die aktuellen Beiträge
Datum
Titel
12.10.2025 22:05:57
Erstellen von Links durch Zellenverknüpfung
12.10.2025 18:08:18
Behälter-, Bestandsmanagement
12.10.2025 12:13:05
Excel hat alter Version synchronisiert (aktuelle Daten weg)
12.10.2025 09:40:32
Wert in Exceltabellen suchen und Fundstelle ausgeben
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1856to1860
1856to1860
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

2 Textboxen sort

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

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

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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