Hallo,
nachdem man mir bei meinem Problem hier noch nicht wirklich weiterhelfen, habe ich selbst mal ein wenig gebastelt und bereits einiges geschafft...allerdings läuft's immer noch nicht.
Vielleicht kann mir jemand mit den hier veröffentlichten Bruchstücken ein wenig weiterhelfe...
Zum Problem: Ich besitze eine Datei mit 20 - 25 Tabellenblättern. Diese Datei möchte ich komplett kopieren, allerdings nur die Werte und die Formate...also nicht die Formeln und Verknüpfungen.
Sa dass jemand etwas mit der Datei anfangen kann...der nicht die anderen verknüpften Dateien besitzt.
Natürlich könnte ich über Kopieren, Inhalt einfügen usw. jedes einzelne Tabellenblatt kopieren...dies wäre aber zuviel Arbeit. Das müsste doch auch mit einem Makro klappen.
Bis jetzt habe ich mal folgenden Ansatz entdeckt:
Sub CopyDatei()
Dim rngA As Range, rngB As Range
Dim sFile As String, sPath As String
sPath = ThisWorkbook.Path & "/kopie.xls"
Set rngA = ActiveSheet.Range("A1:M56")
sFile = Dir(sPath)
If sFile = "" Then
Workbooks.Add
Else
Workbooks.Open sPath
End If
rngA.copy
Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Selection.PasteSpecial Paste:=xlFormats
Hier wird die Datei in eine neu erstellte Datei (kopie.xls) kopiert....allerdings nur das aktive
Tabellenblatt. Was kann bzw. muss man hier noch ändern?
Danke für Euer Verständnis und Hilfe
tobi