Sub Summe_bilden()
   Dim Blatt As Worksheet
   For Each Blatt In ThisWorkbook.Worksheets
      Wert = Blatt.[A1]
      If IsNumeric(Wert) Then Summe = Summe + Wert
   Next Blatt
   MsgBox Summe
End Sub