bekomme Exkate Suche nicht hin
04.03.2015 08:18:59
Daniel
ich habe hier ein Skript welches nach einer Eingabe eine Zahl in einer Spalte sucht und und bei jedem Treffer die Zeile markiert, die den Wert NICHT enthält. Schliesslich werden alle markierten Zellen ausgeblendet. In der zu suchenden Spalte können in den einzelnen Zellen mehrere Zahlen stehen. Jetzt kommt die Krux: z.B. suche ich nach "11", aber nun markiert es auch Zeilen mit "211" oder "112". Es darf nur der EXAKTE Wert gefunden werden.
Ich habe schon probiert das "LookAt:=xlWhole" einzubauen, ich bekomme es nicht hin und verstehe es ehrlich gesagt auch nicht - ich bin absolut kein Profi sondern ein Kopierer und Umbauer. Das hat bisher ganz gut funktioniert...bisher.
Private Sub Suche_Click()
ActiveSheet.Outline.ShowLevels RowLevels:=2
Dim Zelle As Range
Dim Bereich As Range
Dim rngGefunden As Range
Dim Eingabe As String
Set Bereich = Range("F11:F" & Cells(Rows.Count, 1).End(xlUp).Row) 'Suche bis letzte gefüllte _
Zelle in Spalte F
Eingabe = UCase(InputBox("BKP Suche", "Bitte hier BKP eintippen"))
For Each Zelle In Bereich
If InStr(UCase(Zelle.Value), Eingabe) = 0 Then
If Not rngGefunden Is Nothing Then
Set rngGefunden = Union(rngGefunden, Rows(Zelle.Row))
Else
Set rngGefunden = Rows(Zelle.Row)
End If
End If
Next Zelle
If Not rngGefunden Is Nothing Then
rngGefunden.Select 'auswählen der gefundenen Zeilen
Selection.EntireRow.Hidden = True
Else
MsgBox ">> " & Eingabe & "
Danke&Grz