Ich möchte nicht die Spalte "T" fix hinterlegen,
sondern die Spalte mit der Überschrift "gef. To" suchen und die Summe derer ausweisen:
WorksheetFunction.Sum(Range("T:T"))
Wer kann mir sagen wie das geht?
Gruß
F.
Sub summe()
Dim C As Range
Set C = [1:1].Find("gef. To")
If Not C Is Nothing Then
MsgBox Application.Sum(Columns(C.Column))
End If
End Sub