ich benötige mal wieder Hilfe zu einem Makro. Ich habe mir mit dem Makrorecorder ein Makro aufgezeichnet. Das Makro sieht folgender maßen aus:
Sub Samsonstationen()
Range("A3").Select
Windows("Anlagendaten Hausstationen.xls").Activate
Selection.AutoFilter Field:=10, Criteria1:="0"
Range("A4:D72").Select
Selection.Copy
Windows("Samsonstationen").Activate
ActiveSheet.Paste
Range("A11").Select
Windows("Anlagendaten Hausstationen.xls").Activate
Selection.AutoFilter Field:=10, Criteria1:="1"
Application.CutCopyMode = False
Selection.Copy
Windows("Samsonstationen").Activate
ActiveSheet.Paste
Windows("Anlagendaten Hausstationen.xls").Activate
Selection.AutoFilter Field:=10, Criteria1:="2"
Application.CutCopyMode = False
Selection.Copy
Windows("Samsonstationen").Activate
Range("A15").Select
ActiveSheet.Paste
Range("A17").Select
Windows("Anlagendaten Hausstationen.xls").Activate
Selection.AutoFilter Field:=10, Criteria1:="3"
Application.CutCopyMode = False
Selection.Copy
Windows("Samsonstationen").Activate
Range("A15").Select
ActiveSheet.Paste
Range("A20").Select
.
.
.
.
usw.
Mit diesem Makro wird in Spalte J mit dem Autofilter nach 0 gefiltert, die dann angezeigten Zellen werden kopiert und in eine andere Mappe kopiert. Dann wird in Spalte J nach 1 gefiltert, kopiert, eingefügt usw. usw.
Da die Datei in der gefiltert wird, ständig wächst, ist es mit meiner Lösung etwas Zeitaufwendig. Ich darf nicht vergessen das Makro immer zu erweitern. Nun dachte ich mir man könne das Makro irgendwie vereinfachen. Und da liegt das Problem. Wie stelle ich das an?
Ziel des Makros sollte sein, das in Spalte J erst nach der 0 gefiltert wird. Die Daten dann kopiert und eingefügt werden und dann automatisch die Zahl nach der gefiltert werden soll um eins (1) erhöht wird. Dann diese Daten kopiert werden und in der Mappe, in die diese Daten kopiert werden sollen, ermittelt wird, wo sich die erste freie Zelle in Spalte A befindet und die Daten dann eine Zelle nach der ersten freien Zelle eingefügt werden. Das Makro sollte so lange laufen, solange es eine Zahl in Spalte J findet.
Ich hoffe, das ich nicht unverschämt wirke mit meinen Ansprüchen an das Makro und an Euch. Aber für mich ist das ein fast unlösbares Problem.
Wenn mir jemand behilflich sein könnt, wäre ich sehr dankbar,
Oliver