habe versuct eine Filter zu basteln mit mehrern Auswahlkriterien. doch beim Kompalieren erhalte ich keine Fehlermeldung nur beim Ausführen der Anweisung, nachdem ich sie einem Button zugewiesen habe.
SIn und Zweck ist es ich habe eine Datenbank und auf einem anderen Blat ein Filter mit gleichen Überschriften wie in der Datenbank. und lass mir das Ergebnis auf das Arbeitsblatt Filtern kopieren.
Vielleicht habe ich auch einen Schreibfehler im Code bitte um Hilfe
hier der Code:
Private Sub Filtern()
'
' Filtern Makro
' Definieren von Variablen
Dim rngDB As Range
Dim rngFilter As Range
Dim rngOutput As Range
Dim Target As Range
' Zuweisen der Größen für Datenbank Filter und Output
Set rngDB = Worksheets("Freiaufbauraum").Range("A7:M10000")
Set rngFilter = Worksheets("Filtern").Range("A2:M2")
Set rngOutput = Worksheets("Filtern").Range("A4:M5")
If Not (Application.Intersect(Target, rngFilter) Is Nothing) Then
rngDB.AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=rngFilter, _
CopyToRange:=rngOutput, _
Unique:=False
End If
Set rngFilter = Nothing
Set rngDB = Nothing
Set rngOutput = Nothing