Öffnen klappt nur einmal
26.02.2004 12:25:58
Harald
bin mit meinem Latein am Ende. Folgendes Problem nervt extrem.
Mit folgendem Code öffne ich mir, ausgehend von der aktiven Zelle, eine Datei aus unserem Netzwerk.
Sub DateiOeffnenFS()
Dim FilenameFS As String
FilenameFS = "I:\NIO_Zahlen\FS\NIO_FS"
& Format(ActiveCell, "yyyy") & Format(ActiveCell, "mm") & Format(ActiveCell, "dd") & ".xls"
Workbooks.Open FilenameFS
'MsgBox FilenameFS
End Sub
Die jeweils aktive Zelle beinhaltet das Datum z.B. 01.01.2004 in Zelle C4(nächste Spalten sind dann C4+1, C5+1 usw.). Für den ganzen Monat eben.
Die zu öffnende Datei trägt für Bsp C4 den Namen NIO_FS20040101.xls
Die Sache funktioniert...genau einmal.Wenn ich die Datei für den Folgetag öffnen will, stürzt Excel ab. Danach krieg ich Excel erst wieder nach Neustart des PC zum Laufen.
Wie gesagt. Extrem ärgerlich.
Ich hoffe da kann mir jemand weiterhelfen
Dim Gruß as Nett
Harald