Ich denke der Code sagt was ich will:
Sub summenbildung()
Dim Aggregat, Aggregat1, Aggregat2, Aggregat3, Aggregat4, Aggregat5
Dim Aggregat6, Aggregat7, Aggregat8, Aggregat9, Aggregat10, Aggregat11
Dim Aggregat12, Aggregat13, Aggregat14, Aggregat15, Aggregat16, Aggregat17
Aggregat1 = "583"
Aggregat2 = "284"
Aggregat3 = "2095"
Aggregat4 = "295"
Aggregat5 = "2053"
Aggregat6 = "2040"
Aggregat7 = "2134"
Aggregat8 = "2027"
Aggregat9 = "401"
Aggregat10 = "282"
Aggregat11 = "2028"
Aggregat12 = "2091"
Aggregat13 = "2102"
Aggregat14 = "Schmiede"
Aggregat15 = "Riwa"
Aggregat16 = "FSU"
Aggregat17 = "Gesamt"
For Aggregat = Aggregat(1 to 17)
Sheets(Aggregat).Select
...
..
.
Also "Aggregat" steht für eine Nummer (Name des Tabellenblattes).
Gruß
F.