Hallo,

 

Ich möchte gerne eine Achriv Blatt erstellen.

 

Hierbei sollen ab A2 alle zeilen bis zur ersten leeren Zeile von Blatt AV untereinander in das Blatt Archiv kopiert werden. (bei jedem Klick auf den Button) 

 

Ziel ist alle Veränderungen des Blattes AV zu archivieren.  

 

Ich jabe bis jetzt die Ausgabe geschafft. Leider nur für eine Zeile. Ich denke mal man braucht hier 2 For schleifen (1ne zum Auslesen von "AV" sowie eine zum ermitteln der ersten leeren Zeile im Blatt Archiv und niederschreiben der einträgfe aus AV. 

 

Mit der Bitte um Hilfe. 

 

 

Do While strDateiName <> ""

        Worksheets("AV").Range("A2").EntireRow.Copy Destination:=Worksheets("Archiv").Range("A2") 

    Loop

End Sub