Datei öffnet nur mit fortlaufender Nummer
06.06.2005 12:02:35
Meier
ich habe folgenden Code:
Sub namen_uebernahme()
Dim akt_name, vor_name, vor_jahr, akt_jahr, path As String
akt_jahr = Sheets(1).Cells(3, 2).Value
vor_jahr = akt_jahr - 1
akt_name = akt_jahr & ".xls"
vor_name = vor_jahr & ".xls"
pfad = ActiveWorkbook.path
akt_pfad = pfad & "\" & akt_name
vor_pfad = pfad & "\" & vor_name
Workbooks.Open Filename:=vor_pfad, ReadOnly:=True
in Cells(3,2) steht z.B: 2005
jetzt wird die Datei Datei 2005.xls geöffnet.
Der Dateiname in der Titelleiste wird mit 20051.xls angezeigt.
Beim nächsten öffnen mit 20052.xls usw angezeigt.
und ich kann deshalb nicht mit Workbooks(vor_name).Activate darauf zugreifen.
wo liegt der Fehler?
Anzeige