Bei nachfolgendem Makro erscheint auf der Zeile
.Cells(zNr, 26) = Application.SumIf(vSheet.Range("C:C"), .Range("C" & zNr), vSheet.Range("R:R"))
folgende Fehlermeldung:
Fehler beim Kompilieren -
Unzulässiger oder nicht ausreichend definierter Verweis
Kann mir jemand einen Hinweis geben, was ich hier falsch mache?
Danke, Peter
Sub Plausi()
Dim aBook As Workbook
Dim aSheet As Worksheet
Dim vSheet As Worksheet
Dim x As Variant
Dim zNr As Long
Dim nString As String
Dim dstring As Date
Set aBook = ThisWorkbook
Set aSheet = aBook.ActiveSheet
If aSheet.Index = 1 Then Exit Sub
Set vSheet = aBook.Sheets(aSheet.Index - 1)
dstring = Sheets("Parameter").Range("navdate")
nString = Format(Month(Date), "00") & Format(Day(Date), "00")
Set vSheet = Sheets(nString)
'beginnend ab Zelle C5 im aktiven Sheet
zNr = 5
Do While Cells(zNr, 3) <> ""
.Cells(zNr, 26) = Application.SumIf(vSheet.Range("C:C"), .Range("C" & zNr), vSheet.Range("R:R"))
Else
End If
zNr = zNr + 1
Loop
End Sub