Such-Makro,
Karsten
jemand von euch hat mir dankenswerter Weise diesen Befehl geschrieben. Die Suche beginnt aber ab dem heutigen Datum. Ich bräuchte sie bis zum heutigen Datum. Danke für eure Hilfe.
Gruß
Karsten
Option Explicit
Public xrng As Range
Public xrngBereich As Range
Sub finde_Inhalt_in_B_bis_heute()
Dim varRes
With ActiveSheet
If rng Is Nothing Then
varRes = Application.Match(CLng(Date), .Range("A:A"), 0)
If IsNumeric(varRes) Then
Set rngBereich = .Range(Cells(2, 2), .Cells(varRes, 2))
Set rng = rngBereich.find(What:=.Cells(1, 2), LookIn:=xlValues, LookAt:=xlPart, After:= _
rngBereich.Cells(rngBereich.Rows.Count, 1))
If Not rng Is Nothing Then Application.Goto rng
End If
Else
Set rng = rngBereich.FindNext(rng)
If Not rng Is Nothing Then Application.Goto rng
End If
End With
End Sub
Anzeige