Alle Werte in Tabelle finden, auch Datum VBA

[mdt8ws]

Hallo zusammen,
ich benötige eine Excel-Suchfunktion (Makro Suchmaske "Suchbegriff eingeben") mit der dann alle Zellwerte auch Datum (TT.MM.JJJJ) gefunden werden.
In der Tabelle sind auch auch Telefonnummern enthalten (123 456789 Vorwahl und Rufnummer durch Leerzeile getrennt).
Außerdem sollte diese Suchfunktion die Option "Weitersuchen" enthalten und bei einer gefundenen Zelle die ganze Zeile (oder auch nur bestimmte Zellen je nach Veränderung im Code) markieren die aktuell gefunden wurde. Nach dem Suchvorgang sollte dann die Zeilenmarkierung wieder gelöscht werden.
Ich hoffe auf Unterstützung.

MfG
mdt8ws

[RPP63]

Moin!
Strg+f?
(wie in jedem Windows-Programm)

[mdt8ws]

Hallo,
Danke für den Hinweis aber das reicht leider nicht. Ich benötige eine VBA-Lösung.

MfG
mdt8ws

[mdt8ws]

Hallo zusammen,
gibt es eventuell schon einen passenenden Code zu meinem Thema oder kann
mir jemand einen Vorschlag zur Verfügung stellen ?

Bin für jede Unterstützung sehr dankbar !

MfG
mdt8ws

[Kuwer]

Hallo,

Sub Suchenmakro()
  Dim rngF As Range
  Dim strF As String
  Dim varS As Variant
  
  varS = InputBox("")
  If IsDate(varS) Then varS = CDate(varS)
  
  Set rngF = Cells.Find(varS, , xlValues, xlWhole)
  If Not rngF Is Nothing Then
    strF = rngF.Address
    Do
      rngF.Select
      If MsgBox("Weitersuchen?", vbYesNo) = vbNo Then Exit Do
      Set rngF = Cells.FindNext(rngF)
    Loop While Not rngF Is Nothing And rngF.Address <> strF
  End If
End Sub

Gruß Uwe

[mdt8ws]

Hallo Uwe,

vielen Dank das funktioniert schonmal sehr gut.
Können eventuell die nachfolgenden Veränderungen noch durchgeführt werden ?

• In der Suchmaske den Texthinweis "Suchbegriff eingeben"
  
• Nach dem letzten gefundenen Wert der Texthinweis "Es wurde nichts mehr gefunden !"
  
• Beim Finden einer Zelle, die Zeile bzw. Bereiche der Zeile (die im Code festgelegt werden können) farblich markieren, und diese Markierung nach dem Suchvorgang bzw. beim Weitersuchen wieder entfernen. Soll heißen, immer nur die Zeile zur gerade aktuell gefundenen Zelle markieren.
  
• Bei Auswahl Abbrechen des Suchvorgangs sollte dann nicht mehr Weitersuchen angezeigt werden.
  
  

MfG
Gerhard

[Kuwer]

Hallo Gerhard,

Sub Suchenmakro()
  Dim rngF As Range
  Dim strF As String
  Dim varS As Variant
  
  varS = InputBox("Suchbegriff eingeben")
  If IsDate(varS) Then varS = CDate(varS)
  
  Set rngF = Cells.Find(varS, , xlValues, xlWhole)
  If Not rngF Is Nothing Then
    strF = rngF.Address
    Do
      rngF.EntireRow.Select
      If MsgBox("Weitersuchen?", vbYesNo) = vbNo Then Exit Sub
      Set rngF = Cells.FindNext(rngF)
    Loop While Not rngF Is Nothing And rngF.Address <> strF
    MsgBox "Es wurde nichts mehr gefunden!", vbInformation
  Else
    MsgBox "Es wurde nichts gefunden!", vbInformation
  End If
End Sub

Gruß Uwe

[mdt8ws]

Hallo Uwe,

bin total begeistert. Genau so sollte es sein. In diesem Forum sind die absoluten Excel-Experten.

Vielen Dank !

Gruß
Gerhard