ich habe mit Hilfe dieses super Forums folgenden VBA Code um alle Blätter einer Mappe einzeln in einem anderen Ordner zu speichern.
Sub AllSheetSpeichern()
Dim WS As Worksheet
Dim Path As String
Dim Wb As String
Dim lngFileformat As Long
Path = ActiveWorkbook.Path & "\einzeln\"
lngFileformat = ActiveWorkbook.FileFormat
lngFileformat = 51 'Blätter-Dateien ohne Makros im 2007/2010 Format speichern
If Dir(Left(Path, Len(Path) - 1), vbDirectory) = "" Then
VBA.MkDir Path:=Left(Path, Len(Path) - 1)
End If
Wb = ActiveWorkbook.Name
Wb = Left(Wb, InStrRev(Wb, ".") - 1)
For Each WS In ThisWorkbook.Worksheets
WS.Copy
ActiveWorkbook.SaveAs Filename:= _
Path & WS.Name & "-" & Wb, FileFormat:=lngFileformat
ActiveWorkbook.Close
Next
End Sub
Jetzt habe ich das Problem, dass bei einigen Mappen ein oder mehrere Blätter ausgeblendet sind und dann ein Laufzeitfehler 1004 kommt.Außerdem hatte ich vergessen, dass in manchen Mappen Zellverweise zu anderen Blättern bestehen.
Es sollten also nur sichtbare Blätter einzeln gespeichert werden. Zuvor müssten alle Zellbezüge in Werte umgewandelt werden.
Kann mir Jemand bitte helfen.
Danke im Voraus!
mfg, Andreas