Hallo Damian
Oha,deine Fehleranzahl ist beeindruckend!
Eine With Anweisung setzt einen vorrangestellten Punkt vorraus.
Deine With Anweisung ist also Sinnlos!
Deine Variablen sind bis auf eine nicht Deklariert!
Daher werden sie als Variant Deklariert!
Die einzige Deklarierte Variable ist falsch Deklariert
AnzahlDaten ist ein String,gefordert ist Long!
Sheets ist NICHT eindeutig!
Es heißt Worksheets,Sheets kann auch ein anderes Element sein.
A65535?
Letzte zeile eines Worksheets
ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
Letzte zeile einer Spalte(Die 1 steht für Spalte A)
ActiveSheet.Range(Cells(Rows.Count, 1), Cells(Rows.Count, 1)).End(xlUp).Row
Viel Spass
Michael