Find-Methode findet nichts

Bild

Betrifft: Find-Methode findet nichts
von: Thomas
Geschrieben am: 13.02.2005 15:38:57
Hallo VBA-Begeisterten
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
Bild

Betrifft: AW: Find-Methode findet nichts
von: Udo
Geschrieben am: 13.02.2005 15:41:45
Schreib statt Cells(1) nur Cells
Udo
Bild

Betrifft: AW: Find-Methode findet nichts
von: Thomas
Geschrieben am: 13.02.2005 15:46:23
Hallo Udo
Ich glaube wir hatte gestern schon das Vergnügen
Danke für den Hinweis, leider ohne Erfolg.
Gruß Thomas
Bild

Betrifft: AW: Find-Methode findet nichts
von: JL
Geschrieben am: 13.02.2005 15:53:00
Hi,
Schreib statt LookIn: =xlFormulas,
xlvalues
Gruß
Jörg
Bild

Betrifft: AW: Find-Methode findet nichts
von: Thomas
Geschrieben am: 13.02.2005 16:00:24
Hallo Jörg
Leider auch ohne Erfolg
Gruß Thomas
Bild

Betrifft: AW: Find-Methode findet nichts
von: Udo
Geschrieben am: 13.02.2005 15:58:17
Set newSearch = Cells.Find(CDate("01.05.2002"), After:=ActiveCell, LookIn:=xlFormulas, _
Udo
Bild

Betrifft: AW: Find-Methode findet nichts
von: Thomas
Geschrieben am: 13.02.2005 16:03:17
Hallo Udo
Leider auch kein Erfolg
Woran mag das bloß liegen?????
Gruß Thomas
Bild

Betrifft: AW: Find-Methode findet nichts
von: Udo
Geschrieben am: 13.02.2005 16:07:19
Im Gegensatz zur ersten Antwort ist das jetzt getestet und läuft!
Lad mal eine Beispieldatei hoch.
Udo
Bild

Betrifft: AW: Find-Methode findet nichts
von: Thomas
Geschrieben am: 13.02.2005 16:12:16
Hallo Udo
Danke für dein Interesse
Hier die Datei
https://www.herber.de/bbs/user/18001.xls
Ist wie gesagt aus einem Buch und nur zur Übung gedacht !
Gruß Thomas
Bild

Betrifft: AW: Find-Methode findet nichts
von: Udo
Geschrieben am: 13.02.2005 16:33:03
https://www.herber.de/bbs/user/18002.xls
Udo
Bild

Betrifft: AW: Find-Methode findet nichts
von: Thomas
Geschrieben am: 13.02.2005 16:54:14
Hallo Udo
Es funzt wirklich prima
Bitte noch eininge erklärungen:
Was bedeutet cDate und warum muß eine Eckige Klammer genommen werden
Danke schon mal
Thomas
Bild

Betrifft: AW: Find-Methode findet nichts
von: Udo
Geschrieben am: 13.02.2005 17:09:45
CDate wandelt den Text "01.05.2002" in ein "echtes" datum um, wie es ja auch in der
Zelle steht.
[a1] ist die Kurzschreibweise, könnte auch so aussehen: Range("A1")
Udo
Bild

Betrifft: AW: Find-Methode findet nichts
von: Thomas
Geschrieben am: 13.02.2005 17:19:33
Danke Udo
Jetzt komme ich wieder voran
Bis zum nächsten mal
Gruß Thomas
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Find-Methode findet nichts"