Angenommen, Sie haben beispielsweise Ihre laufende Summe Sheet1!A1
. Richtig, also erstellen Sie jetzt ein Makro, das Sie ausführen können, das alle Summen aus den anderen Tabellenblättern übernimmt und summiert.
Lassen Sie sich die Summen für jedes Blatt ist auf Zelle übernehmen A10
-
Sub updatethesum() Dim ws As Worksheet Dim i As Double i = 0 For Each ws In ThisWorkbook.Worksheets If ws.Name <> "Sheet1" Then i = i + ws.Range("A10") End If Next Sheets("Sheet1").Range("A1") = i End Sub
Wenn Sie sich Sorgen machen, dass jemand einen Buchstaben anstelle einer Zahl A10
eingibt, können Sie die Eingabe mit etwas wie folgendem einschränken -
Sub updatethesum() Dim ws As Worksheet Dim i As Double i = 0 Dim bletter As Boolean For Each ws In ThisWorkbook.Worksheets If ws.Name <> "Sheet1" Then bletter = IsNumeric(ws.Range("A10").Value) If bletter = True Then i = i + ws.Range("A10") End If End If Next Sheets("Sheet1").Range("A1") = i End Sub