ich benutze folgenden VBA vor dem setzen von Autofilter um vorab zu prüfen ob ein Suchkriterium überhaupt existiert. Ich bin nicht der Autor aber es ist sehr smart und hilfreich. Jetzt muss ich in einer Spalte suchen ob es Werte gibt die ungleich Leer (not isempty) und habe versucht es im VBA bei der Deklaration für Found einzubauen. Funktioniert nur leider nicht....
Kann jemand helfen ?
GGruss
Henry
Sub FilterCH()
Sheets(1).Activate
Dim Part As Variant
Dim Found As Boolean
Part = notempty
On Error Resume Next ' If the lookup fails, ignore the error
' the following assumes Part is in Column A
Found = WorksheetFunction.Match(Part, Sheets(1).Range("$W$1:$W$3000"), 0) > 0
On Error GoTo 0 ' Resume normal error handling
If Not Found Then
'MsgBox "", vbOKOnly + vbExclamation, "Entry Error"
Else
ActiveSheet.Range("$A$9:$AF$5000").AutoFilter Field:=22, Criteria1:=""
' If ActiveSheet.AutoFilterMode Then
' If ActiveSheet.FilterMode Then
' Call CH1HAMEU
' Call CHDisplay
'ActiveSheet.Range("$A$1:$APJ$3000").AutoFilter Field:=86
End If
' End If
' End If
End Sub