|
Hallo zusammen
Ich bin Anfängerin und habe mir einige Infos im Internet zusammengesucht. Vermutlich ist es nichts Kompliziertes, aber mangels Grundlagenwissen schaffe ich es leider nicht selber.
in einer Datei befinden sich ca. 70 Tabellenblätter mit definiertem Tabellenblattnamen. Dafür habe ich ein Makro hingekriegt, dass die Namen vergibt (hallelujah).
Aufgabe:
jedes Tabellenblatt als Wert und im Ursprungsformat im Zielordner mit Tabellenblattnamen speichern
(nice to have: jedes Tabellenblatt ab 5. Stelle, also die ersten vier Tabellenblätter nicht)
-----
Sub Makro21()
'
' Makro21 Makro
'
'
Dim i As Integer
Application.ScreenUpdating = False
For Each Ws In Worksheets
Sheets(i).Copy
With ActiveSheet
.Sheets.Copy
.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Application.Run "'Auswertungen Inventuren.xlsm'!TabellenblätterName"
ActiveWorkbook.SaveAs Filename:= _
"\\laapdc\UserDataVOL$\MEINNAME\Desktop\Test\Auswertungen einzeln\" _
& "_" & ActiveSheet.Name & ".xls", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close
End With
Next i
Sheets(i).Select
End Sub
----
Es würde mich total freuen, wenn mir ein Profi helfen könnte. Dafür schon mal grossen Dank!
Beste Grüsse
Karin
|