Office: (Office 2019) Code läuft mit F8 durch, beim CommandButon nicht

Hallo, wer könnte mir weiter helfen. Beim Bedienen mit F8 läuft der Code. Mit dem CommandButton kommt der Fehler bei Zeile:

Code:

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

mit dem Hinweis: Laufzeitfehler 1004, Autofilter des Rangeobjektes konnte nicht ausgeführt werden.

Code:

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

 

Hi,

den Fehler kann ich nicht nachvollziehen - das liegt sicher daran, dass ich deine Mappe nicht kenne.

---

 

Hallo, ich hänge die Datei mal an. Wenn ich im Code mit F8 den Code durchspiele, ist es o. K. Wenn ich den Button nutze, blockiert der Code. Vielleicht kann man mit der Beispieltabelle eher auf den Fehler stoßen, wo ich nicht weiter komme.

 

Hallo,

es erschwert die Fehlersuche ganz erheblich, wenn die Objekte eines UserForm (unnötigerweise) umbenannt werden.

 

Hallo Motor-Bastler,

ohne dir zu nahe treten zu wollen, wo hast du die Datei her? Denn selbst entwickelt hast du das ja wohl eher nicht. Auch bin ich mir sicher, ein UserForm mit dem gleichen Design schon mal in einem anderen Zusammenhang gesehen zu haben.

 

Hallo,

dein Button "CommandButton2" liegt im Arbeitsblatt "AuswahlKlick" und da du den Autofilter im ActiveSheet (laut Makro) einstellst, wird dieser im Arbeitsblatt "AuswahlKlick" eingestellt und nicht wie du vermutlich möchtest im Arbeitsblatt "Tabelle1".
Hier wird wahrscheinlich folgender Code besser funktionieren:

Code:

 With Worksheets("Tabelle1")
 
    .Unprotect

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

 

Hallo, du hast recht. Sie ist aus Beispielen, die ich z. T. im Netz gefunden habe, zusammengesetzt. (Meine Möglichkeit halt)
Der "Weg" über With Worksheets funktioniert ebenfalls nicht. Gäbe es denn noch einen anderen Weg auf die Tabelle1 zuzugreifen, damit man den Filter aktiv nutzen kann.

 

Hallo,

füge mal die Zeieln ab If Tabelle1 in dein Makro ein:

Code:

Private Sub CommandButton2_Click()
    Dim searchValue As String
   
    ''Dim ws As Worksheet
   
    Worksheets("Tabelle1").Unprotect
   
    If Tabelle1.AutoFilterMode Then
        Tabelle1.AutoFilterMode = False
    End If

 

Hallo,

einen weiteren Fehler habe ich in den Makros des UserForm gefunden:

Private Sub lstData_Click()

clearForm

If lstData.ListIndex >= 0 Then
Set rngRow = wsat.Rows(lstData.ListIndex + 2)
txtPosNr = id
txtPosNr = rngRow.Cells(, colAtPosNr).Value
txtDatum = Format(rngRow.Cells(, colAtDatum), "dd.mm.yyyy")

Ändere mal die rot markierte Zeile so ab, wie unten die schwarz markierte Zeile aussieht:
Private Sub lstData_Click()

clearForm

If lstData.ListIndex >= 0 Then
Set rngRow = wsat.Rows(lstData.ListIndex + 2)
txtPosNr = id
txtPosNr = rngRow.Cells(, colAtPosNr).Value
txtDatum = rngRow.Cells(, colAtDatum)

 

Danke für die Unterstützung. Habe den Code verändern können, und es funktioniert.
Einen schönen Sonntag noch und Gruß MB