VBA Bereich in neue Mappe kopieren
Betrifft: VBA Bereich in neue Mappe kopieren
von: WalterK
Geschrieben am: 18.09.2014 22:28:48
Hallo,
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
  |
Betrifft: AW: VBA Bereich in neue Mappe kopieren
von: Rudi Maintaire
Geschrieben am: 18.09.2014 22:41:47
Hallo,
steht denn was in Blatt 3 ?
Gruß
Rudi
Betrifft: AW: VBA Bereich in neue Mappe kopieren
von: WalterK
Geschrieben am: 18.09.2014 23:01:57
Hallo Rudi,
war mein Fehler. Hatte den Code nicht ins allgemeine Modul kopiert.
Jetzt funktioniert es.
Danke und Servus, Walter
Beiträge aus den Excel-Beispielen zum Thema "VBA Bereich in neue Mappe kopieren"
Screenshot zu RefEdit