benutzerdefinierter Filter VBA
26.01.2005 21:45:34
Eva
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
Anzeige