Code läuft nicht in Vernetzung - Alternativen?
Wolfgang
mit dem nachstehenden Code würde ich gerne erreichen, dass aus einer geöffneten Mappe bestimmte Spalten in die aktuelle Mappe kopiert werden. Zuhause, auf einem StandAlone-Rechner, läuft der Code auch wunderbar. Im Büro, im Rahmen der Vernetzung, erscheint Fehlermeldung, "Index außerhalb des gültigen Bereichs"; Was müsste ich ggfs. verändern bzw. gibt es auch Alternativen im Rahmen der Vernetzung? - Danke schon jetzt für die Rückmeldungen.
Herzliche Grüße
Wolfgang
Sub SpaltKop()
Workbooks("Liste.xls").Sheets(1).Range("A:D,F:F,G:H,J:J,R:R,AM:AM,AP:AR,BA:BA").Copy _
ThisWorkbook.Sheets("Daten").Cells(1, 1)
Rows(1).Delete
Sheets("Daten").Select
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Range("E1").Select
ActiveCell.FormulaR1C1 = "Bemerkungen"
Cells.Select
Selection.Columns.AutoFit
Range("A1").Select
End Sub