3
Der Commandbutton blockiert
Ich habe einen Commandbutton der bei der Ausführung in dieser Zeile blockiert:
Wenn ich den Code mit F8 durchgehe, läuft er einwandfrei.
Kann mir hierfür jemand vielleicht weiter helfen? Ich verstehe dies einfach nicht. Gruß
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 SubKann mir hierfür jemand vielleicht weiter helfen? Ich verstehe dies einfach nicht. Gruß
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 12655875988
Url: https://administrator.de/contentid/12655875988
Printed on: April 28, 2024 at 16:04 o'clock
3 Comments
Latest comment
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
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
