Suche
13.07.2005 21:45:15
seadog2000
Hab mal wieder ein Problem !
Hier im Forum konnte ich ein schönes Suchmakro finden.
Es funktioniert auch super.
Jedoch bei Datumseingaben wie z.B. 13.07.2005 da streikt es.
Was muß man an dem Code verändern?
Hier der Code:
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("WeiterSuchen", vbYesNo + vbQuestion) = vbNo Then Exit Sub
Set GZelle = Cells.FindNext(After:=ActiveCell)
If GZelle.Address = FStelle Then Exit Do
Loop
End If
Next Sh
MsgBox ("Suche beendet.")
End Sub
Gruß seadog2000