Such-Makro
05.06.2009 21:51:54
Karsten
mit folgendem Makro wird bei mir von B1 abwärts nach einem bestimmten Zellinhalt gesucht:
Sub finde_Inhalt_in_B()
Static Found As Range
Application.EnableEvents = False
With Worksheets("Lehrbericht")
If Found Is Nothing Then
Set Found = .Columns(2).Find(Range("B1"), Range("B1"), xlValues, 2, 1, 1, False)
Else
Set Found = .Columns(2).Find(Range("B1"), Found, xlValues, 2, 1, 1, False)
End If
If Not Found Is Nothing Then
If Found.Row = 1 Then
.Range("B1") = "T E R M I N E"
On Error Resume Next
Set Found = Nothing
End If
End If
If Not Found Is Nothing Then Application.Goto Found
End With
Application.EnableEvents = True
End Sub
Da in Spalte A aber das Datum fortlaufend steht, möchte ich, dass der Suchvorgang ab der Zelle (Zeile) beginnt, wo in Spalte A das aktuelle Datum steht. Also wenn A50 5. Juni 2009 ist, soll erst ab B50 gesucht werden. Wenn mir da jemand weiterhelfen kann, allerbesten Dank?
Gruß
Karsten