Schlagwortsuche - Reihen ausblenden wo kein Schlag
20.07.2017 15:29:57
Thomas
Vielleicht könnt ihr mir helfen. Mit meinen bescheidenen VBA-Kenntnissen habe ich mir einen Code zusammengestöpselt der Schlagwörter (mit Textbox-Eingabe) sucht und markiert.
Eine Funktion klappt aber bis jetzt noch immer nicht. Ich möchte nämlich die Reihen in denen das Schlagwort nicht vorkommt, ausblenden - das würde meine Schlagwortsuche ziemlich bereichern.
Ps.: Ich weiß aber nicht, ob das überhaupt mit dieser abgewandelten bedingten Formatierung klappt.
Danke im Voraus
Hier der VBA-Code
Sub Abfrage()
Dim sucheString As String
ActiveWindow.Panes(1).Activate
Range("Tabelle1[[Schlagwort 1]:[Schlagwort 6]]").Select
sucheString = InputBox("Schlüsselwort?")
Selection.FormatConditions.Add Type:=xlTextString, String:=sucheString, TextOperator:= _
xlContains
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Color = -16383844
.TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 13551615
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
End Sub
Anzeige