VBA Office2000, funktioniert nicht mehr in 2007
31.01.2013 15:26:05
Name
Ich verwende in einer Arbeitsmappe folgenden Code um alle Abeitsblätter einzeln in einen Ordner zu speichern. Unter Office2000 funtionierte es super. Bin jetzt nach Office2007 gewechselt und es wird "400" angezeigt.
Die Mappe ist als *.xlm gespeichert.
Sub AllSheetSpeichern()
Dim WS As Worksheet
Dim Path As String
Dim Wb As String
Path = ActiveWorkbook.Path & "\einzeln\"
Wb = ActiveWorkbook.Name
For Each WS In ThisWorkbook.Worksheets
WS.Copy
ActiveWorkbook.SaveAs Filename:= _
Path & WS.Name & "-" & Wb, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWorkbook.Close
Next
End Sub
Danke für die Hilfe!
mfg, Andreas