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
|