Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts 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
1732to1736
1732to1736
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellen neu sortieren

Forumthread: Zellen neu sortieren

Zellen neu sortieren
20.01.2020 11:49:31
Frank
Hallo,
ich hab folgendes Problem. Ich möchte mittels einer Excel Datei Etiketten in Word drucken.
Der Datensatz umfasst dabei 12000 Etiketten welche im nächsten Schritt an einem Lager angebracht werden müssen. Dazu möchte ich, dass der zweite Datensatz an der 17. Stelle der dritte Datensatz an der 33 Stelle usw. Steht. Der 17 Datensatz soll dann an der zweiten Stelle stehen (und dann wieder +16). Ich hoffe das ist einigermaßen Verständlich.
Anders ausgedrückt, ich möchte den Datensatz nicht nebeneinander sondern untereinander sortiert haben.
Vielen Dank im Voraus
Gruß
Frank
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen neu sortieren
20.01.2020 12:13:03
fcs
Hallo Frank,
hast du schon mal versucht deine Ettikenmit der Ettiketen-Druckfunktion von MS-Word zu erstelen und dabei die Exelliste als Datenquelle verwendet?
Wenn die Reihenfolge der Eittiketten dabei nicht stimmt, dann musst du die Nummern in einer Hilfspalte neu festlegen (ggf. per Formel) und die Liste neu sortieren.
LG
Franz
Anzeige
AW: Zellen neu sortieren
20.01.2020 12:19:20
Rudi
Hallo, 
Sub aaaa()
Dim arrIN, arrOUT
Dim i As Long, j As Long, n As Long
arrIN = Cells(1, 1).CurrentRegion
ReDim arrOUT(1 To (UBound(arrIN) - 1) * UBound(arrIN, 2), 1 To 1)
For i = 2 To UBound(arrIN)
For j = 1 To UBound(arrIN, 2)
n = n + 1
arrOUT(n, 1) = arrIN(i, j)
Next
Next
Worksheets.Add.Cells(1, 1).Resize(UBound(arrOUT), 1) = arrOUT
End Sub

Gruß
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