Moin z'sammen,
ich bemühe mich grad zu einer arbeiterleichternden Programmierung und stoße auf folgendes Problem ...
Sub Test_BP()
Workbooks.Open Filename:="R:\Test.xls", ReadOnly:=True 'R:\ Laufwerksbuchstabe für Serverzugriff
Selection.Autofilter Field:=36, Criteria1:="Name"
Range("AJ2004").Select 'Sprunadresse auf letzte freie Zelle in der Spalte
Selection.End(xlDown).Select
End Sub
Mit diesem script kann ich erst dann arbeiten, wenn ich die Tabelle vorher auf dem Server geöffnet hatte:-(
Danach allerdings funktioniert das Filtern nur von Fall zu Fall und der Sprung auf die letzte freie Zelle überhaupt nicht:-(((
Wer weiß rat???
Gruß
Michael
P.S.: Mail adresse eingeben geht nicht!
|