Office: (Office 2019) Zeile filtern

Hebe den Blattschutz zu Beginn des Codes auf und setze ihn am Ende wieder.

 

Vielen Dank
Ein letztes mal bräuchte ich deine Hilfe.

Falls in der Produktespalte nun z.B. "Auto / Bus" steht und ich im Produktesuchfeld "Auto Bus" eingebe. Ist dies möglich nach Wort zu filtern und nicht exakte Wortlaut?

 

Nein, denn es müsste nach Teilstring "Auto" UND nach Teilstring "Bus" gefiltert werden - das geht nicht mit dem Autofilter. Das müsste dann so wie für Spalte D ablaufen. Dazu muss aber genau festgelegt sein, wie die beiden Begriffe voneinander getrennt sind (in deinem Beispiel Leerzeichen) und das müsste dann immer genau so eingehalten werden.

 

Falls ich nun Produkt und Farbe markiere und die Löschtaste drücke, weil ich andere Begriffe eingeben möchte, kommt bei mir folgende Fehlermeldung:

Laufzeitfehler 13:

Typen unverträglich

 

Es darf immer nur der Inhalt 1 Zelle gelöscht werden.

Falls du mehrere gleichzeitig löschen willst, musst du deine Mappe mit dem aktuellen Code hochladen.

 

Hallo

Der aktuelle Code sieht wie folgt aus:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
ActiveSheet.Unprotect Password:=""

Dim raBereich As Range
Set raBereich = Range("B13:B15")
If Not raBereich Is Nothing Then
Application.ScreenUpdating = False
Application.EnableEvents = False
If Target.Cells(1).Address(False, False) = "B13" Then
If Target "" Then
ActiveSheet.Range("A18").CurrentRegion.AutoFilter Field:=1, Criteria1:="*" & Target.Value & "*"
Else
ActiveSheet.Range("A18").CurrentRegion.AutoFilter Field:=1
End If
ElseIf Target.Cells(1).Address(False, False) = "B14" Then
If Target "" Then
ActiveSheet.Range("A18").CurrentRegion.AutoFilter Field:=2, Criteria1:="*" & Target.Value & "*"
Else
ActiveSheet.Range("A18").CurrentRegion.AutoFilter Field:=2
End If
End If
Application.EnableEvents = True
Application.ScreenUpdating = True
End If

ActiveSheet.Protect Password:=""

End Sub

 

Hi,

da du keine Mappe hochgeladen hast, bin ich vom selben Tabellenaufbau wie in der zuletzt hochgeladenen Mappe ausgegangen:

Code: