Code zu Blatt Kopieren (Werte/Formate)
25.03.2015 16:39:25
Matthias
ich kann mittels des nachfolgendem Code ein Blatt kopieren (nur Werte und Formate).
Jedoch möchte ich nicht, dass er einen Bericht erstellt und zweites wäre es super wenn er die neue Datei automatisch in einem Neuen Ordner Names "Ohne Funktionen" abspeichtert. Der Ordner soll im gleichen Verzeichnis liegen wie meine Ausgangsdatei.
Der neue Dateiname soll so heissen wie die Ursprungsdatei.
Gibt es auch eine Möglichkeit die Bilder mit zu kopieren?
Sub Send_Blatt_kopieren()
Dim strPath As String
Dim strWert As String
Dim shp As Shape
Dim shZiel As Worksheet
Dim shQuelle As Worksheet
strPath = "C" 'Pfad
strWert = ActiveSheet.Range("M3") 'Kunde
Application.ScreenUpdating = False
Set shQuelle = ActiveSheet
Workbooks.Add
Set shZiel = ActiveSheet
shZiel.Name = "CS-Report " & strWert & " " & Format(Date, "dd.mm.yy")
shQuelle.Cells.Copy
shZiel.Cells(1, 1).PasteSpecial xlPasteValues
shZiel.Cells(1, 1).PasteSpecial xlPasteFormats
shZiel.Parent.SaveAs strPath & "Report " & strWert & " vom " & " " & Format(Date, "dd mm _
_yyyy") & ".xls"
'.Close
Application.CutCopyMode = False ' Zwischenspeicher löschen
Application.DisplayAlerts = False ' keine Abfrage ob Tabelle gelöscht werden soll
MsgBox "Der Bericht " & strWert & " wurde auf Pfad " & vbCr & _
strPath & vbCr & " mit aktuellem Datum gespeichert!"
Application.ScreenUpdating = True
End Sub