Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema RefEdit
BildScreenshot zu RefEdit RefEdit-Seite mit Beispielarbeitsmappe aufrufen

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"