Suchfunktion per Knopfdruck
Peter
folgendes Problem habe ich:
Ich benötige eine Suchfunktion die ein Suchfenster auruft, in dem man dann ein oder mehrere Suchwörter eingeben kann (Groß- und Kleinschreibung soll dabei egal sein) Wird eine Übereinstimmung gefunden, so soll zur Position der Übereinstimmung gewechselt werden.
Aus dem Forum hier habe ich mir das hier zusammengebastelt. Das mit der Groß- und Kleinschreibung haut aber noch nicht hin.
Würde mich freuen, wenn jemand mir dabei weiterhelfen könnte
Private Sub CommandButton2_Click()
'Makro
Dim GefBer As Range
Dim SuchBer As Range
Dim z As Range
Dim addr As String, sFind As String
Dim cell As Range
sFind = InputBox("Suche nach:")
If sFind = "" Then MsgBox "Es wurden keine Suchergebnisse gefunden"
If sFind = "" Then Exit Sub
Set SuchBer = Range("B1:B" & Columns("B").EntireColumn.Find("*", searchdirection:=xlPrevious).Row)
For Each z In SuchBer.Cells
If z.Value = sFind Then
If GefBer Is Nothing Then
Set GefBer = Range(Cells(z.Row, 2), Cells(z.Row, 12))
Else
Set GefBer = Application.Union(GefBer, Range(Cells(z.Row, 2), Cells(z.Row, 12)))
End If
End If
Next z
If Not GefBer Is Nothing Then GefBer.Select
End Sub
Anzeige