Hallo Eisbär!

Sub Makro1()
'
' Makro1 Makro
'

' 1. Spalte Überschrift
    Range("D3").Select
    ActiveCell.FormulaR1C1 = "=Tabelle1!R[-2]C[-3]"
    Range("D4").Select
    ActiveCell.FormulaR1C1 = "=Tabelle1!R[-3]C[-2]"
    Range("D5").Select
    ActiveCell.FormulaR1C1 = "=Tabelle1!R[-4]C[-1]"
    Range("D6").Select
    ActiveCell.FormulaR1C1 = "=Tabelle1!R[-5]C"

'2. Spalte Überschrift
    Range("G3").Select
    ActiveCell.FormulaR1C1 = "=Tabelle1!R[-2]C[-2]"
    Range("G4").Select
    ActiveCell.FormulaR1C1 = "=Tabelle1!R[-3]C[-1]"
    Range("G6").Select
    ActiveCell.FormulaR1C1 = "=Tabelle1!R[-5]C"
    Range("G7").Select
    ActiveCell.FormulaR1C1 = "=Tabelle1!R[-6]C[1]"

'1.Spalte Tabelle
    Range("C11").Select
    ActiveCell.FormulaR1C1 = "=Tabelle1!R[-10]C[6]"
    Range("C12").Select
    ActiveCell.FormulaR1C1 = "=Tabelle1!R[-11]C[7]"
    Range("C13").Select
    ActiveCell.FormulaR1C1 = "=Tabelle1!R[-12]C[8]"
    Range("C14").Select
    ActiveCell.FormulaR1C1 = "=Tabelle1!R[-13]C[9]"
    Range("C15").Select
    ActiveCell.FormulaR1C1 = "=Tabelle1!R[-14]C[10]"
    Range("C16").Select
    ActiveCell.FormulaR1C1 = "=Tabelle1!R[-15]C[11]"
    Range("C17").Select
    ActiveCell.FormulaR1C1 = "=Tabelle1!R[-16]C[12]"
    Range("C18").Select
    ActiveCell.FormulaR1C1 = "=Tabelle1!R[-17]C[13]"
    Range("C19").Select
    ActiveCell.FormulaR1C1 = "=Tabelle1!R[-18]C[14]"
    Range("C20").Select
    ActiveCell.FormulaR1C1 = "=Tabelle1!R[-19]C[15]"

'2.Spalte Tabelle
    Range("E11").Select
    ActiveCell.FormulaR1C1 = "=Tabelle1!R[-10]C[14]"
    Range("E12").Select
    ActiveCell.FormulaR1C1 = "=Tabelle1!R[-11]C[15]"
    Range("E13").Select
    ActiveCell.FormulaR1C1 = "=Tabelle1!R[-12]C[16]"
    Range("E14").Select
    ActiveCell.FormulaR1C1 = "=Tabelle1!R[-13]C[17]"
    Range("E15").Select
    ActiveCell.FormulaR1C1 = "=Tabelle1!R[-14]C[18]"
    Range("E16").Select
     ActiveCell.FormulaR1C1 = "=Tabelle1!R[-15]C[19]"
    Range("E17").Select
     ActiveCell.FormulaR1C1 = "=Tabelle1!R[-16]C[20]"
    Range("E18").Select
     ActiveCell.FormulaR1C1 = "=Tabelle1!R[-17]C[21]"
    Range("E19").Select
     ActiveCell.FormulaR1C1 = "=Tabelle1!R[-18]C[22]"
    Range("E20").Select
End Sub

Das ist praktisch der Bezug um alle Daten in die "Ausgabe" Tabelle zu übertragen... Wie man sehen kann, ist dass mit der Schleife nicht so leicht, wie ich dachte. Da die Tabelle nicht "linear" ist... 

Jetzt ergibt sich allerdings schon ein Problem beim 2. Datensatz, dieser ist in Tabelle 1 in Zeile 2 gespeichert und hat ebenfalls 28 Werte. Anhand dieser Daten soll exakt die gleiche Tabelle produziert werden (nur mit den neuen Daten) und dann anschließend in der "Ausgabe" unter der Tabelle von Datensatz 1 geschrieben werden.

Sub Makro2()
'
' Makro2 Makro
'

'
    Rows("2:20").Select
    Selection.Copy
    Rows("22:22").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
End Sub

Nun passt der Bezug in der neuen Tabelle leider nicht mehr...

Achja Excel 2010 benutze ich. Zu den Datenfeldern:

A1 = Text

A2 = Datum

A3-A7 = Zahl

A8 = Text

A9-A18 =Zahl

A19-A28=Text

Falls diese Informationen wichtig sind.

Grüße

wishless