Suchfunktion nit VBA
23.02.2017 15:16:35
Marko
ich habe letzte Woche an diese Excelplattform ein VBA Codes bekommen welche einwandfrei funktioniert.(Code siehe unten)
Kurze Beschreibung:
User sucht nach bestimmtem Begriff in ganzem Tabellenblatt z.B. nach :bestand, *best, *besta* etc.'.
Alle Suchtreffer werden mit Farbe Grün markiert.
Bei nicht gefundene such Ergebnisse gibt ein MsgBox Info an User.
Soweit alles perfekt.
Aus dem Betrieb habe ich eine anfrage bekommen:
dass Excel in die Ergebnis Zelle auch automatisch springt.
Bei mehrere such Treffer, einfach in die erste Zelle.
Vielen Dank und Gruss
Marko
Public Sub Find_Methode_Transaktionen()
Dim rZelle As Range
Dim sFundst As String
Dim sSuchbegriff As String
sSuchbegriff = InputBox("Hallo User, bitte den Suchbegriff eingeben!")
If sSuchbegriff = vbNullString Then Exit Sub
With ThisWorkbook.Worksheets("Transaktionen") ' den Tabellenblattnamen ggf. anpassen!
Set rZelle = .Cells.Find(What:=sSuchbegriff, LookAt:=xlPart, LookIn:=xlValues)
If Not rZelle Is Nothing Then
sFundst = rZelle.Address
Do
.Range(rZelle.Address).Interior.Color = vbGreen 'farbe wechseln'
Set rZelle = .Cells.FindNext(rZelle)
Loop While Not rZelle Is Nothing And rZelle.Address sFundst
Else
MsgBox "Der gesuchte Begriff """ & sSuchbegriff & """ wurde nicht gefunden.", _
48, " Hinweis für " & Application.UserName ' MsgBox'
End If
End With
End Sub