Tabelle in Zeilen aufteilen

[dennis1793]

Hallo zusammen!

ich habe eine sehr lange Tabelle (A2:A13000) . Die Werte die ich benötige wiederholen sich immer (14 Werte) . Spalte A soll nun in eine Tabelle aufgelöst werden. Ich habe nochmal eine Anlage zu Verdeutlichung erstellt, dafür Suche ich für die orangenen Felder die Formatierung. 
Vielen Dank :)

[
Bild bitte so als Datei hochladen: Klick mich!
]

[Fennek]

Hallo,

teste mal mit:

Code:

Sub Main
r = 10
for i = 3 to cells(rows.count, 1).end(xlup).row
    if cells(i,1) = "Datum" then
        cells(i,1).resize(14).copy
        cells(r,4).pastespecial transpose:=true
        r=r+1
    end if
next i
End Sub

Wenn es passt, muss die Ziel-Zelle (hier D10) angepasst werden.

mfg

[dennis1793]

Hallo Fennek!

Vielen Dank für deine Hilfe, leider kenne ich mich damit überhaupt nicht aus und bekomme auch nicht hin :(

Gruß

---

Ich habe nochmal eine Tabelle zur Vereinfachung erstellt

[schauan]

Hallöchen,

der Lösungsansatz dafür hat erst mal nix mit Excel zu tun. Du musst eine Formel finden, die Dir die Zeilen in Deinem 14er Rhytmus nebeneinander ausgibt.
Wenn Du z.B. in Zeile 2 anfängst wären die Zeilen 2, 16, 30, 44 usw. betroffen

Du hättest also erst mal 14*x+2, beginnend mit x=0 für den ersten Eintrag
Der zweite Eintrag wäre bei 14*x+3 wenn der darunter steht

Die Daten werden irgendwo eingefügt. Wenn das z.B. in Zeile 3 beginnt und Du hier aber die 0 für den ersten Eintrag benötigst kannst Du das mit ZEILE()-3 berechnen.

Wie hilft das nun weiter?

Mit der Funktion INDEX kannst Du aus einem Bereich über die Angabe von Zeile und Spalte Daten holen. Den ersten Eintrag bekommst Du dann mit

=INDEX(A:A;14*(ZEILE()-3)+2;1)

Wenn Du das dann nach unten ziehst, bekommst Du jeweils den ersten Eintrag eines 14er Blockes. -3 musst Du ggf. anpassen.