Sorry, ich hatte das script noch geändert ...
Private Sub CommandButton1_Click()
Dim Laufwerk, name As String
name = Cells(3, 12)
Laufwerk = Cells(4, 12)
Workbooks.Open Filename:=Laufwerk + "test.xls", ReadOnly:=True
Windows("testt.xls").Activate
Selection.Autofilter Field:=36, Criteria1:=name
End Sub
Ersatzweise könnte ich auch ein start.VBS verwenden, nur wie ich diese Datei mittels Makro aufrufen kann, ist mir schleierhaft ...
Gruß
Michael
|