mark47
Goto Top

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ß

Content-Key: 12655875988

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

Printed on: April 13, 2024 at 01:04 o'clock

Member: mark47
mark47 Feb 24, 2024 at 13:53:36 (UTC)
Goto Top
Zusätzliche Information: Wenn ich den Filter händisch herauslösche, funktioniert es wieder.
Mitglied: 11078840001
Solution 11078840001 Feb 24, 2024 updated at 19:15:51 (UTC)
Goto Top
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
Member: mark47
mark47 Feb 25, 2024 at 08:56:59 (UTC)
Goto Top
Vielen Dank für deinen Code. Er funktioniert natürlich so, wie ich es mir vorgestellt hatte. Einen schönen Sonntag noch und Gruß Mark