AW: Datum in Spalte finden
11.04.2013 22:39:59
fcs
Hallo Rolf,
ich hab ein wenig experimentiert.
Es gibt Probleme bei der Suche, wenn die Zellen nicht im Standarddatumsformat (z.B. TT.MM.JJJJ bzw. Datum kurz) formatiert sind. Manchmal funktioniert es auch wenn man den Suchwert des Datums formatiert entsprechend der Anzeige in der Tabelle - aber eben nur manchmal.
Gruß
Franz
empfohlenen Makroanpassung:
Sub aaa()
Dim rng As Range
Set rng = Worksheets(1).Cells(1, 4).EntireColumn.Find(Date, LookIn:=xlValues, lookat:= _
xlWhole)
If rng Is Nothing Then
MsgBox " aktelles Datum in Spalte D nicht gefunden!"
Else
rng.Select
End If
End Sub
Bei den folgenden Beispieldaten findet das Makro den Wert in Zeile 10, ab nicht den in Zeile 4.
1 Feld004
2
3 Mittwoch, 10. April 2013
4 Donnerstag, 11. April 2013
5 Freitag, 12. April 2013
6 Samstag, 13. April 2013
7
8
9 10.04.2013
10 11.04.2013
11 12.04.2013
12 13.04.2013
13 14.04.2013