mein Problem liegt bei folgendem Code
Option Explicit
Public wbDatenbank As Workbook
Public wsAbfrage As Worksheet
Public wsTechDatenbank As Worksheet
Sub Filtern_Bandsägen()
Set wsAbfrage = Workbooks("HKS-Tab_211004.xls").Worksheets("Abfrage")
Set wsTechDatenbank = Workbooks("HKS-Tab_211004.xls").Worksheets("technologische Daten")
If wsTechDatenbank.FilterMode Then wsTechDatenbank.ShowAllData
On Error Resume Next
With wsTechDatenbank.Range("A3000")
.AutoFilter Field:=2, Criteria1:=Sheets("TechDatenbank").Range("A3000").Value
End With
End Sub
Leider funktioniert der Filter nicht. In Zelle A3000 habe ich einen Wert drin stehen. Sieht jemand, woran es liegt?
Mit Dank und einem Gruß
Eva