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 Zwiebel vom 11.04.2019, 10:42 Options
Makro für senkrechte Zellen in waagrechte umsetzen
Hallo zusammen,
habe da eine Frage und hoffe mir kann da jemand helfen:
Ich habe eine Excel Liste
(Zeile 1 als Überschrift)
Spalte A - Art.Nr.
Spalte B - Kurztext
Spalte C - Zeilennummer (für den Langtext)
Spalte D- Langtext
Der Langtext verteilt sich dann über 3 Zellen
zb. D1, D2, D3
Kann mir jemand ein Marko nennen, wie ich die
Zellen D1 bis D3 nebeneinander dargestellt bekomme?
Also in D1, E1 und F1?
Die anderen Zeilen sollten dann gelöscht werden.
Vielen Dank für Eure Hilfe
Jenny
habe da eine Frage und hoffe mir kann da jemand helfen:
Ich habe eine Excel Liste
(Zeile 1 als Überschrift)
Spalte A - Art.Nr.
Spalte B - Kurztext
Spalte C - Zeilennummer (für den Langtext)
Spalte D- Langtext
Der Langtext verteilt sich dann über 3 Zellen
zb. D1, D2, D3
Kann mir jemand ein Marko nennen, wie ich die
Zellen D1 bis D3 nebeneinander dargestellt bekomme?
Also in D1, E1 und F1?
Die anderen Zeilen sollten dann gelöscht werden.
Vielen Dank für Eure Hilfe
Jenny
Antwort 2 von Saarbauer vom 11.04.2019, 11:02 Options
Hallo,
ist aus meiner Sicht nur mit VBA zu lösen,
Deine Angaben sind etwas verwirrend, da in Zeile 1 die Überschrift steht und in D1 der erste Langtext, wahrscheinlich ab D2
Was steht in den Spalten A-C in den Zeilen zum weiteren Langtext, nehme an, sind leer
Gruß
Helmut
ist aus meiner Sicht nur mit VBA zu lösen,
Deine Angaben sind etwas verwirrend, da in Zeile 1 die Überschrift steht und in D1 der erste Langtext, wahrscheinlich ab D2
Was steht in den Spalten A-C in den Zeilen zum weiteren Langtext, nehme an, sind leer
Gruß
Helmut
Antwort 3 von Zwiebel vom 11.04.2019, 11:29 Options
Hallo,
sorry hab mich da wohl etwas missverständlich ausgedrückt.
In Zeile 1 stehen die Spaltenüberschriften
Genau ab D2 steht dann der erste Langtext.
In den Spalten A - C stehen weitere Angaben
z. B. so
A B C D
Material Kurztext Zeilennr. Langtext
12345 ABC 1 Schraubendreher
12345 ABC 2 14,0x 250 Griff
12345 ABC 3 & Ansatz
Der Link von Hajo ist so schon nicht schlecht, nur löscht mir das Marko die anderen Spalten.
sorry hab mich da wohl etwas missverständlich ausgedrückt.
In Zeile 1 stehen die Spaltenüberschriften
Genau ab D2 steht dann der erste Langtext.
In den Spalten A - C stehen weitere Angaben
z. B. so
A B C D
Material Kurztext Zeilennr. Langtext
12345 ABC 1 Schraubendreher
12345 ABC 2 14,0x 250 Griff
12345 ABC 3 & Ansatz
Der Link von Hajo ist so schon nicht schlecht, nur löscht mir das Marko die anderen Spalten.
Antwort 5 von nighty vom 11.04.2019, 12:12 Options
hi all :-)
wie gewünscht :-)
gruss nighty
Sub Makro1()
For zaehler0 = 2 To ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row Step 3
ActiveSheet.Cells(zaehler0, 5) = ActiveSheet.Cells(zaehler0 + 1, 4)
ActiveSheet.Cells(zaehler0, 6) = ActiveSheet.Cells(zaehler0 + 2, 4)
Rows(zaehler0 + 1 & ":" & zaehler0 + 2).Delete Shift:=xlUp
zaehler0 = zaehler0 - 2
Next zaehler0
End Sub
wie gewünscht :-)
gruss nighty
Sub Makro1()
For zaehler0 = 2 To ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row Step 3
ActiveSheet.Cells(zaehler0, 5) = ActiveSheet.Cells(zaehler0 + 1, 4)
ActiveSheet.Cells(zaehler0, 6) = ActiveSheet.Cells(zaehler0 + 2, 4)
Rows(zaehler0 + 1 & ":" & zaehler0 + 2).Delete Shift:=xlUp
zaehler0 = zaehler0 - 2
Next zaehler0
End Sub
Antwort 6 von Zwiebel vom 11.04.2019, 12:44 Options
Hey prima!!!!
Funktioniert einwandfrei.
Vielen lieben Dank!!!!
Funktioniert einwandfrei.
Vielen lieben Dank!!!!
Ähnliche Themen
Excel Print Makro markierte Zellen
Ric 30.01.2007 - 204 Hits - 14 Antworten
Makro automatisch ausführen
Heinz28 15.03.2007 - 449 Hits - 3 Antworten
Makro/ Funktion zum ausblenden von völlig leeren Zellen?
neop 18.12.2007 - 112 Hits - 5 Antworten
Zellen per Makro verschieben
fufufu 08.02.2008 - 49 Hits - 3 Antworten
Makro-bestimmt Zellen löschen
musiker021 06.05.2008 - 87 Hits - 3 Antworten
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
