Makro ausführen mit Schaltfläche
Alex
ich habe mal wieder ein Problem.
Und zwar hab ich folgendes Makro in einer Vorlage:
Sub FilternKopierenTGA()
Dim rngAct As Range
With Worksheets("TGA")
.Cells.Clear
Range("N1").AutoFilter _
Field:=14, Criteria1:="TGA" 'Filtern Spalte N nach TGA
Set rngAct = Range("A2").CurrentRegion.SpecialCells(xlCellTypeVisible)
rngAct.Copy .Range("A1")
Selection.AutoFilter
End With
End Sub
Es funktioniert auch Prima. Nur jetzt will ich es mit Hilfe einer Schaltfläche ausführen. Auch das funktioniert. Nur es kommt immer eine Fehlermeldung: 400!?
Kann mir jemand weiter helfen?
Vielen Dank schon mal
Anzeige