ich habe leider nur wenige VBA-Kenntnisse und mir den folgenden Quellcode aus unterschiedlichen Beiträgen zusammengesetzt. Funktioniert soweit auch, bis auf dass mein Ergebniss genau anders herum ausgegeben werden soll.
Quellcode:
Sub Filtern()
Dim Zelle As Range
Dim Suchen As String
Suchen = InputBox("Bitte Filterkriterium eingeben?", "Filtern")
Application.ScreenUpdating = False
For Each Zelle In ActiveSheet.UsedRange
If Zelle.Value = Suchen And Rows(Zelle.Row).Hidden = False _
Then Rows(Zelle.Row).Hidden = True
Next Zelle
Application.ScreenUpdating = True
End Sub
Ich habe eine Tabelle über mehrere Spalten und Zeilen, bei welcher nach Eingabe eines Suchkriteriums (SK) entsprechende Zeilen, in welcher dieses SK vorhanden ist, gefiltert werden sollen, sprich, die anderen Zellen sollen ausgeblendet werden.Das Makro funktioniert soweit, nur werden hier die Zeilen mit passendem Suchkriterium ausgeblendet (es soll eben genau andersherum).
Zunächst dachte ich, es ließe sich lösen durch einfachen tausch des Operators = gegen . Funktioniert aber nicht, da von Zelle zu Zelle gesucht wird. Wird das SK in einer Zeile gefunden, wird nicht automatisch in die nächste Zeile gesprungen, sondern in dieser weitergesucht und sobald das SK nicht mehr vorliegt die Zeile ausgeblendet.
Vielleicht kann mir jemand weiterhelfen?
Danke!