VBA Bereich in neue Mappe kopieren
18.09.2014 22:28:48
WalterK
den folgenden Code habe ich im Internet gefunden, er kommt vom Oberschlumpf. Es soll ein Bereich der Tabelle3 in eine neu angelegte Mappe kopiert werden(ohne Formeln).
Die neue Mappe und das neue Blatt werden auch angelegt, allerdings wird nichts hinein kopiert.
Vielleicht ist am Code ersichtlich war hier nicht funktionieren kann.
Besten Dank und Servus, Walter
Option Explicit
Sub sbCopyRange()
Dim Lz As Long
'es wird eine neue Datei erstellt
Workbooks.Add
'1 in () anpassen, wenn nicht das 1. Tabellenblatt die Quelle ist
With ThisWorkbook.Sheets(3)
Lz = Application.Max(10, Cells(Rows.Count, 52).End(xlUp).Row)
'Bereich wird kopiert
.Range("AZ10:BD" & Lz).Copy
With Range("AZ10")
'nur die Werte werden in die neue Datei an gleicher Stelle übertragen
.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'nur die Formate werden in die neue Datei an gleicher Stelle übertragen
.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End With
Application.CutCopyMode = False
'Blatt der neuen Tabelle erhält selben Blattnamen aus Quelldatei
ActiveSheet.Name = .Name
'neue Datei wird im selben Verz der Quelldatei mit dem Namen aus B2 aus Quelldatei _
_
gespeichert
'existiert die Datei schon, erfolgt eine Fehlermeldung
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & "Fahrtenbuch Manuel"
End With
End Sub