Kategorie:
(Tipp 114)
Wie kann ich die Summe von A1 aus jedem Blatt bilden?
Beispielsweise durch eine Schleife über die Blätter der Mappe:
Sub Addieren() Dim dblSummen As Double, intI As Integer dblSummen = 0 For intI = 1 To Worksheets.Count dblSummen = dblSummen + Worksheets(intI).Range("A1") Next MsgBox dblSummen End Sub