Hallo Sebastian,
wir haben ohne Datei angefangen ud ich versuche es jetzt Live.
Option Explicit
Dim Dawert As Date
Private Sub Worksheet_Calculate()
Dim LoCounter As Long
Dim LoI As Long
Dim Loletzte As Long
If Dawert = 0 Then Dawert = Range("C4")
With Worksheets("Tabelle2")
Loletzte = IIf(IsEmpty(.Cells(.Rows.Count, 4)), .Cells(.Rows.Count, 4).End(xlUp).Row, .Rows.Count)
For LoI = 1 To Loletzte
If Not IsError(.Cells(LoI, 4)) Then
If .Cells(LoI, 4).HasFormula = False Then
If Not IsEmpty(.Cells(LoI, 4)) Then
If IsDate(.Cells(LoI, 4)) < Dawert Then
If .Cells(LoI, 4) = Dawert Then LoCounter = LoCounter + 1
End If
End If
End If
End If
Next LoI
End With
Range("D32") = LoCounter
End Sub
Falls das nicht klappt schicke mal Datei. Auf meiner HP steht eine Mail-Adresse.
Gruß Hajo