Hallo,
danke für den Hinweis. Ich habe die Aufzeichnung nun für eine einzige Tabelle durchgeführt, damit es etwas kürzer wird. Dabei habe ich mich auch die notwendigen Schritte beschränkt:
'
Range("P171").Select
Selection.ListObject.ListRows.Add AlwaysInsert:=False
Range("A172").Select
Sheets("Dashboard").Select
Range("E1:F1").Select
Selection.Copy
Sheets("Historical Data").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Dashboard").Select
Range("D31:O31").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Historical Data").Select
Range("B172").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("N171:P171").Select
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("N171:P172"), Type:=xlFillDefault
Range("N171:P172").Select
End Sub
|