/ / Excel VBA-Suchbereich abhängig von der Tageszeit - Excel, Excel-VBA, VBA

Excel VBA-Suchbereich abhängig von der Tageszeit - Excel, Excel-VBA, VBA

Ich habe eine Spalte mit Zellen im Format "TT / MM / JJ HH: MM: SS" und möchte die Anzahl der Zellen mit Datum und Uhrzeit in Abhängigkeit von der Tageszeit im folgenden Bereich zählen.

Wenn die aktuelle Zeit <07:00 ist, dann

Count Occurances in range between 07:00 the previous day and now

Sonst

Count occurances between 07:00 today and now

Ende wenn

Vielen Dank im Voraus.

Antworten:

0 für die Antwort № 1

Dieser Code wird höchstwahrscheinlich für Sie funktionieren. Es ist auch ziemlich einfach und leicht zu ändern, um die richtigen Blätter und Zellen zu referenzieren, die Sie benötigen, um es zu betrachten. Ich hoffe das hat geholfen!

Sub CountingNumberOfOccurancesWithingRangeDependingOnTime()
Dim curTime As Date
Dim preTime As Date
Dim todayTime As Date
Dim curHour As Integer
Dim counter As Integer

curTime = Now
curHour = Format(curTime, "HH")
preTime = curTime - 1

x = 1

If curHour < 7 Then
Do Until Sheet1.Cells(x, 1).Value = Empty
cellTime = Sheet1.Cells(x, 1).Value

If cellTime > preTime And cellTime < curTime Then
counter = counter + 1
End If
x = x + 1
Loop
Else
todayTime = Date & " " & "07:00:00"
Do Until Sheet1.Cells(x, 1).Value = Empty
cellTime = Sheet1.Cells(x, 1).Value

If cellTime > todayTime And cellTime < curTime Then
counter = counter + 1
End If
x = x + 1
Loop
End If

MsgBox counter "This isn"t necissary, but it just is here to show the number of cells counted



End Sub