='wz 1'!E18*'wz 1'!$I$6+'wz 2'!E18*'wz 2'!$I$6+'wz 3'!E18*'wz 3'!$I$6+'wz 4'!E18*'wz 4'!$I$6+ usw. bis 17
dachte
=Summe('wz 1'!:'wz 17'!(E18*I6)) geht aber nicht ?
hat jemand eine hilfreiche Lösung
Dank im Voraus
carsten
Sub summe()
for con = 1 to 17
sheets("wz " & con).select
Ergebnis = Ergebnis + range("E18")
next con
sheets("Name des Zielblattes").select
range("Koordinaten der Zielzelle").formula=Ergebnis
End Sub