Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 06:38:45
Kumulierte Daten für Intervalllaufeinheiten
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1732to1736
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
1732to1736
1732to1736
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige