Makro soll alle Werte eines Filters durchgehen

[OoDex]

Guten Tag,

ich habe in Excel einen Filter und möchte, dass ein Makro jeden einzelnen Wert nacheinander durchgeht und mir Teilergebnisse an einen anderen Ort schreibt.

Folgender Code für den Filterdurchlauf (Landname ist eine Variable):

Code:

ActiveSheet.Shapes.Range(Array(Landname)).Select

Funktioniert momentan, da es nur 6 Länder gibt und ich die manuell abfragen kann (6xCopy+Paste), doch nun ist es eine Tabelle mit über 50 Ländern die auch noch wechseln. Über 50 Länder heißt tonnenweise arbeit, wäre aber noch manuell möglich. Das Problematische ist, dass die Länder wechseln, sage ich ihm "Deutschland" als Landname und Deutschland ist nicht dabei, dann würde er mir Leere Werte an den anderen Ort schreiben. 

Wunschlösung: Ich kann ihm sagen, dass er den ersten Wert im Filter auswählen soll, dann den zweiten Wert...bis alle Werte durch sind und dann muss es auch stoppen.
Kannlösung: Ich lasse ihn über 50 Mal durchlaufen für alle möglichen Länder und am Ende sollen in der Zielspalte wo die vorher angesprochenen Werte eingetragen werden alle leeren Zellen gelöscht werden. Hätte das selbe Resultat, ist aber nicht so toll, wenn man das jemandem präsentieren möchte und länger warten muss.

Grüße,
Dex

[chris-ka]

Hallo Dex,

warum nimmst du nicht einfach eine Pivottabelle?

[OoDex]

Hallo Dex,

warum nimmst du nicht einfach eine Pivottabelle?

Hallo Chris,

ich bin in dem Thema ziemlich neu und habe gestern erst angefangen in Excel mit mehr Formeln als "Wenn" zu arbeiten, sowie mein erstes Makro geschrieben.

Hier ist der Ursprungspost, vielleicht hilft dies zum Verständnis.
http://www.clever-excel-forum.de/thread-...age-1.html

[schauan]

Hallöchen,

eventuell geht es besser im anderen Thread weiter, ich habe da auch geantwortet. Aber auch erst mal nur graue Theorie.

[OoDex]

http://www.clever-excel-forum.de/thread-...l#pid75318

Wer eine Antwort gerne hätte.