Der Commandbutton blockiert

Ich habe einen Commandbutton der bei der Ausführung in dieser Zeile blockiert:

    ActiveSheet.Range("D1").AutoFilter Field:=4, Criteria1:="=*" & searchValue & "*", Operator:=xlAnd  

Wenn ich den Code mit F8 durchgehe, läuft er einwandfrei.

Private Sub CommandButton2_Click()
    Dim searchValue As String

 Worksheets("Tabelle1").Unprotect  

    searchValue = InputBox("Suchwert")  
    ActiveSheet.Rows("1:1").AutoFilter  
    ActiveSheet.Range("D1").AutoFilter Field:=4, Criteria1:="=*" & searchValue & "*", Operator:=xlAnd  

     Call KopierenNachWord

End Sub

Kann mir hierfür jemand vielleicht weiter helfen? Ich verstehe dies einfach nicht. Gruß

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 12655875988

Url: https://administrator.de/contentid/12655875988

Ausgedruckt am: 25.11.2024 um 13:11 Uhr

3 Kommentare

Neuester Kommentar

Zusätzliche Information: Wenn ich den Filter händisch herauslösche, funktioniert es wieder.

blockiert

? 🤔

ActiveSheet.Range("D1").AutoFilter Field:=4

Eine einzelne Zelle (D1) kann keine 4 Spalten haben...

Private Sub CommandButton2_Click()
    Dim searchValue As String
    searchValue = InputBox("Suchwert")    
    With Worksheets("Tabelle1")  
        if .ProtectContents then .Unprotect
        With .UsedRange
            .AutoFilter
            .AutoFilter Field:=4, Criteria1:="=*" & searchValue & "*", Operator:=xlAnd  
            KopierenNachWord
        End With
    End With
End Sub