Datum oben und Zelle unten

Question

Hallo M.O. guten Tag, hätte schon wieder eine Bitte.

Ich habe in Excel “Tabelle1“ in (M1:ABS1) ein Datum stehen, nun soll wenn ich z.B. in Zelle (F20) etwas eintrage die Zelle (M20:ABS20) wo oben das heutige Datum steht angesprungen wird. Und wenn ich in Zelle (A21) etwas eintrage die Zelle (M21:ABS21) wo oben das heutige Datum steht angesprungen wird, usw. Ich möchte das ganze mit einem Makro und Button ausführen. Gibt es da eine Möglichkeit, bitte um ein gesamtes Makro. Danke

Answer 1

Hi,

ich bin nicht M.O. und es gibt auch noch weitere Helfer...

Sub DatumSuchen()
    Dim rngDatum As Range
    Set rngDatum = Rows(1).Find(Date, lookat:=xlWhole, LookIn:=xlFormulas)
    If Not rngDatum Is Nothing Then
        Application.Goto reference:=Cells(ActiveCell.Row, rngDatum.Column)
    Else
        MsgBox "Datum nicht gefunden!"
    End If
End Sub

Bis später, Karin

Answer 2

Hallo Karin ist es möglich, dass die angesprungene Zelle ganz links erscheint und nicht ganz rechts am Bildschirm, wenn ja wie soll ich das machen. Vielen Dank.