Hallo nero!
Nachfolgendes Makro sollte das machen, was Du Dir vorgestellt hast.
Sub Summe_Spalte_G()
Dim lngRow As Long
Dim dblSumme As Double
For lngRow = 1 To Cells(Rows.Count, 7).End(xlUp).Row
If IsNumeric(Cells(lngRow, 7)) Then
dblSumme = dblSumme + Cells(lngRow, 7)
End If
Next
MsgBox dblSumme
End Sub
Bei Fragen melde Dich.
MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]