Falsche Datum suche mit Makro
17.01.2005 10:05:20
Heinz
Habe in mehreren Tabellenblättern in Spalte A4 bis A52 ein fortl.Datum stehen.
Wenn ich über eine Inputbox das Datum suche, liefert es mir immer falsche Werte.
Und wenn es das Datum nicht gibt sollte die Fehlermeldung kommen " Datum nicht vorhanden"
Bitte um Hilfe.
Danke
Sub MultiSuche()
Dim Sh As Worksheet
Dim GZelle As Range
Dim FStelle$
Dim SBegriff
SBegriff = InputBox("Bitte Suchbegriff eingeben:")
For Each Sh In Worksheets
Sh.Activate
Set GZelle = Sh.Cells.Find(SBegriff)
If Not GZelle Is Nothing Then
FStelle = GZelle.Address
Do
GZelle.Activate
If MsgBox("Weiter", vbYesNo + vbQuestion) = vbNo Then Exit Sub
Set GZelle = Cells.FindNext(After:=ActiveCell)
If GZelle.Address = FStelle Then Exit Do
Loop
End If
Next Sh
End Sub