Index ausserhalb.. nur auf einem REchner?
15.02.2008 15:53:00
Michael
folgender Code gibt auf einem Rechner die Fehlermeldung (in der letzen Zeile)
"Index ausserhalb des gültigen Bereichs"
Auf anderen REchnern läufts einwandfrei.
Irgendwie scheint er die gerade abgespeicherte Datei nicht in der Workbooksauflistung zu haben?
Hilfe wäre toll
weiss nicht mehr
Danke
Michael
ActiveWorkbook.SaveAs FileName:=FilePfad & "\" & Left(FileName, Len(FileName) - 4) & "\" _
_
& FileName, FileFormat:=xlNormal, WriteResPassword:="xxx"
Windows(Dateiname).Activate
SetRaumSheet 1
'usw...................
End Sub
Sub SetRaumSheet(RNr As Long)
'raum-tabelle erzeugen
Sheets("Raum").Copy After:=Workbooks.Item(FileName).Sheets(1) 'HIERFEHLER!!
'usw...................