Office: (Office 2013) Unterinander liegendes Kopieren und Nebeneinander Einfügen mal anders

Hallo wehrte Kollegen,

ich habe da ein kleines Problem welches ich per Forumsuche nicht finde.

Ich habe ein Arbeitsblatt, wo wiederkehrende Eintragungen untereinander stehen. Ein Block ist 18 Zeilen lang und 4 Spalten breit.
Das muss ich nun nebeneinander haben. So ist der Ist-Stand

Testweise
OB IB ges.
01.04.2017
08:00:00 0 0 0
09:00:00 191 39 230
10:00:00 191 46 237
11:00:00 191 50 241
12:00:00 191 53 244
13:00:00 185 47 231
14:00:00 185 40 225
15:00:00 185 32 217
16:00:00 0 0 0
17:00:00 0 0 0
18:00:00 0 0 0
19:00:00 0 0 0
20:00:00 0 0 0
21:00:00 0 0 0
22:00:00 0 0 0
Testweise1
OB IB ges.
02.04.2017
08:00:00 0 0 0
09:00:00 191 39 230
10:00:00 191 46 237
11:00:00 191 50 241
12:00:00 191 53 244
13:00:00 185 47 231
14:00:00 185 40 225
15:00:00 185 32 217
16:00:00 0 0 0
17:00:00 0 0 0
18:00:00 0 0 0
19:00:00 0 0 0
20:00:00 0 0 0
21:00:00 0 0 0
22:00:00 0 0 0

So soll es bitte werden:

Testweise Testweise1
OB IB ges. OB IB ges.
01.04.2017 02.04.2017
08:00:00 0 0 0 08:00:00 0 0 0
09:00:00 191 39 230 09:00:00 191 39 230
10:00:00 191 46 237 10:00:00 191 46 237
11:00:00 191 50 241 11:00:00 191 50 241
12:00:00 191 53 244 12:00:00 191 53 244
13:00:00 185 47 231 13:00:00 185 47 231
14:00:00 185 40 225 14:00:00 185 40 225
15:00:00 185 32 217 15:00:00 185 32 217
16:00:00 0 0 0 16:00:00 0 0 0
17:00:00 0 0 0 17:00:00 0 0 0
18:00:00 0 0 0 18:00:00 0 0 0
19:00:00 0 0 0 19:00:00 0 0 0
20:00:00 0 0 0 20:00:00 0 0 0
21:00:00 0 0 0 21:00:00 0 0 0
22:00:00 0 0 0 22:00:00 0 0 0

gibt es hier ein kurze Möglichkeit oder muss ich jeden Monat die Daten händisch nebeneinander kopieren?

 

Großes Lob für Dein perfektes Beispiel ...

das ist ernst gemeint, nicht ironisch. Viele andere (fast 75%) sind dazu intellektuell nämlich nicht in der Lage!
​

... welches ich in A1 ff. kopiert habe mittels "Text in Spalten".

F3: =INDEX($A:$D;REST(ZEILE(A2);18)+1+KÜRZEN(SPALTE(A4)/4)*18;REST(SPALTE(D1);4)+1)

nach unten und rechts kopieren

 

Bitte korrigieren:

F3: =INDEX($A:$D;REST(ZEILE(A2);18)+1+KÜRZEN(SPALTE(D1)/4)*18-18;REST(SPALTE(D1);4)+1)

 

Hi,

das könntest du mit folgendem kleinen Makro lösen:

Code:

Sub Spaltenweise()
    Dim lngZeile As Long
    Dim intSpalte As Integer
    intSpalte = 5
    For lngZeile = 1 To IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count) Step 18
        Range(Cells(lngZeile, 1), Cells(lngZeile + 17, 4)).Copy Cells(1, intSpalte)
        intSpalte = intSpalte + 4
    Next lngZeile
    Columns("A:D").Delete  ' Spalten A:D löschen da alles umgeschrieben
End Sub

Bis später,
Karin

 

Hallo Karin, Hallo Lupo,

vielen Dank für die grandiosen Lösungsbeispiele, die beide ohne wenn und aber bestens funktionieren.

@lupo, ich gelobe Besserung:

<b>Tabelle5</b><br /><br />

	A	B	C
1	Überschrift 1	Überschrift 2	Überschrift 3
2	1	2	3
3	3	2	3
4	0	0	0

<br /><br /><span style="font-family:Arial; font-size:9pt; font-weight:bold;background-color:#ffffff; color:#000000; </a>

@Karin, ich werde deine komfortable Lösung nutzen.

Euch beiden meinen herzlichen Dank