CountIFs mit >
13.04.2022 11:16:04
Jonny
ich möchte in einer Textbox eine Countifs anzeigen lassen. Für Bereich1 funktioniert es ohne Probleme, für Bereich2 kommt es mit > zum Kompilieren-Fehler. Ohne > funktioniert es allerdings sind dann keine Einträge erfasst. Um genau zu sein soll am Ende auch noch ein -1h mit rein so das einmal nach dem Datum in Spalte C und der aktuellen Uhrzeit -1h in Spalte F zusammen gezählt wird.
Private Sub UserForm_Activate()
Dim Bereich1 As Range, Bereich2 As Range
Dim Zelle As Range
Set Bereich1 = ThisWorkbook.Worksheets("Doublecheck").Range("C1:C10000")
Set Bereich2 = ThisWorkbook.Worksheets("Doublecheck").Range("F1:F10000")
Me.txt_Scannercode_check.SetFocus
txt_Errors.Value = Application.CountIfs(Bereich1, Format(DateValue(Now), "dd/mm/yyyy"), Bereich2, >(Format(TimeValue(Now), "hh:mm:ss")))