|
Mahlzeit ;)
Option Explicit
Sub WerteSpalteAbsolut()
Rem Tabelle hat Überschrift in Zeile ...
Const tRow As Long = 1
Const WerteStr As String = "Werte"
Dim lrow As Long 'letzte Zeile in Tabelle
Dim wCol As Long 'Spalte für WerteStr
Dim wRng As Range 'Bereich Summe
On Error GoTo errorhandler:
wCol = Rows(tRow).Find(WerteStr).Column
lrow = ActiveSheet.Cells.Find("*", [a1], , , xlByRows, xlPrevious).Row
Set wRng = Range(Cells(tRow + 1, wCol), Cells(lrow, wCol))
Cells(lrow + 1, wCol).Value = WorksheetFunction.Sum(wRng)
On Error GoTo 0
Exit Sub
errorhandler:
On Error GoTo 0
MsgBox WerteStr & " nicht gefunden oder Tabelle leer"
End Sub
Sub WerteSpalteFormula()
Rem Tabelle hat Überschrift in Zeile ...
Const tRow As Long = 1
Const WerteStr As String = "Werte"
Dim lrow As Long 'letzte Zeile in Tabelle
Dim wCol As Long 'Spalte für WerteStr
Dim wRng As Range 'Bereich Summe
Dim wAdr As String
On Error GoTo errorhandler:
wCol = Rows(tRow).Find(WerteStr).Column
lrow = ActiveSheet.Cells.Find("*", [a1], , , xlByRows, xlPrevious).Row
Set wRng = Range(Cells(tRow + 1, wCol), Cells(lrow, wCol))
wAdr = Replace(wRng.Address, "$", "")
Cells(lrow + 1, wCol).Formula = "=SUM(" & wAdr & ")"
Exit Sub
errorhandler:
On Error GoTo 0
MsgBox WerteStr & " nicht gefunden oder Tabelle leer"
End Sub
|