Hallo,
ich habe hier folgenden Code:
Private Sub Box_Auswahl_Standort_Change()
Application.ScreenUpdating = False
Dim loLetzte As Long
Dim Filtername As String
Filtername = Box_Auswahl_Standort.Value
With Anlagen
loLetzte = .Cells(.Rows.Count, 3).End(xlUp).Row
End With
With Anlagen.Range("A1:D" & loLetzte)
.AutoFilter Field:=4 _
, Criteria1:=Array(Filtername), Operator:=xlFilterValues
End With
ListBox1.RowSource = "Anlagen_Filter!A:D"
Application.ScreenUpdating = True
End Sub
Wenn ich nun in meiner ListBox1 einen Wert auswähle, bekomme ich folgende Fehlermeldung: "Laufzeitfehler '1004': Die Autofiltermethode des Range-Objekts konnte nicht durchgeführt werden." Wenn ich aber "Private Sub Box_Auswahl_Standort_Change()" zu "Private Sub Box_Auswahl_Standort_Enter()" ändere, funktioniert alles einwandfrei und ohne Fehler. Warum bringt er mir dann den Fehler nur bei der Change Abfrage ?
|