Beschriebene Zeilen ermitteln und Sheets kopieren
23.11.2006 11:50:43
Boris
ich würde gerne folgendes Problem mit VBA lösen, das ich anhand des folgenden jpgs erkläre:
Der Code in Worten wäre wie folgt:
1) Gehe in die erste beschriebene Zelle der Spalte A (hier A4). Kopiere das Sheet "Referenz", benenne das eben kopierte Sheet mit dem Wert der aktuellen Zelle (A4 = "01") um. Schreibe diesen Wert auch in die Zelle A1 dieses neuen Sheets.
2) Gehe im Summary Sheet nun eine Zelle nach unten, falls diese einen Wert enthält und weder "0" noch "" ist, wiederhole Schritt 1), ansonsten "end".
Ergebnis wäre im Beispiel eine Datei mit den Worksheets: Summary, Referenz, 01, 03, 05, 07, 08, 09, 10, 11.
Besonderheiten: Die türkisen Zellen der Spalte A ziehen Werte per sverweis aus einen anderen Datei. Bei Bezug auf leere Zellen liefert sverweis 0, ansonsten eine "ID", die mit absicht als text formatiert ist. Diese IDs starten nicht notwendigerweise mit 01 und die Anzahl der Datensätze variiert. Eventuell könnte man auch noch alle "0er-Zeilen" löschen, aber das stelle ich erstmal hintenan.
Die Code sollte so variabel wie möglich sein, z.B. sollte die Zelle A4 nicht als fester Startpunkt fixiert sein, da eventuell oberhalb Zeilen eingefügt werden könnten.
Falls Anfragen dieser Art "zu weit" gehen, bitte ich mir dies mitzuteilen:)
Viele Grüße