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....