Schutzverletzung in Excel.exe
15.07.2004 17:40:56
Lorenz
Was ist Falsch?
bei diesen Code wird in Excel 97 eine Schutzverletzung (in der Excel.exe) ausgelöst!
In ExcelXP gehts aber!
was könnte falsch sein?
Bitte um Hilfe!
Private Sub SendStatistik()
Dim sPath As String, sFile As String, sDate As Date, sStrecke As String, sPasswort As String
Application.ScreenUpdating = False
sStrecke = Worksheets("Statistik").Range("J1").Value
sPath = Worksheets("Daten").Range("is2").Value & "\"
sDate = Worksheets("Statistik").Range("B1").Value
sFile = "Strecke" & sStrecke & "_" & Format(sDate, "mm")
sPasswort = Worksheets("Daten").Range("it2").Value
' ab hier der Fehler:
ActiveWorkbook.Windows(1).SelectedSheets.Copy
ActiveWorkbook.SaveAs Filename:= _
sPath & sFile, FileFormat:=xlNormal, password:=sPasswort, WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ActiveWorkbook.Close savechanges:=False
End Sub
Danke im Voraus Lorenz!