ich bin etwas am verzweifeln, ich bekomme es nicht hin das mir nur die letzten 20 Zeilen aus den Spalten "A", "B" und "I" von Blatt1 in Blatt 2 kopiert werden.
Hintergrund ist, dass ich ein Diagramm habe welches sich die Daten aus Blatt zwei holen soll und ich in Blatt1 alle Werte eintragen möchte.
Das ganze möchte ich dann noch beim Start der Excel-Datei ausführen, aber das ist nicht das Problem.
Dim wksStamm1 As Worksheet, wksUebertrag As Worksheet
Set wksStamm1 = Worksheets("Tabelle1")
Set wksUeber = Worksheets("Tabelle2")
.Range(.Cells(4, 8), .Cells(.Rows.Count, 8).End(xlUp).Offset(0, 1)).Copy
wksUeber.Cells(4, 2).PasteSpecial Paste:=xlValues
.Range(.Cells(4, 1), .Cells(.Rows.Count, 1).End(xlUp).Offset(0, 1)).Copy
wksUebertrag.Cells(4, 1).PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
End With
vielleicht kann mir jemand helfen.
Viele Grüße
Martin