|
Hallo Danke für die Rückmeldung
Hier mein Code mit dem ich versuche mein Problem zu lösen. Sub Bericht()
Dim old As Object, Ziel As Object, Zielpath
Dim Spalten, spalte, Zielspalte As Long
Const NewName = "Bericht"
Zielpath = ActiveWorkbook.Path
Set old = ActiveWorkbook.ActiveSheet
Set Ziel = Workbooks.Add
Set Ziel = Ziel.Sheets(1)
Application.ScreenUpdating = False
Zielspalte = 1
With Ziel
old.Range.Selection.Copy 'hier soll der markierte Bereich rein
Application.CutCopyMode = False
Application.ScreenUpdating = True
Zielpath = Zielpath & "\" & NewName & "_" & Format(Now(), "DD.MM.YYYY") & ".xlsx"
.SaveAs Zielpath
End With
Application.CutCopyMode = False
Application.ScreenUpdating = True
Call senden
End Sub
Dann kommt noch folgendes dazu:
Wie schon geschrieben ist soll der nur der markierte Bereich übetragen werden der in jedem Sheet anders sein kann,
Aber er soll immer als Header die Spalten A:P Zeile 8-9 enthalten.
Das wäre super bin im beschreiben leider nicht so gut.
Danke Margit
|