Excel VBA Zählenwenn Uhrzeit

Forumthread: Excel VBA Zählenwenn Uhrzeit

20.02.2025 14:49:20

Excel Weltmeister

Guten Tag,

ich möchte Zählen, wie oft die Uhrzeit 00:00:00 in der Spalte steht.
Problem habe nicht nur die Uhrzeit, sonden Datum mit Uhrzeit.
Beispiele:
20.02.2025 15:00:00
19.02.2025 12:40:00
21.02.2025 00:00:00
20.02.2025 00:00:00



Private Sub Uhrzeit ()

Dim Uhrzeit As String

Set U = Active.Sheet.Range("A:A")

Uhrzeit = Application.CountIfs(U, "00:00:00")

MsgBox Uhrzeit

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Excel VBA Zählenwenn Uhrzeit

20.02.2025 15:10:38

Daniel
AW: Excel VBA Zählenwenn Uhrzeit

20.02.2025 15:22:14

Yal
AW: Excel VBA Zählenwenn Uhrzeit

20.02.2025 15:24:09

UweD
AW: Excel VBA Zählenwenn Uhrzeit

20.02.2025 15:44:57

UweD

AW: Excel VBA Zählenwenn Uhrzeit

20.02.2025 15:10:38

Daniel

Hi
Das kannst du generell nicht mit ZählenWenns zählen.
ZählenWenns schaut immer nur auf den tatsächlich unformatierten Zellwert.

Hier müsstest du selber programmieren:

Dim Zähler as long

Dim x

For each x In Range("A:A").Specialcells(xlcelltypeconstants, 1)

    If x = Int(x) then Zähler = Zähler + 1

Next

Und kleiner Tipp am Rande, das Ergebnis von ZählenWenn ist kein Text(String) sondern eine Zahl. Daher sollte man die Variable für das ZählenWenn-Ergebnis auch entsprechend deklarieren

Gruß Daniel

AW: Excel VBA Zählenwenn Uhrzeit

20.02.2025 15:22:14

Yal

Hallo Weltmeister (Man spricht sich im Forum per Vorname an ;-)

Ein Datum ist der Teil der Zahl vor der Komma, eine Zeit ist der Zeit nach der Komma:
20.2.2025 12:00:00 ist dementsprechend 45.708,5
0,5 weil 12 Uhr die Hälfte von einem Tag (24 Std)

Du kannst daher prüfen, ob die Zahl ohne Nachkommastellen dieselbe als mit:
Uhrzeit = Application.SumProduct((Round(U) = U) * 1)

Ansonten müsstest Du -unter anderem falls es nicht um 00:00:00 geht- iterativ vorgehen:

Private Sub Uhrzeit()

Dim Z As Range

Dim Erg As Long

    For Each Z In ActiveSheet.Range("A:A").UsedRange

        Erg = Erg - ((Z.Value - Round(Z.Value)) = CDate("02:20:00")) ' minus, weil CInt(True) = -1

    Next

    MsgBox Erg

End Sub

VG
Yal

AW: Excel VBA Zählenwenn Uhrzeit

20.02.2025 15:24:09

UweD

Hallo

die Formel lautet so

Arbeitsblatt mit dem Namen 'Tabelle1'
	A	B	C	D	E
1	20.02.2025 15:00				2
2	19.02.2025 12:40
3	21.02.2025 00:00
4	20.02.2025 00:00

Zelle	Formel
E1	=SUMMENPRODUKT((REST(A1:A4;1)=0)*1)

LG UweD

AW: Excel VBA Zählenwenn Uhrzeit

20.02.2025 15:44:57

UweD

Als VBA und für deine ganze Spalte

Private Sub Uhrzeit()

    Dim U As Range, Uhrzeit As String

    Set U = ActiveSheet.Range("A:A")

    

    Uhrzeit = Evaluate("SUMPRODUCT((MOD(" & U.Address & ",1)=0)*(" & U.Address & ">0))")

    

    MsgBox Uhrzeit

End Sub

LG UweD

Forumthread: Excel VBA Zählenwenn Uhrzeit

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread