ich habe mal wieder ein Problem: Beim Verlassen des Programmes wird volgender Code aufgerufen:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim strDatei As String ' Variable für Dateinamen
Dim strVerz As String ' Variable für Sicherungspfad
Sheets("Schulklassen").TbxNachname.Value = ""
If zeile > 0 Then
ThisWorkbook.Sheets("Schulklassen").Cells(zeile, "A").Interior.ColorIndex = Farbe
' Setzt ggf. die Farbe der Zelle zurück
End If
' Sicherungskopie erstellen
strDatei = ThisWorkbook.Name ' Dateiname in Variable schreiben
strVerz = ThisWorkbook.Path & "\" & Format(Date, "mmmm yyyy") & "\" ' Sicherungspfad
MakeSureDirectoryPathExists strVerz
' wenn Sicherungs-Verzeichnis noch nicht existiert, wird es erzeugt
ActiveWorkbook.SaveCopyAs Filename:=strVerz & Left(strDatei, Len(strDatei) - 4) & " " & _
Format(Now, "YY-MM-DD") & Right(strDatei, 4)
ActiveWorkbook.Save
End Sub
Dies funktioniert unter der Excel-Version von Office2003 auch ohne Probleme. Ber der Office2000-Version bekomme ich aber immer eine Fehlermeldung, dass EXcel geschlossen werden muss, und die Änderungen werden nicht gespeichert.
Woran liegt das, und wie kann ich das ändern, damit das Programm bei beiden Versionen läuft?
mfg
harald