Hallo liebes Forum,

ich beherrsche leider kein VBA und das Aufzeichnen eines Makros hat mir auch nicht helfen können, daher möchte ich mich an euch wenden:

Sachverhalt: Ich habe zwei tabs, tab "dashboard" von dem aus die Daten kopiert werden sollen und tab "historical data" in dem zwei Tabellen mit Daten sind, in die die Daten aus dem Tab "dashoard" immer als neue Zeile eingefügt werden sollen.

Ich habe meine Tätigkeiten mit "Marko aufzeichnen" aufgezeichnet. Wenn ich das Makro erstmals ausführe verläuft auch alles wie gewünscht. Das Problem tauch dann auch wenn ich das Makro ein zweites mal ausführe. In den beiden Tabellen werden zwar neue Zeilen kreiert, allerdings sind diese ohne Inhalt. Ich hätte erwartet, dass diese wieder den selben Inhalt besäßen.

Es folgt das aufgezeichnete Makro:

' Makro11 Makro
'

'
    Range("P171").Select
    Selection.ListObject.ListRows.Add AlwaysInsert:=False
    Range("A172").Select
    Sheets("Dashboard").Select
    Range("A2").Select
    Selection.Copy
    Sheets("Historical Data").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Dashboard").Select
    Range("D32:O32").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
    Range("L172:M172").Select
    Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False
    Range("AG171").Select
    Selection.ListObject.ListRows.Add AlwaysInsert:=False
    Range("R172").Select
    Sheets("Dashboard").Select
    Range("A2").Select
    Selection.Copy
    Sheets("Historical Data").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Dashboard").Select
    Range("D33:O33").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Historical Data").Select
    Range("S172").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("AE171:AG171").Select
    Application.CutCopyMode = False
    Selection.AutoFill Destination:=Range("AE171:AG172"), Type:=xlFillDefault
    Range("AE171:AG172").Select
    Range("AC172:AD172").Select
    Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False
End Sub

Weiß jemand von euch weiter?

Vielen Dank im Voraus und Gruß

Sebastian