Find-Methode findet nichts
13.02.2005 15:38:57
Thomas
Der folgende code sollte eigentlich aus der ersten Zeile das Datum suchen.
Leider funzt das nicht. Für mich unerklärlich, da der code zum einen aus einem Buch und zum anderen aus der Recherche stammt.
Sub MonateAusblenden()
Dim newSearch As Range
Range("A1").Select
Set newSearch = Cells(1).Find("01.05.2002", After:=ActiveCell, LookIn: =xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False)
If Not newSearch Is Nothing Then
Range("C1", newSearch.Offset(0, -1)).EntireColumn.Hidden = True
End If
End Sub
Kann mir jemand erklären was hier falsch ist?
Ps: Mit F8 läuft es bis unten durch aber, wie gesagt, es findet nichts.
Bin schon ganz narrisch.
Vielen Dank für Hilfe
Gruß Thomas