Schleife
Charly
ich hoffe mir kann geholfen werden.
Der Level "VBA nein" stimmt nicht ganz, aber "VBA gut" wäre übertrieben.
Ich hab folgendes Problem.
Es gibt die Sheets("01") bis Sheets("12") an Position Sheets(7) bis Sheets(Sheets.count)
Wichtig: Es sind nicht immer alle 12 Tabellen vorhanden, aber mindestens eine.
Nun hätte ich gern eine Schleife, welche die Sheets("01") bis Sheets("12") [wenn vorhanden]
durchläuft und den Wert aus Range("$AN$4") in Sheets("ANALYSE") einträgt.
Beispiel:
Es gibt die Tabellen 01 bis 12
Sheets("ANALYSE").Range("D2") = Sheets("01").Range("$AN$4")
Sheets("ANALYSE").Range("D3") = Sheets("02").Range("$AN$4")
Sheets("ANALYSE").Range("D4") = Sheets("03").Range("$AN$4")
usw.
Sheets("ANALYSE").Range("D13") = Sheets("12").Range("$AN$4")
Wie schon gesagt, es ist möglich das nicht alle Tabellen (01 bis 12) vorhanden sind.
Ich hoffe Ihr könnt mir helfen?
Danke schon mal.
Gruß Charly