Hallo!
Habe ein kleines Problem und kenne mich leider nicht mit Makroprogrammierung aus.
Habe mehrer Zeilen in der Form:
A 1 2 3
B 4 5
C 7 8 9
D 10
welche in folgende Form gebracht werden sollen:
A 1
A 2
A 3
B 4
…
D 10
Hat hier jemand eine Lösung? Vielen Dank im Voraus!
Hallo Franz Moritz Peter, 
es wird voarusgesetzt die Daten stehen in A1:smiley:x.
in
For Z = 2 To Application.CountA(Range(Cells(Zei, 1), Cells(Zei, 4)))
steht die 4 für die vierte Spalte, also D, ggfs. anpassen.
Desgleichen dann für die Ergebnistabelle die 5 und 6 im Code
Sub tt()
Dim Zei As Long, Z As Long, Pos As Long
For Zei = 1 To Cells(Rows.Count, 1).End(xlUp).Row
For Z = 2 To Application.CountA(Range(Cells(Zei, 1), Cells(Zei, 4)))
Pos = Pos + 1
Cells(Pos, 5) = Cells(Zei, 1)
Cells(Pos, 6) = Cells(Zei, Z)
Next Z
Next Zei
End Sub
Gruß
Reinhard
Hallo,
Stichwort transponieren, in der Hilfe suchen.
Oder markiere mal paar Zellen A123, kopieren, ganz woanders eine Zelle markieren, dort Bearbeiten einfuegen transponieren Haekchen setzen ok
und gucken was passiert, erklaert sich selber.
Gruss Helmut
Hallo Reinhardt,
vielen Dank für die Hilfe. Habe die Parameter noch eingestellt und dann hat alles super geklappt! Ich sollte mal ein bißchen VBA lernen, ist eine gute Erleichterung.
Einen guten Rutsch ins neue Jahr!
Florian
Hallo Helmut,
mit Transponieren habe ich es vorher schon versucht, dies führt allerdings nicht zum gewünschten Ergebnis. Trotzdem vielen Dank!
Einen guten Rutsch!
Florian
mit Transponieren habe ich es vorher schon versucht, dies
führt allerdings nicht zum gewünschten Ergebnis. Trotzdem
vielen Dank!
Hallo Florian,
mit Transponieren geht es rein prinzipiell schon. Wird aber Theorie bleiben, würde nie jmd. machen, viel zu viele Einzeltransponationen plus Zusatzkopierereien.
Gruß
Reinhard