Jede 3. Zeile kopieren?

[kevinkevinkevin]

Hi Zusammen,

ich versuche die Tabelle mal einigermaßen darzustellen, um mein Problem zu erläutern.

Ist-Situation:
            Spalte A    Spalte B      Spalte B
Zeile 1    Name
Zeile 2    Straße
Zeile 3    PLZ/Ort
Zeile 4    text
Zeile 5    (leerzeile)
Zeile 6    Name
Zeile 7    Straße
Zeile 8    PLZ/Ort
Zeile 9    text
Zeile 10  (leerzeile)

Soll-Situation:
           Spalte A    Spalte B      Spalte B
Zeile 1   Name        Straße         PLZ/Ort
Zeile 2   Name        Straße         PLZ/Ort
Zeile 3   Name        Straße         PLZ/Ort
Zeile 4   usw...
Zeile 5
Zeile 6
Zeile 7
Zeile 8


Ich möchte also die Adressen, die wie oben dargestellt sind in die untere Darstellung bringen.
Kann ich nur jede 5. Zeile "verschieben"?
Oder kann ich evtl. mit einer Wenn Funktion arbeiten? Theoretisch haben ja alle Zeilen mit einer PLZ genau 5 Ziffern und alle Straßenangaben max. 3 Ziffern, während Orts- bzw. Firmennamen keine Ziffern haben, dadurch könnte man die Zeilen ja unterscheiden...
Wäre sehr erfreut über ein paar Lösungsvorschläge.

[StefanB]

Moin,

1. Zelle A1 - A4 markieren und dann kopieren 
2. Neue Zelle auswählen, Rechtsklick, Inhalte einfügen, Transponieren.

eine weitere Möglichkeit:

	A	B	C	D
1	Name	=A1	=A2	=A3
2	Straße	=A4	=A5	=A6
3	PLZ/Ort	=A7	=A8	=A9
4	Name
5	Straße
6	PLZ/Ort
7	Name
8	Straße
9	PLZ/Ort
10	Name
11	Straße
12	PLZ/Ort
13	Name
14	Straße
15	PLZ/Ort
16	Name
17	Straße
18	PLZ/Ort
19	Name
20	Straße
21	PLZ/Ort
22	Name
23	Straße
24	PLZ/Ort
25	Name
26	Straße
27	PLZ/Ort

Zelle	Formel
B1	=A1
C1	=A2
D1	=A3
B2	=A4
C2	=A5
D2	=A6
B3	=A7
C3	=A8
D3	=A9

Verwendete Systemkomponenten: [Windows (64-bit) NT 10.00] / MS Excel 365

Diese Tabelle wurde mit Tab2Html (v2.7.1) erstellt. ©Gerd alias Bamberg

B, C und D mit diesen Formeln vorbereiten und dann Bereich B1 - D3 markieren und nach untenziehen

[LCohen]

=INDEX($A:$A;ZEILE(A1)*5+SPALTE(A1)-5)

[Cadmus]

Oder Power Query benutzen:
https://svens-excel-welt.blogspot.com/20...belle.html