Arbeitsblätter als Datei speichern
18.12.2019 07:51:02
Thomas
ich hab ein Makro bei mir integriert, der einzelne Arbeitsblätter in eine angegebenen Ordner einzeln als Datei abspeichert.
Jetzt hat es sich aber ergeben, dass Zwei Tabs aus mehreren in eine Datei müssen. Wie kann ich den Code entsprechend anpassen.
Sagen wir Tab 4 und 5 in eine Datei und ab 6 wieder einzelne Dateien in den Ordner abspeichern.
Würde mich über Hilfe freuen.
Option Explicit
Private Declare PtrSafe Function MakeSureDirectoryPathExists Lib "imagehlp.dll" ( _
ByVal DirPath As String) As Long
Private Sub CommandButton1_Click()
Const FOLDER_PATH As String = "C:\Users\xyz\Desktop\Test\Abholordner\" 'Anpassen !!!
Dim i As Long
Dim strFolder As String
strFolder = FOLDER_PATH & Worksheets("Tabelle1").Cells(1, 1).Text
If Right$(strFolder, 1) "\" Then strFolder = strFolder & "\"
Call MakeSureDirectoryPathExists(strFolder)
Application.ScreenUpdating = False
For i = 4 To Worksheets.Count
Worksheets(i).Copy
With ActiveSheet
.Cells.Copy
.Range("A1").PasteSpecial Paste:=xlPasteValues
.Parent.SaveAs Filename:=strFolder & _
ActiveSheet.Name & ".xls", FileFormat:=xlNormal
.Parent.Close
End With
Next i
End Sub
Viele Grüße
Thomas