Hallo Zusammen,
ich habe eine Frage zu dem VBA Code hier, meine Makro-Kenntnisse sind sehr bescheiden, es geht hier um grob um eine Kopie-Funktion von einer Tabe in eine andere im gleichen File, beim kopieren wird zusätzlich ein Filter beachtet. Der zu kopierende Inhalt ist allerdings über die Zeit gewachsen, das Makro kopiert aber nur 1000 Zeilen.
Mein Problem: Ich finde im Code nicht wo diese Limitierung ist und wie man das auf z.B. 2000 ausweiten könnte.
Der relevante Kopier-Teil des Codes ist in im unteren Bereich Fett markiert, der Vollständigkeithalber aber hier der ganze Code:

Vielen Dank für euer Feedback was die Limitierung auslösen könnte und wie die Auswahl vergrößert werden kann.
Chris

Option Explicit

'für Ordnererstellung:

Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" ( _
ByVal DirPath As String) As Long


'für Berechnungszeit:
Private Declare Sub Sleep Lib "kernel32.dll" ( _
ByVal dwMilliseconds As Long)

Sub _Auslesen()

'Berechnungsmodus Automatic:

Application.Calculation = xlAutomatic
'makro während berechnung anhalten:

Do
DoEvents
Loop While Not Application.CalculationState = xlDone




Range("A6").Select

'neue startposition loop:

Do Until ActiveCell.Value = ""




Range("B2").Value = ActiveCell.Value

'warten bis Filter durchläuft:


ActiveSheet.AutoFilter.ApplyFilter



ActiveCell.Offset(0, 1).Value = Range("c2").Value



ActiveCell.Offset(0, 2).Value = Range("v3").Value

ActiveCell.Offset(0, 3).Value = Range("u2").Value

'Liste in OUTPUT-Tabe - ohne gefilterte:

'funktioniert:



With ActiveSheet.AutoFilter.Range
Call Range(.Cells(-1, 20), .Cells(.Rows.Count, 22)).Copy
End With

With Tabelle15
If IsEmpty(.Cells(5, 1).Value) Then
Call .Cells(5, 1).PasteSpecial(Paste:=xlPasteValues)
Else


Call .Cells(5, .Columns.Count).End(xlToLeft).Offset(0, 4).PasteSpecial(Paste:=xlPasteValues)
End If
End With



'nächstes Datum: