Wieder mal ein Problem.
Ich habe meine Datei Auswertungen auf dem Server liegen,so dass
jeder da ran kann.
Beim Auswerten wird eine zweite Datei "Bundeslg" geöffnet, dort ein Autofilter gelegt
und dann sollen die gefilterten Daten in die erste Datei Auswertungen
kopiert werden.
Das funktioniert einwandfrei .solange ICH die Datei aufrufe und alles starte.
( habe mich auch an einem anderen PC angemeldet und von dort alles ok )
Lässt aber ein anderer mit seinem PC die Datei laufen, dann stoppt das Programm
beim kopieren folgender Fehlermeldung:
Laufzeitfehler 9:
Index außerhalb des gültigen Bereichs
hier der dazugehörige Teil des Codes. An den letzten 2 Zeilen stoppt er mit
o.g. Meldung
Dim sName As String
Dim vTorplus As Variant
Dim vTorminus As Variant
sName = Range("F200").Value
vTorplus = Range("G200").Value
vTorminus = Range("I200").Value
Range("J1:AF20000").ClearContents
Workbooks.Open Filename:=ThisWorkbook.Path & "\Bundeslg.xls"
Worksheets("Bundesliga-Tipp").Unprotect
' HINRUNDE BUNDESLIGA
Worksheets("Bundesliga-Tipp").Columns("C:H").AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=sName, Operator:=xlAnd
Selection.AutoFilter Field:=4, Criteria1:=vTorplus, Operator:=xlAnd
Selection.AutoFilter Field:=6, Criteria1:=vTorminus, Operator:=xlAnd
Range("C1:H2000").SpecialCells(xlCellTypeVisible).Copy _
Destination:=Workbooks("Auswertung").Worksheets("Tabelle1").[J1]
Ich habe an dieser Stelle auch schon den Zusatz Destination:= weg genommen,
aber es bleibt dabei: ich kann, andere nicht.
Hat irgendeiner eine Idee ?
Grüße,
Hubert