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

03.11.2025 16:51:02

Achim H.

Hallo, Ich hatte schon einmal diese Frage in diesem Forum gestellt und möchte es einfach noch mal mit einer hinterlegten Beispielsdatei auf anraten versuchen.
https://www.herber.de/bbs/user/179512.xlsx, Ich möchte per VBA nach der in der Tabelle1, E1, hinterlegten Uhrzeit in N:N suchen lassen. Wenn die Uhrzeit gefunden wurde möchte das diese Zelle selektiert wird .

ich danke im vor raus.
Gruß
Achim H.

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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

03.11.2025 17:04:13

Raimund
Im Anhang sind...

03.11.2025 17:35:50

Case

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

03.11.2025 17:04:13

Raimund

Hi Achim,

So?

Sub SucheNachUhrzeit()

    Dim ws As Worksheet

    Dim rng As Range

    Dim zelle As Range

    Dim suchzeit As Variant

    

    ' Arbeitsblatt festlegen

    Set ws = ThisWorkbook.Sheets("Tabelle1") ' Ersetze "DeinBlattname" durch den tatsächlichen Namen des Blattes

    

    ' Uhrzeit aus Zelle E1 abrufen

    suchzeit = ws.Range("E1").Value

    

    ' Über den gefilterten Bereich in Spalte N iterieren

    On Error Resume Next ' Fehler ignorieren, falls kein Filter aktiv ist

    Set rng = ws.Range("N:N").SpecialCells(xlCellTypeVisible)

    On Error GoTo 0 ' Fehlerbehandlung zurücksetzen

    

    If Not rng Is Nothing Then

        For Each zelle In rng

            If zelle.Value = suchzeit Then

                zelle.Select

                Exit Sub ' Beende die Schleife nach dem ersten Fund

            End If

        Next zelle

    Else

        MsgBox "Kein gefilterter Bereich gefunden.", vbInformation

    End If

    

    MsgBox "Uhrzeit nicht gefunden.", vbExclamation

End Sub

Gruss

Raimund

Im Anhang sind...

03.11.2025 17:35:50

Case

Moin Achim, :-)

... zwei Möglichkeiten: ;-)
https://www.herber.de/bbs/user/179513.xlsb

Eventuell müsste man noch klären, wie du das Makro starten möchtest. ;-)

Servus
Case

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!