kann mir jemand sagen wie ich das Problem lösen kann?
Details sind in der Datei beschrieben.
https://www.herber.de/bbs/user/112195.xlsm
Sub a()
Dim Wb As Workbook: Set Wb = ThisWorkbook
Dim Ws As Worksheet: Set Ws = Wb.Worksheets("Tabelle1")
Dim r As Range, c As Range
With Ws
Set r = .Range(.Cells(5, 3), .Cells(.Rows.Count, 3).End(xlUp))
If WorksheetFunction.Sum(r)
Kommst Du damit hin?Sub Checker()
Dim lastrow As Integer
Dim i As Integer
Dim fehler As Boolean
lastrow = Cells(Rows.Count, 3).End(xlUp).Row
For i = 5 To lastrow
If Cells(i, 3).Value
Sub a()
Dim Wb As Workbook: Set Wb = ThisWorkbook
Dim Ws As Worksheet: Set Ws = Wb.Worksheets("Tabelle1")
Dim r As Range, c As Range
With Ws
Set r = .Range(.Cells(5, 3), .Cells(.Rows.Count, 3).End(xlUp))
If WorksheetFunction.Sum(r)
Vielleicht lässt Du Dich ja auf eine Rückmeldung herab.