Habe eine Inputbox zum Datumsuchen in Tabellenblättern. Funktioniert DANK Eurer Hilfe wunderbar. Nur ein kleines Problemchen glaube ich für Euch.
Wenn Datum gefunden kommt Meldung. "Wollen Sie weitersuchen" Da es das Datum immer nur einmal gibt möchte ich diese Frage löschen. Aber wie ?
Danke für Eure Hilfe
Sub MultiSuche()
Dim Sh As Worksheet
Dim GZelle As Range
Dim FStelle As String
Dim SBegriff As Variant
Dim bSchalter As Boolean
bSchalter = False
SBegriff = Date
SBegriff = InputBox("Bitte als Suchbegriff ein Datum eingeben:", _
"Datums-Suche", Date)
If IsDate(SBegriff) Then
SBegriff = CDbl(CDate(SBegriff))
End If
For Each Sh In Worksheets
Sh.Activate
Set GZelle = Sh.Range("AA6:AA52").Find(what:=SBegriff, LookIn:=xlValues)
If Not GZelle Is Nothing Then
FStelle = GZelle.Address
bSchalter = True
Do
Sh.Cells(GZelle.Row, 1).Activate
If MsgBox("Weiter suchen ?", vbYesNo + vbQuestion) = vbNo Then Exit Sub
Set GZelle = Cells.FindNext(After:=ActiveCell)
If GZelle.Address = FStelle Then Exit Do
Loop
End If
Next Sh
If bSchalter = False Then
MsgBox "DAS DATUM IST NICHT VORHANDEN", 64, _
"Das Datum ist nicht vorhanden."
bSchalter = True
End If
End Sub