In Spalte A befinden sich Datumswerte. In Zelle B1 geben ich ein Datum ein und möchte dann per Schaltfläche zum gleichen Datum springen (Zelle aktivieren), welches sich irgendwo in Spalte 1 befindet.
Danke und Grüße
JN
Sub SuchDatum()
Dim rng As Range
Dim dat As Date
Dim var As Variant
dat = Range("B1").Value
var = Application.Match(CDbl(dat), Columns(1), 0)
If IsError(var) Then
MsgBox "Datum wurde nicht gefunden!"
Else
Cells(var, 1).Select
End If
End Sub
GrußDie erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen