|
Hallo,
vielen Dank für die Antwort. Wie du schon geschrieben hast, funktioniert es mit dem aufgezeichneten Makro nicht.
Das hatte ich leider auch schon erfolglos versucht, wenn ich deine letzte Zeile verwende, erhalte ich folgenden Fehlerhinweis :-(
Weiß jemand weiter?
---------------------------------------------------------------------------------------------------------
Laufzeitfehler '438':
Objekt unterstützt diese Eigenschaft oder Methode nicht
----------------------------------------------------------------------------------------------------------
Dim ws As Worksheet
Dim rng As Range
Dim strFind As Variant
strFind = InputBox("Datum im Format JJJJ-MM-TT eingeben: --> Das eingegebene Datum muss im Feld enthalten sein!")
If strFind = "" Then
Exit Sub
Else
Columns("B:B").Selection.Find(What:="all", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
End if
|