Guten Morgen zusammen,
ich möchte in einer Spalte nach einem Datum suchen und die erste Zelle mit diesem Datum markieren.
Wenn ich das per Makrorekorder mache, funktioniert das auch beim Aufzeichnen. Wenn ich den Rekorder dann aber abspiele, geht es nicht mehr.
Das Datum steht in Tabelle in B3.
Sheets("Tabelle2").Select
Range("B3").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tabelle1").Select
Columns("A:A").Select
Selection.Find(What:="02.01.2020", After:=ActiveCell, LookIn:=xlFormulas _
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Range("A98").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Range("A1").Select
End Sub
Oder alternativ so: Geht aber auch nicht.
Dim Zeile As Long
Dim Eingabe As String
Eingabe = Worksheets("Tabelle2").Range("B2").Value
Sheets("Tabelle1").Select
Columns("A:A").Select
On Error GoTo xx
Zeile = Sheets("Tabelle1").Columns("a:a").Find(What:=Eingabe, After:=ActiveCell, LookIn:= _
xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Row
Exit Sub
xx:
MsgBox "Wert nicht gefunden " & Eingabe
End Sub
Kann mir jemand helfen?
|