Code von 97 läuft nicht unter XP
16.03.2004 09:39:09
Dieter
habe unten stehenden Code aus einer Datei von Excel 97 , bin nun umgestiegen auf Excel XP warum läuft dieser Code nicht unter XP, bei Excel 97 ohne Probleme.
Gruss Dieter
Sub BlattKopieren()
Dim strPath As String
Dim strName As String
Dim strWert As String
Dim shp As Shape
strPath = "D:\Excel\Sport\" 'Pfad
strName = ActiveSheet.Name 'Tabellenname
strWert = ActiveSheet.Range("C7") 'Dateiname - zusatz
Application.ScreenUpdating = False
ActiveSheet.Copy
With ActiveWorkbook
For Each shp In Sheets(1).Shapes 'Schaltflächen entfernen
shp.Delete
Next
With .VBProject.VBComponents(.VBProject.VBComponents(2).CodeModule).CodeModule
.DeleteLines 1, .CountOfLines
End With
.Sheets(1).Cells.Locked = True 'Zellen sperren
.Sheets(1).Protect "test" 'Blattschutz setzen - Passwort anpassen
.SaveAs strPath & strName & " " & Format(Date, "dd mmyy") & " " & _
strWert & ".xls"
.Close
End With
Application.ScreenUpdating = True
End Sub