Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon JennyC vom 17.07.2019, 13:09 Options
Makro für Textumstellung von senkrecht in waagrecht
Hallo,
habe eine Excel Liste die folgendermaßen aufgeteilt ist:
Art.Nr. Textzeilennr. Text
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
habe eine Excel Liste die folgendermaßen aufgeteilt ist:
Art.Nr. Textzeilennr. Text
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 vom 17.07.2019, 13:20 Options
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 vom 17.07.2019, 13:29 Options
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 vom 17.07.2019, 14:04 Options
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 vom 17.07.2019, 15:05 Options
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 vom 17.07.2019, 15:48 Options
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 vom 17.07.2019, 16:28 Options
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 vom 17.07.2019, 17:48 Options
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
Ähnliche Themen
Makros - zweiten Drucker als Symbol in die Symbolleiste einfügen
Mikoop 24.11.2006 - 4092 Hits - 1 Antwort
Änderung der Taskleiste
DASA 12.01.2007 - 261 Hits - 1 Antwort
desktop
dr60roby 13.01.2007 - 54 Hits - 3 Antworten
kann wegen makro nicht drucken - was machen?
srepsac 26.06.2007 - 118 Hits - 1 Antwort
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
