Office: Inhalt in neue Arbeitsmappe kopieren

Dela CiCi · 14. Juni 2011

Hallo,

habe mal wieder ein Problem das ich nicht gelöst bekomme. Habe einen Quellcode gefunden der soweit auch ganz gut funktioniert aber leider nicht ganz.

Würde gerne ein Tabellenblatt komplett in eine neue Arbeitsmappe kopieren. Der Inhalt soll aber als "Werte" ausgegeben werden. Bisher hab ich das:
Code:

Private Sub Rechnung()
Dim SavePath As String
Dim i As Integer
Dim AWS As String
Dim aSheet As String, aStr As String
Dim Bereich1 As String, Bereich2 As String, Bereich3 As String, Bereich4 As String, Bereich5 As String

aSheet = ActiveSheet.Name

'*** hier müßen natürlich deine Bereiche stehen ***
Bereich1 = Range("A1:M62").Address(0, 0)

'*** hier müßen natürlich deine Bereiche stehen ***

SavePath = "G:\CAS\Clausen\NEU\" '*** oder wohin auch immer ***

'*** Nur ein Sheet im neuen Workbook erstellen ***
Application.SheetsInNewWorkbook = 1

For i = 1 To 1

Select Case i
Case 1
aStr = Bereich1

End Select

'*** Neues Workbook erstellen
Workbooks.Add

With ActiveWorkbook

'*** Kopiert aktuelles Sheet in eine neue Mappe ***
'*** welche nur diese Tabelle enthält ***
ThisWorkbook.Sheets(aSheet).Range(aStr).Copy _
Destination:=.Sheets(1).Range(aStr)

'*** Speichert die Datei unter Tabellennamen & kopierten Bereich ***
.SaveAs SavePath & "\" & aSheet & "Bereich" & i & ".xls"

'*** und anschliessend gleich geschlossen ***
.Close
End With
Next i

'*** zurückstellen auf Standart(=drei) ***
Application.SheetsInNewWorkbook = 3

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Jetzt hab ich nur das Problem das ich die PasteSpecial nicht zum laufen bekomme?*frown.gif*

:)

Beverly · 16. Juni 2011

Hu,

versuche es mal so (ungetestet):
Code:

ThisWorkbook.Sheets(aSheet).Range(aStr).Copy
.Sheets(1).Range(aStr).PasteSpecial Paste:=xlValues
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Dela CiCi · 16. Juni 2011

Soweit so gut, nur überschreibt er mir jetzt alles wieder mit den Werten und dadaurch geht meine Grafik verloren. Wollte das ganze nun so lösen aber da mekert er wieder wegen dem Index
Code:

Bereich1 = Range("A1:M8").Address(0, 0)
Bereich2 = Range("A9:M62").Address(0, 0)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Code:

ThisWorkbook.Sheets(aSheet).Range(Bereich1).Copy _
Destination:=.Sheets(1).Range(Bereich1)

ThisWorkbook.Sheets(aSheet).Range(Bereich2).Copy
.Sheets(1).Range(Bereich2).PasteSpecial Paste:=xlValues
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Peter9 · 16. Juni 2011

Hallo,

versuche es mal so

und hier mal noch ein link dazu

http://blogs.office.com/b/microsoft-...xcel-2007.aspx

Code:

Private Sub Rechnung()
Dim SavePath As String
Dim i As Integer
Dim AWS As String
Dim aSheet As String, aStr As String
Dim Bereich1 As String, Bereich2 As String, Bereich3 As String, Bereich4 As String, Bereich5 As String

aSheet = ActiveSheet.Name

'*** hier müßen natürlich deine Bereiche stehen ***
Bereich1 = Range("A1:M62").Address(0, 0)

'*** hier müßen natürlich deine Bereiche stehen ***

SavePath = "c:\Users\User\Downloads\" '*** oder wohin auch immer ***

'*** Nur ein Sheet im neuen Workbook erstellen ***
Application.SheetsInNewWorkbook = 1

For i = 1 To 1

Select Case i
Case 1
aStr = Bereich1

End Select

'*** Neues Workbook erstellen
Workbooks.Add

With ActiveWorkbook

'*** Kopiert aktuelles Sheet in eine neue Mappe ***
'*** welche nur diese Tabelle enthält ***
ThisWorkbook.Sheets(aSheet).Range(aStr).Copy _
Destination:=.Sheets(1).Range(aStr)

'*** Speichert die Datei unter Tabellennamen & kopierten Bereich ***

.SaveAs SavePath & "" & aSheet & "Bereich" & i, FileFormat:=56
' 56 = xlExcel8 (97-2003 format in Excel 2007, .xls) (workbook with macro's in 2007)
.Close SaveChanges:=False

' .SaveAs SavePath & "\" & aSheet & "Bereich" & i & ".xls"

'*** und anschliessend gleich geschlossen ***
'.Close
End With
Next i

'*** zurückstellen auf Standart(=drei) ***
Application.SheetsInNewWorkbook = 3

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Dela CiCi · 16. Juni 2011

Gott ich Dummerchen... Hat funktioniert, dumm nur wenn man in Range() nochmal Range(xx) einsetzt ;D

_Marc_ · 12. Juni 2012

Hallo zusammen,
ist zwar bereits ein etwas älterer Beitrag, aber ich habe genauso so ein VBA-Script gesucht. Funktioniert auch soweit, dass mir mein Tabellenblatt in eine neue Datei kopiert wird, allerdings würde ich gerne nur die Werte und Formatierungen übernehmen, nicht die Formeln. Hier der verwendete Code, vielleicht hat jemand einen Lösungsansatz für mich. Vielen Dank vorab.
Code:

Sub Schaltfläche3_KlickenSieAuf()
Dim SavePath As String
Dim i As Integer
Dim AWS As String
Dim aSheet As String, aStr As String
Dim Bereich1 As String, Bereich2 As String, Bereich3 As String, Bereich4 As String, Bereich5 As String

aSheet = ActiveSheet.Name

'*** hier müßen natürlich deine Bereiche stehen ***
Bereich1 = Range("A1:Z200").Address(0, 0)

'*** hier müßen natürlich deine Bereiche stehen ***

SavePath = "D:\" '*** oder wohin auch immer ***

'*** Nur ein Sheet im neuen Workbook erstellen ***
Application.SheetsInNewWorkbook = 1

For i = 1 To 1

Select Case i
Case 1
aStr = Bereich1

End Select

'*** Neues Workbook erstellen
Workbooks.Add

With ActiveWorkbook

'*** Kopiert aktuelles Sheet in eine neue Mappe ***
'*** welche nur diese Tabelle enthält ***
ThisWorkbook.Sheets(aSheet).Range(aStr).Copy _
Destination:=.Sheets(1).Range(aStr)

'*** Speichert die Datei unter Tabellennamen & kopierten Bereich ***

.SaveAs SavePath & "" & aSheet & "Bereich" & i, FileFormat:=56
' 56 = xlExcel8 (97-2003 format in Excel 2007, .xls) (workbook with macro's in 2007)
.Close SaveChanges:=False

' .SaveAs SavePath & "\" & aSheet & "Bereich" & i & ".xls"

'*** und anschliessend gleich geschlossen ***
'.Close
End With
Next i

'*** zurückstellen auf Standart(=drei) ***
Application.SheetsInNewWorkbook = 3

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: Inhalt in neue Arbeitsmappe kopieren

Inhalt in neue Arbeitsmappe kopieren

Inhalt in neue Arbeitsmappe kopieren

Inhalt in neue Arbeitsmappe kopieren

Inhalt in neue Arbeitsmappe kopieren - Similar Threads - Inhalt Arbeitsmappe kopieren

Tabellenkopfbezeichnungen in Abhängigkeit von Inhalt ausgeben

Auf die nächst mögliche Zelle mit Inhalt zugreifen

Meldung in Word "Von Word wurde nicht lesbarer Inhalt gefunden"

Zelle per VBA auf ihren Inhalt prüfen und reagieren sowie bei Änderung

Prüfung unterschiedlicher Zellen auf Inhalt und Konsequenz

Excel - VB - Inhalte verschiedener Arbeitsmappen zusammenführen

inhalt mehrerer arbeitsmappen auf ein blatt kopiern