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"