Zelle E1,Uhrzeit ,gleiche Datum in sichtbare Zellen N suchen

Forumthread: Zelle E1,Uhrzeit ,gleiche Datum in sichtbare Zellen N suchen
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Zelle E1,Uhrzeit ,gleiche Datum in sichtbare Zellen N suchen

29.10.2025 16:33:43

Achim H.

Hallo und guten Tag,
ich habe mit chath gtp einen Code erstellen lassen. Leider bekomme ich nicht das gewünschte Ergebnis. Uhrzeit (hh:mm) aus der Zelle E1 und diese Uhrzeit in dem gefilterten Bereich N7:N28841 suchen und wenn gefunden diese Zelle selectieren. danke im vorraus .Anbei der Code:
Sub SucheUhrzeit()
Dim ws As Worksheet
Dim rng As Range
Dim cell As Range
Dim targetTime As Variant
Dim firstVisible As Range

Set ws = ThisWorkbook.Sheets("Termine") ' Name des Blatts ggf. anpassen
targetTime = TimeValue(ws.Range("E1").Value)

' Bereich N7:N28841 definieren
With ws
Set rng = .Range("N7:N28841")
End With

On Error Resume Next
Set firstVisible = Nothing
On Error GoTo 0

'restliche Logik
If Not rng Is Nothing Then
Dim vis As Range
On Error Resume Next
Set vis = rng.SpecialCells(xlCellTypeVisible)
On Error GoTo 0

If Not vis Is Nothing Then
For Each cell In vis
If Not IsEmpty(cell.Value) Then
If IsDate(cell.Value) Then
If TimeValue(cell.Value) = targetTime Then
Set firstVisible = cell
Exit For
End If
End If
End If
Next cell
End If
End If
End Sub

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zelle E1,Uhrzeit ,gleiche Datum in sichtbare Zellen N suchen

29.10.2025 17:51:49

daniel
AW: Zelle E1,Uhrzeit ,gleiche Datum in sichtbare Zellen N suchen

30.10.2025 13:28:27

GerdL

AW: Zelle E1,Uhrzeit ,gleiche Datum in sichtbare Zellen N suchen

29.10.2025 17:51:49

daniel

Hi
traditionell sind Foren von und für Menschen, die selber etwas lernen wollen.
Von daher ist es immer besser, wenn du uns zeigst, was du selber programmiert hast (oder zumindest versuchst hast zu programmieren).
ansonsten ist ein funktionierendes Excelmakro immer ein Zusammenspiel aus Code und der Tabelle die bearbeitet werden soll.
Gerade bei Uhrzeiten und ähnlichem müsste man schon genau wissen, wie die Werte in der Zelle vorliegen und was man genau vergleichen muss, um einen Treffer zu bekommen.

also was steht in E1 und was genau steht in den Zellen, die durchsucht werden?
am besten Beispieldatei hochladen und von Hand markieren, welche Zelle beim aktuellen Eintrag in E1 gefunden werden müsste.
wir brauchen nur E1 und die Spalte N, alle anderen Daten kannst du löschen.
und welche Terminübersicht braucht 29 tausend Zeilen?
wenn du eine Uhrzeit suchst, kommt diese öfters in der Liste vor oder nur einmal? Wie genau nimmst du das? Ein Tag hat 1440 Minuten.

Gruß Daniel

AW: Zelle E1,Uhrzeit ,gleiche Datum in sichtbare Zellen N suchen

30.10.2025 13:28:27

GerdL

Moin Achim

Sub SucheUhrzeit()

Dim ws As Worksheet

Dim rng As Range

Dim cell As Range

Dim targetTime As Date

Dim firstVisible As Range

Dim vis As Range



Set ws = ThisWorkbook.Sheets("Termine") ' Name des Blatts ggf. anpassen



'Testwerte

ws.Range("E1").Value = CDate("15.01.2025 12:10:12")

ws.Range("N7").Value = CDate("15.12.2024 12:10:12")





targetTime = TimeValue(ws.Range("E1").Value)



' Bereich N7:N28841 definieren

With ws

Set rng = .Range("N7:N28841")

End With



'On Error Resume Next

'Set firstVisible = Nothing

'On Error GoTo 0



'restliche Logik

If Not rng Is Nothing Then



On Error Resume Next

Set vis = rng.SpecialCells(xlCellTypeVisible)

On Error GoTo 0



If Not vis Is Nothing Then

For Each cell In vis

If Not IsEmpty(cell.Value) Then

If IsDate(cell.Value) Then

If TimeValue(cell.Value) = targetTime Then

Set firstVisible = cell

firstVisible.Select

Exit For

End If

End If

End If

Next cell

End If

End If

End Sub