Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
24.04.2024 17:19:09
Anzeige
Archiv - Navigation
744to748
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
744to748
744to748
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Werte umsortieren

Werte umsortieren
16.03.2006 17:51:16
Michael
Hallo,
ich habe eine Tabelle in welcher Werte von H2:AA13 stehen. Ich möchte den Beereich so umsortieren, dass die Werte von H3:HH3 in Spalte B alle unter einander geschrieben werden. Die Werte aus H2 bis AA2 sollen jeweils immer vor den ersten Wert kopiert werden und dann 12x mal nach unten kopiert werden. Ich hoffe das Problem war verständlich. zum Veranschaulichen habe ich eine Beispieldatei beigefügt.
https://www.herber.de/bbs/user/31971.xls
Micha

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Werte umsortieren
16.03.2006 19:05:29
ChrisL
Hallo Micha
H2:AA13 nach B2:C288

Sub t()
Dim iSpalte As Byte, iZeile As Byte
Dim LetzteZeile As Long
For iSpalte = 8 To 27
For iZeile = 2 To 13
LetzteZeile = Range("B65536").End(xlUp).Row + 1
Cells(LetzteZeile, 2) = Cells(1, iSpalte)
Cells(LetzteZeile, 3) = Cells(iZeile, iSpalte)
Next iZeile
Next iSpalte
End Sub

Gruss
Chris
AW: Werte umsortieren
16.03.2006 20:11:31
Michael
Hallo Chris,
leider klappt das nicht so wie gewollt. in C2 laufen die Werte durch, aber es wird nichts umsortiert.
Micha
AW: Werte umsortieren
16.03.2006 20:14:38
ChrisL
Hallo Micha
Problem ist, dass deine Beispieldatei und Fragestellung nicht übereinstimmen. Ich bin verwirrt, was wohin muss.
Code funktioniert so: H2:AA13 nach B2:C288
Gruss
Chris
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige