script aus office97 läuft in office2003 nicht mehr
17.08.2007 09:05:00
oxe
hatte mir hier vor ner weile mal helfen lassen bei nem programm und hat dann im endeffekt auch alles wunderbar geklappt. ...bis dann vor zwei wochen das system auf office 2003 umgestellt wurde (vorher office 97). jetzt klappt eins der scripte nicht mehr, folgendes:
Sub Export()
Dim c As Range
Dim Pfad As String
Pfad = ActiveWorkbook.Path
On Error GoTo FEHLER
Application.EnableEvents = False
Application.ScreenUpdating = False
ActiveSheet.Copy
For Each c In Cells.SpecialCells(xlCellTypeFormulas, 23)
On Error Resume Next
If InStr(c.Formula, "!") > 0 Then c = c.Value
On Error GoTo 0
Next
ActiveSheet.Cells(64, 16).Value = ""
ActiveSheet.OLEObjects.Delete
With ActiveWorkbook.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule
.DeleteLines 1, .CountOfLines
End With
ActiveSheet.Copy
ActiveWorkbook.SaveAs Pfad & "\Einzelblatt " & ActiveSheet.Cells(1, 26).Value & ".xls"
ActiveWorkbook.Close savechanges:=False
ActiveWorkbook.Close savechanges:=False
MsgBox "Datei mit Namen " & """Einzelblatt " & ActiveSheet.Cells(1, 26).Value & ".xls""" & " _
_
erstellt und" & vbCrLf & "im gleichen Ordner wie diese Datei gespeichert!"
Application.EnableEvents = True
Application.ScreenUpdating = True
Exit Sub
FEHLER:
MsgBox "Keine Formeln in diesem Blatt!"
End Sub
da bleibt er in zweile 16 hängen: With ActiveWorkbook.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule
und er bringt folgende fehlermeldung: http://img187.imageshack.us/img187/5483/bild1ao2.gif
das exportierte blatt erstellt er noch aber er speichert und schließt es nicht mehr.
was muss ich da ändern, dass es wieder läuft?
vielen dank im voraus!!