Compilerfehler
28.01.2015 08:57:00
Ralf
ich habe folgenden Code unter Excel 2007 genutzt, der nun unter Excel 2013 nicht mehr funktioniert:
Private blnSkipChange As Boolean
'...As Integer = 6 gibt die Spalte an
Private Const FILTERFLDNUM As Integer = 6
Private Sub txtDirektFilter_Change()
On Error Resume Next
Dim af As AutoFilter
Dim rgAf As Range
If blnSkipChange Then Exit Sub
On Error Resume Next
Set af = Me.AutoFilter
If af Is Nothing Then Exit Sub
Set rgAf = af.Range
If Len(CStr(Me.txtDirektFilter.Value)) > 0 Then
rgAf.AutoFilter _
Field:=FILTERFLDNUM, _
Criteria1:="*" & _
Me.txtDirektFilter.Value & "*"
Else
rgAf.AutoFilter Field:=FILTERFLDNUM
End If
Set rgAf = Nothing
Set af = Nothing
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Dim af As AutoFilter
Dim rgAf As Range
On Error Resume Next
Set af = Me.AutoFilter
If af Is Nothing Then Exit Sub
If af.Filters(FILTERFLDNUM) _
.Criteria1 "=*" & _
Me.txtDirektFilter.Value & "*" Then
blnSkipChange = True
Me.txtDirektFilter.Value = ""
blnSkipChange = False
End If
Set af = Nothing
Es erscheint ein Compilerfehler.
Kann mir bitte jemand weiterhelfen?
Vielen Dank im Voraus für eine Rückmeldung.
Viele Grüße
Ralf