Mit dem fogenden Code hänge ich eine neue Zeile an meine Tabelle und fülle diese nit Werten aus einem anderen Datenblatt.
Sub Tankbestand_fuelle_Auslagerung_drucken()
'Tabelle1.Range("A1:F48").PrintOut
'Auslagerungstabelle in Tankbestand asufüllen
With Worksheets("Tankbestand").ListObjects("Abgänge")
'Zeile einfügen
.ListRows.Add alwaysinsert:=True
'Werte übergeben
Worksheets("Ladebericht").Range("G5").Copy .DataBodyRange.Cells(.DataBodyRange.Rows.Count, 1)
Worksheets("Ladebericht").Range("D12").Copy .DataBodyRange.Cells(.DataBodyRange.Rows.Count, 2)
Worksheets("Ladebericht").Range("D14").Copy .DataBodyRange.Cells(.DataBodyRange.Rows.Count, 3)
Worksheets("Ladebericht").Range("G33").Copy .DataBodyRange.Cells(.DataBodyRange.Rows.Count, 7)
Worksheets("Ladebericht").Range("G32").Copy .DataBodyRange.Cells(.DataBodyRange.Rows.Count, 8)
End With
End Sub
Nun habe ich leider noch das Problem, dass die Werte auf dem Ausgangsdatenblatt in unterschiedlichen Schriftgrößen dargestellt sind. Ausßerdem sind teliweise auch die Hintergründe farbig. Das würde ich gerne alles während des Einfügens anpassen.
Also:
Hintergrund = Keine Füllung
Schriftgröße einheitlich
Und die Rahmen, die teilweise kopiert werden auch noch raus.
Ich würde mich sehr freuen wenn mir jemand unter die arme greifen kann.
Liebe Grüße
Felix