Tabellenausschnitt per VBA in neue Mappe kopieren

Hallo Forumsbesucher,
wie kann ich per Makro folgendes erreichen:
Ich möchte aus dem aktuell geöffneten Tabellenblatt die Zellbereiche E2:F75 und J2:K75 kopieren und diese Zellbereiche als Kopie in eine neue Mappe (gleicher Zellbereich wie in Ursprungstabelle) einfügen. Das Tabellenblatt soll die gleiche Bezeichnung (Name) erhalten, wie die "Ursprungstabelle". Formeln im kopierten Zellbereich sollten jedoch als Werte in der Zieltabelle erscheinen. Die Formatierungen sollten (wenn möglich) auch in der Zieltabelle denen der Ursprungstabelle entsprechen. Die neue Mappe sollte als Namen den Zelleintrag aus B2 des kopierten Tabellenblatts erhalten und im Ordner der "Quellmappe" gespeichert werden.
Über eure Hilfe bei der Umsetzung meines Vorhabens danke ich im Voraus.
mfg
Fritz

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hi Fritz
Kopiere diesen Code ins allgemeine Modul und teste:

Sub sbCopyRange()
'es wird eine neue Datei erstellt
Workbooks.Add
'1 in () anpassen, wenn nicht das 1. Tabellenblatt die Quelle ist
With ThisWorkbook.Sheets(1)
'Bereich E2:F75 wird kopiert
.Range("E2:F75").Copy
With Range("E2")
'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
'Bereich J2:K75 wird kopiert
.Range("J2:K75").Copy
With Range("J2")
'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 & "\" & .Range("B2").Value
End With
End Sub

Hilfts?
Ciao
Thorsten

Beliebteste Forumthreads (12 Monate)

Tabellenausschnitt per VBA in neue Mappe kopieren

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

315 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Tabellenausschnitt per VBA in neue Mappe kopieren

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

315 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread