ich hab ein kleines Problem mit der Summenberechnung in VBA. Wie kann ich die Summen in einzelnen Tabellen berechnen (mit VBA) unabhängig davon wieviel Zeilen vorhanden sind?
Sub test()
Dim blatt As Worksheet
Dim myrange As Range
Dim letzte As Long
Dim i As Long
Dim summe As Variant
For Each blatt In ActiveWorkbook.Sheets
letzte = blatt.Range("a65536").End(xlUp).Row ' Angenommen Summe über Spalte A
summe = 0
For i = 1 To letzte
summe = summe + blatt.Cells(i, 1) ' 1 steht für Spalte A
Next i
blatt.Cells(letzte + 1, 1) = summe
Next blatt
End Sub