Makro - Dynamisches Kopieren
19.02.2022 10:46:39
Peter
ich habe ein Problem mit folgendem Makro. Ich würde gerne die Daten einer Pivot-Tabelle (im Beispiel nur die Werte in Spalte, ab A3) in ein zweites Arbeitsblatt kopieren (fortlaufende Liste als Ergebnis) - da je Datenlage in der Pivot unterschiedlich viele Datensätze vorhanden sind, soll der Inhalt dynamisch kopiert werden. Das Makro selbst kopiert leider in der aktuellen Version nur ein Teil der Daten (in der Pivot sind z.b. 62 Datensätze, es werden aber nur die ersten 38 kopiert). Ist der Code nicht korrekt? Nebenfrage; beim kopieren in das zweite Tabellenblatt wird die letzte belegte Zeile immer überschrieben; kann man den Code auch so ändern, dass er die Daten in die erste freie Zelle kopiert?
Sub BereichKopieren1()
Dim lastrow As Long
lastrow = Worksheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row
Worksheets("Tabelle1").Select
Range("A3:A3" & lastrow).Copy
Worksheets("Tabelle2").Select
Range("B3").Select
Selection.End(xlDown).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub