AW: Nachgefragt
28.12.2004 14:06:25
Josef
Hallo Fritz!
Erste Einschränkung! "04/05V" verursacht Fehler wegen dem slash (/)!
Der slash ist im Dateinamen nicht zulässig!
Ich hab es jetz mal mit "0405V" gemacht, damit kannst du sicher leben;-)
Beim Öffnen von "Planer.xls" wird immer die Datei mit dem Zuatz in "C1"(Tabelle "Daten")
geöffnet. ZB.: "Planer.xls" mit 0405V als Zusatz, öffnet "Planer-0405-E.xls"
Beim speichern von "Planer.xls" wird die Hilfsdatei unter dem ggf. neuen Namen
gespeichert (Zusatz ist immer die ersten vier Zeichen in "C1").
Wenn beim Speichern ein fehler auftritt, wird "Planer.xls" trotzdem gespeichert!
!Achtung! Die Variable für den Dateinamen der Hilfsdatei wird im Modul gespeichert!
Wenn du im Modul änderungen vornimmst, kann es passieren das der Inhalt der
Variablen (str) verloren geht, dann gibts beim Speichern Probleme!
Mann könnte, um das zu verhindern, den Wert der Variablen in einer Zelle
der Tabelle "Daten" zwischenspeichern.
Probier's mal aus und berichte über deine Erfahrungen.
'In das Modul "DieseArbeitsmappe" der Datei "Planer.xls"
Option Explicit
Dim str As String
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim newStr
On Error GoTo ERRORHANDLER
newStr = Left(ThisWorkbook.Name, InStr(1, ThisWorkbook.Name, ".") - 1) & "-"
newStr = ThisWorkbook.Path & "\" & newStr & Left(Sheets("Daten").[C1], 4) & "-E.xls"
str = Right(str, InStr(1, StrReverse(str), "\") - 1)
Workbooks(str).SaveAs newStr
Exit Sub
ERRORHANDLER:
MsgBox "Beim speichern ist Fehler ist aufgetreten!"
End Sub
Private Sub Workbook_Open()
str = Left(ThisWorkbook.Name, InStr(1, ThisWorkbook.Name, ".") - 1) & "-"
str = ThisWorkbook.Path & "\" & str & Left(Sheets("Daten").[C1], 4) & "-E.xls"
On Error GoTo ERRORHANDLER
Workbooks.Open str
Exit Sub
ERRORHANDLER:
MsgBox "Die Datei """ & str & """ wurde nicht gefunden!"
End Sub
Gruß Sepp