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 Sub
Kann mir hierfür jemand vielleicht weiter helfen? Ich verstehe dies einfach nicht. Gruß
Please 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 00:04 o'clock
3 Comments
Latest comment
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