Supportnet / Forum / Tabellenkalkulation
Makro für Textumstellung von senkrecht in waagrecht
Frage
Hallo,
habe eine Excel Liste die folgendermaßen aufgeteilt ist:
[b]Art.Nr. Textzeilennr. Text[/b]
4711_____1__________Text 1
4711_____2__________Text 2
0815_____1__________Text 1
0815_____2__________Text 2
0815_____3__________Text 3
Das Problem ist, die Textzeilennr. können variieren von
einer Zeile bis ......... je nachdem wie lange der Text ist.
Gibt es ein Makro das mir die Zeilen (pro Art.Nr.) von Senkrecht
in Waagrecht (jedes Textfeld eine Zelle) umsetzten kann?
Vielen Dank für die Hilfe!!!!!!
Jenny
Antwort 1 von Hajo_Zi
Hallo Jenny,
markieren, kopieren, Zielzelle wälen, Bearbeiten, Inhalte einfügen, Transponeren.
Gruß Hajo
markieren, kopieren, Zielzelle wälen, Bearbeiten, Inhalte einfügen, Transponeren.
Gruß Hajo
Antwort 2 von JennyC
Hallo Hajo,
schon mal vielen Dank!
Wieder was gelernt :-)
Ist aber bei einer ellenlange Liste aber doch
ziemlich umständlich.
Gibts noch eine andere Möglichkeit?
Ist halt nur schwierig, weil die Textlängen
unterschiedlich sein können.
LG
Jenny
schon mal vielen Dank!
Wieder was gelernt :-)
Ist aber bei einer ellenlange Liste aber doch
ziemlich umständlich.
Gibts noch eine andere Möglichkeit?
Ist halt nur schwierig, weil die Textlängen
unterschiedlich sein können.
LG
Jenny
Antwort 3 von Saarbauer
Hallo,
versuch es mal mit dem Makro
Sub umstellen()
letzteZeile = Range("A65536").End(xlUp).Row
For i = letzteZeile To 2 Step -1
If Range("b" & i).Value > 1 Then
Range("C" & i & ":Z" & i).Select
Selection.Cut Destination:=Range("D" & i - 1)
Rows(i & ":" & i).Select
Selection.Delete
End If
Next i
End Sub
Gehe von max. 24 folgetexten aus, sonst
Range("C" & i & ":Z" & i).Select
diese Zeile entsprechend ändern
Gruß
Helmut
versuch es mal mit dem Makro
Sub umstellen()
letzteZeile = Range("A65536").End(xlUp).Row
For i = letzteZeile To 2 Step -1
If Range("b" & i).Value > 1 Then
Range("C" & i & ":Z" & i).Select
Selection.Cut Destination:=Range("D" & i - 1)
Rows(i & ":" & i).Select
Selection.Delete
End If
Next i
End Sub
Gehe von max. 24 folgetexten aus, sonst
Range("C" & i & ":Z" & i).Select
diese Zeile entsprechend ändern
Gruß
Helmut
Antwort 4 von JennyC
Hallo Helmut,
dein Makro setzt mir die komplette Liste in waagrecht um,
hätte aber das gerne pro Artikel.
also so:
Art.Nr. Text1 Text2 Text3 etc.
LG
Jenny
dein Makro setzt mir die komplette Liste in waagrecht um,
hätte aber das gerne pro Artikel.
also so:
Art.Nr. Text1 Text2 Text3 etc.
LG
Jenny
Antwort 5 von Saarbauer
hallo,
bei mir im Test war es so wie du es beschreibst, ein Wert bleibt stehen, der wert vor dem Text 1.
Ich fange mit dem ganzen von unten an, da ich so weniger Probleme mit leeren Zeilen bekomme.
Gruß
Helmut
bei mir im Test war es so wie du es beschreibst, ein Wert bleibt stehen, der wert vor dem Text 1.
Ich fange mit dem ganzen von unten an, da ich so weniger Probleme mit leeren Zeilen bekomme.
Gruß
Helmut
Antwort 6 von JennyC
Hey Helmut,
ich glaube wir reden aneinander vorbei:
Dein Makro funktioniert schon, nur setzt es mir ALLES in eine Zeile.
Ich meinte dies sollte es für jede Art.Nr. tun
Art.Nr. 0815 Text 1 Text 2 Text 3
Art.Nr. 4711 Text 1 Text 2 Text 3
So meinte ich das.....
:-))
Jenny
ich glaube wir reden aneinander vorbei:
Dein Makro funktioniert schon, nur setzt es mir ALLES in eine Zeile.
Ich meinte dies sollte es für jede Art.Nr. tun
Art.Nr. 0815 Text 1 Text 2 Text 3
Art.Nr. 4711 Text 1 Text 2 Text 3
So meinte ich das.....
:-))
Jenny
Antwort 7 von Saarbauer
Hallo,
dann ändere es mal so ab
Sub umstellen()
letzteZeile = Range("A65536").End(xlUp).Row
For i = letzteZeile To 2 Step -1
If Range("A" & i).Value = Range("A" & i-1).Value Then
Range("C" & i & ":Z" & i).Select
Selection.Cut Destination:=Range("D" & i - 1)
Rows(i & ":" & i).Select
Selection.Delete
End If
Next i
End Sub
ich hatte die Abfrage auf die Textzeilennummer in Spalte B gemacht funktioniert anscheinend nicht so.
Gruß
Helmut
dann ändere es mal so ab
Sub umstellen()
letzteZeile = Range("A65536").End(xlUp).Row
For i = letzteZeile To 2 Step -1
If Range("A" & i).Value = Range("A" & i-1).Value Then
Range("C" & i & ":Z" & i).Select
Selection.Cut Destination:=Range("D" & i - 1)
Rows(i & ":" & i).Select
Selection.Delete
End If
Next i
End Sub
ich hatte die Abfrage auf die Textzeilennummer in Spalte B gemacht funktioniert anscheinend nicht so.
Gruß
Helmut