Hallo ich habe mehrer Tabellen (Tabelle 5-10) aus der ich jetzt als Schleife jeweils die Spalte E6 bis E36 in eine Zeile in einem anderen Tabellenblatt (MS-Therme) samt Formel einfügen möchte. Ich habe es als Schleife probiert. Müsste dafür aber jede Zelle einzeln ansprechen. Geht dieses auch zu kürzen als Bereich. Also jeweils E6:E36 in die Zeilen des Tabellenblätter (MS-Therme) untereinander.
Gruß Julia
For MS = 7 To Worksheets.Count
Worksheets("MS-Therme").Cells(MS - 5, "E").FormulaLocal = "='" & Worksheets(MS).Name & "'!E6"
Next MS
For MS = 7 To Worksheets.Count
Worksheets("MS-Therme").Cells(MS - 5, "F").FormulaLocal = "='" & Worksheets(MS).Name & "'!E7"
Next MS
For MS = 7 To Worksheets.Count
Worksheets("MS-Therme").Cells(MS - 5, "G").FormulaLocal = "='" & Worksheets(MS).Name & "'!E8"
Next MS
For MS = 7 To Worksheets.Count
Worksheets("MS-Therme").Cells(MS - 5, "H").FormulaLocal = "='" & Worksheets(MS).Name & "'!E9"
Next MS
For MS = 7 To Worksheets.Count
Worksheets("MS-Therme").Cells(MS - 5, "i").FormulaLocal = "='" & Worksheets(MS).Name & "'!E10"
Next MS
...usw....
|