Werte Herren & Damen
Als absoluter VBA Novize ersuche ich hier eurer Hilfe.
Ich habe in der Spalte A ab Zeile 3 - 2000 unterschiedliche eindeutige Werte, die
jedoch ausgeblendet sind.
Über einen Button mit Textfeld suche ich nach einem bestimmten Wert in der Spalte A von Zeile 3-2000. Da mann aber mit .Find keine Werte in ausgeblendeten Zellen finden kann, such ich nach einer andere Lösung.
Im Moment löse ich es wie folgt:
Application.ScreenUpdating = False
Range("3:2000").EntireRow.Hidden = False
Dim rng As Range
Set rng = Sheets("Liste").Range("A:A").Find(What:=TextBox1.Value, Lookat:=xlWhole, LookIn:=xlValues)
If Not rng Is Nothing Then
rng.Select
Dim rngGesamtbereich As Range
ActiveCell.EntireRow.Select
Unload Me
Application.ScreenUpdating = True
Exit Sub
Else
MsgBox "Nich gelistet"
Unload Me
Application.ScreenUpdating = True
End If
End Sub
Da so aber immer alle Zeilen gezeigt werden, kann der User natürlich auch sämtliche Zeilen bearbeiten. Dies möchte ich gerne verhindern.
So sollte das Makro funktionieren:
Nach Eingabe des Textfeldes und Betätigen des Buttons sollte die Zeile mit dem
Wert eingeblendet werden und die Zeile markieren.
Die restlichen Zeilen von 3:2000 in der Spalte A sollten verborgen bleiben.
Fragen:
Gibt es einen anderen Attribut als .Find um Werte auch in einer ausgeblendeten Zelle zu finden?
Gibt es eine Möglichkeit, "siehe Makro" wo dann die nicht gebrauchten Zeilen einfach wieder ausgeblendet werden?
Besten Dank für eure Hilfe.
Patrick