VBA Riesenproblem: Finden-Kopieren-Anhängen
20.01.2006 12:14:59
HorstH
Problem: Monatslisten.xls mit 12 identischen Registern (01 ... 12) Spalte 15 bis 76 enthalten klein "x", Überschriften in Zeile 2 (Datum); 1. Zeile ist leer.
Ich möchte ein sheet angehängt bekommen, dessen 1. Spalte sich aus der 2. Spalte (sind Straßennamen) des Registers 01 ergibt. aAb Spalte 15 bis 76 sollte in jedem Register dann abgefragt werden (unter Ausschluss von Zeile 1 und Zeile 2 2), ob ein kleines "x" in der entsprechenden Spalte gefunden wird, -> dann kopiere anhängend die ganze Spalte ins neue sheet. So sollte jede Spalte 15 bis 76 quasi in jedem Register abgefragt werden und bei finden des 1. "x" gleich die ganze Spalte ins neue Sheet ein- bzw. anfügen. Ergbenis wäre dann im neuen Sheet eine Sammelliste aus allen 12 Registern - aber nur mit den Spalten, die 1 oder mehrere "x" enthalten. Wie müsste so ein script aussehen? Wer kann mir hier helfen oder hat sogar ein solches? Wäre sehr dankbar!!! Gruss Horst