Hallo zusammen.
Brauche da man Eure Hilfe bei einer kleinen Codezeile:
Habe wahrscheinlich noch nicht den richtigen Suchbegriff verwendet.
Bin aber überzeugt, dass dies in ähnlicher Ausführung auch schon mal besprochen wurde.
Ich habe in einem Tabellenblatt eine Intelligente Tabelle.
Insgesamt hat diese Tabelle 6 Spalten
Name der Spalten
Spalte 1: Pos
Spalte 2: Bezeichnung
Spalte 3: Hauptartikel
Spalte 4: Auswahl
Spalte 5: Teilartikel
Spalte 6: Filter
Nun möchte eine Echtzeitüberprüfung in der Spalte 4,
welche prüft ob etwas geändert wird/wurde.
Sobald irgendetwas verändert wurde und darin "kb" steht, soll in Spalte 6 einen Autofilter auslösen
und nach dem Buchstaben “x” und der Zahl "5" filtern.
Ich hab schon mal folgendes gefunden:
Private Sub Worksheet_Change(ByVal Target As Range) - dies wird ja glaube ich benötigt um eine Änderung festzustellen
If Not Intersect(Target, Range("E3:E100")) Then Exit Sub
ActiveSheet.ListObjects("Tabelle1").Range.AutoFilter Field:=6, Criteria1:= "x"
Aber ich bekomme noch einen Fehler (Typen unverträglich)?!
Kann mich da jemand noch unterstützen?
Danke vorab.
aloa5