ich habe eine Excel Datei mit u.a. 2 Blättern, "Isogonen" und "gefiltert".
Gefilterte Daten aus "Isogonen" sollen per vba in "gefiltert" kopiert werden für eine Grafik, und zwar sequentiell, Zeile für Zeile... sodass sich die Kurve langsam aufbaut.
In "Isogonen" nimmt das vba nacheinander Filterungen vor, weswegen hernach stets neue Zeilen-Nr. angezeigt werden.
Nach der 1. Filterung ist in "Isogonen" die 1. Datensatzzeile Nr. 268, die 2. Nr.269 usw. bis 293.... dann gehts mit Nr.622 weiter, usw.
Nach der 2. Filterung ist in "Isogonen" die 1. Datensatzzeile Nr. 2898, die 2. Nr.2899 usw. bis 2909.... dann gehts mit Nr.3243 usw. fort. Nach jeder Filterung also andere Zeilen. Spalten-Nr. stets B bis E.
Die 4 Spaltenköpfe sollen mit kopiert werden. Sie stehen in "Isogonen" in Zeile 25, in "gefiltert" in Zeile 3. Die Datensätze stehen direkt unter den Köpfen (keine Leerzeilen dazwischen und zwischen Datensätzen).
In "gefiltert" beginnen die Datensätze stets mit Zeilen-Nr. 4 usw. fortlaufend, auch hier ohne Leerzeilen und direkt unter den Köpfen. Spalten Nr. in "gefiltert" nach der 1.Filterung B bis E, nach der 2.Filterung G bis J usw. (immer eine Leerspalte dazwischen).
Insgesamt gibt es 90 Filterungen.
Was muss ich ins vba schreiben, dass es beginnend mit der Kopfzeile alle Zeilen bis unten (= 1.Leerzeile) EINZELN, Datensatz für Datensatz, aus "Isogonen" kopiert und ebenso einzeln nacheinander in "gefiltert" unter die Kopfzeilen einfügt?
Bisher habe ich das vba händisch wie folgt beschrieben (Schnipsel):
Sheets("Isogonen").Range("B25:E25").Copy Sheets("gefiltert").Range("b3")
Sheets("Isogonen").Range("B268:E268").Copy Sheets("gefiltert").Range("b4")
Sheets("Isogonen").Range("B269:E269").Copy Sheets("gefiltert").Range("b5")
usw.
usw.
Aber bei 622 Zeilen bei einer einzigen Filterung werd ich dabei deppat... ;-)
Kennt wer da eine bessere Lösung?
Besten Dank und viele Grüsse,
Bernhard