in einer Tabelle wird mit den nachfolgenden Makro' s
die Summe in Spalten und Zeilen berechnet.
Das Makro "Summenspalten" funktioniert prima, dass Ergebnis
wird in die erste freie Zeile geschrieben.
Das Makro "SummenZeilen" funktioniert nicht ganz so wie ich es
möchte: Die Summen der Zeilen werden in die erste Spalte der Tabelle
eingetragen sollen aber in die erste freie Spalte links eingetragen
werden.
Sub SummenSpalten()
Dim Bereich As Range
Dim Ergebnis As Range
Set Bereich = ActiveCell.CurrentRegion
Set Ergebnis = Bereich.Offset(Bereich.Rows.Count).Rows(1)
Ergebnis.Formula = "=SUM(" & Bereich.Columns(1).Address(False, False) & ")"
End Sub
Sub SummenZeilen()
Dim Bereich As Range
Dim Ergebnis As Range
Set Bereich = ActiveCell.CurrentRegion
Set Ergebnis = Bereich.Offset(Bereich.Columns.Count).Columns(1)
Ergebnis.Formula = "=SUM(" & Bereich.Rows(1).Address(False, False) & ")"
End Sub
Hat jemand eine Idee?
Vielen Dank
Grüße