Suche eines Eintrags einer Zeile über Makro

Forumthread: Suche eines Eintrags einer Zeile über Makro
3 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Suche eines Eintrags einer Zeile über Makro

14.11.2025 13:19:56

cori269

Hallo,
ich möchte gern einen Eintrag (Datum), der in Zelle A1 steht, gern in einer längeren Datumsspalte A1 finden und zu diesem Eintrag in eine zugehörige Beschreibung aus gleicher Zeile in Spalte B springen.
Vorab vielen Dank für Eure Hilfe
cori269

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Suche eines Eintrags einer Zeile über Makro

14.11.2025 13:39:19

Uduuh
AW: Suche eines Eintrags einer Zeile über Makro

14.11.2025 13:52:23

BoskoBiati
AW: Suche eines Eintrags einer Zeile über Makro

17.11.2025 16:26:43

daniel

AW: Suche eines Eintrags einer Zeile über Makro

14.11.2025 13:39:19

Uduuh

Hallo,
so?

Sub aaa()

  Dim vntRow

  vntRow = Application.Match(Cells(1, 1), Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp)), 0)

  If Not IsError(vntRow) Then

    Cells(vntRow + 1, 2).Activate

  Else

    MsgBox Format(Cells(1, 1), "DD.MM.YYYY") & " nicht vorhanden!", vbOKOnly, "Fehler"

    Cells(1, 1).Activate

  End If

End Sub

Gruß aus'm Pott
Udo

AW: Suche eines Eintrags einer Zeile über Makro

14.11.2025 13:52:23

BoskoBiati

Hi,

und warum VBA? Da reicht doch eine einfache SVERWEIS-Formel:

=SVERWEIS(A1;A2:B2000;2;0)

Gruß

Edgar

AW: Suche eines Eintrags einer Zeile über Makro

17.11.2025 16:26:43

daniel

Hi
im Prinzip so, den Zellbereich der Datumsspalte aber bitte noch korrekt angeben

dim X as range

set X = Range("Datumspalte").find(what:=Range("A1").value, lookat:=xlwhole, lookin:=xlvalues)

if X is Nothing then

    Msgbox "Datum nicht gefunden"

Else

    Application.Goto X.Offset(0, 1)

end if

Gruß Daniel

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