Auf den berechtigten Einwand von Dir, Hajo stelle ich die
Frage noch einmal neu, da sehr wichtig für mich.
Hoffentlich jetzt ausführlicher.
Hier ein vereinfachtes Beispiel.
Dieser FilterboxWert sitzt als Button auf einer Userform.
Der Button soll erhalten bleiben. Ich möchte aber nicht mit
der Maus daraufklicken, sondern es soll im Programm als
angeklickt weiterlaufen.
Nochmal Danke für eine Antwort.
Sub FilterboxWert_Click()
Dim rng As Range
Dim StrFilter As String
Application.ScreenUpdating = False
Sheets("Filterblatt").Visible = True
StrFilter = Filterbox.Value
ThisWorkbook.Sheets("Allg").Activate
Range("A1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=21, Criteria1:=StrFilter
Set rng = Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible)
Workbooks.Add
rng.Copy Range("A1")
ThisWorkbook.Activate
UserForm1.Hide
ThisWorkbook.Sheets("Allg").Activate
Selection.AutoFilter
ThisWorkbook.Sheets("1").Activate
Unload Me
Sheets("Filterblatt").Visible = False
Application.DisplayAlerts = True
Application.ScreenUpdating = True
ThisWorkbook.Sheets("1").Activate
Workbooks(Workbooks.Count).Sheets("Tabelle1").Activate
Columns("A:V").Select
Selection.Columns.AutoFit
Sheets("Tabelle1").Range("A1").Select
End Sub