xlsm als xlsx - nur Werte

[friedensbringer]

Hallo zusammen,

welche Möglichkeiten gibt es denn eine xlsm Datei mit mehreren Tabellenblättern zusätzlich als xlsx zu speichern und die Inhalte in diesen Tabellenblätter nur als Werte?

Die xlsm Datei selbst sollte idealerweise unverändert bleiben.

Danke für eure Hilfe und lg

Olli

[WillWissen]

Hi Olli,

ganz normal mit "Speichern unter" und der Angabe xlsx. Die Makros sind dann aber weg.

Nachtrag: hab jetzt erst gesehen, dass du nur die Werte speichern willst. Dann speichere die Datei als PDF-Datei.

[marose67]

Hallo,

Teil 1) Da Du eh Makros nutzt schau Dir mal die ActiveWorkbook.SaveCopyAs Methode an.

Zum Teil 2 habe ich, wenn ich mich nicht irre, etwas zu Hause liegen. Sollte die Frage bis dato noch offen sein schau ich mal nach.

Gruß
Marcus

[Peter]

Hallo,

VBA ist nicht meine Baustelle, ich habe aber mal bei einem ähnlichen Problem diesen Code verwendet:

Code:

Sub Speichern()
'Quelle: Herber
   Dim wks As Worksheet
   Dim sFile As String
   Application.ScreenUpdating = False
   'sFile = Application.DefaultFilePath & "\test.xls"
   sFile = "C:\Test\" & "test.xls"
   For Each wks In Worksheets
      With wks.UsedRange
         .Value = .Value
      End With
    Next wks
    ActiveWorkbook.SaveAs sFile
    Application.ScreenUpdating = True
End Sub

Hier wird die Datei im Verzeichnis Test als Text.xls gespeichert und die Formeln in den Tabellenblättern gelöscht. Vielleicht hilft dir das weiter.

[marose67]

Hallo,

zum Teil 2 hatte ich etwas auf meiner Homepage:

Code:

Sub Formeln_löschen()
      With UsedRange
         .Value = .Value
      End With
End Sub

Quelle: http://ms-excel.eu/vba/vba-sonstiges/vba...alten.html
Wenn Du also alle vorhandenen Tabellenblätter, der Kopie, mit diesem Code durchlaufen läßt, sollten keine Formeln mehr hinterlegt sein.

Gruß
Marcus

[friedensbringer]

Hallo zusammen,

danke für die Infos. Ich habe einmal den Code von Marcus ausprobiert bekomme aber leider noch einen Fehler und zwar hier:

.Value = .Value

Laufzeitfehler 424 - Objekt erforderlich...

Woran könnte denn das liegen?

Danke und lg

Olli

[schauan]

Hallo Olli,

probier's mal mit dieser Zeile:

Code:

...
With ActiveSheet.UsedRange
...

[marose67]

Hallo,

ich habe mich mal an dem Code versucht. So ungefähr könnte er ausschauen. Er ist wirklich nicht schön funktioniert aber bei mir.

Code:

Sub Formeln_löschen()
Dim i As Integer
Application.ScreenUpdating = False
Application.DisplayAlerts = False
ThisWorkbook.SaveCopyAs Filename:="C:\Excel\Forumsarbeiten\KopieTest.xlsx"
Workbooks.Open Filename:="C:\Excel\Forumsarbeiten\KopieTest.xlsx"
Workbooks("KopieTest.xlsx").Worksheets(1).Activate
For i = 1 To Worksheets.Count
    With Workbooks("KopieTest.xlsx").Worksheets(i).UsedRange
        .Value = .Value
    End With
Next
Workbooks("KopieTest.xlsx").Close
Application.DisplayAlerts = False
Application.ScreenUpdating = True
End Sub

Gruß
Marcus

[marose67]

Komisch ... jetzt wo ich die Datei noch einmal gestartet habe klappt das Speichern nicht mehr.Anwendungs- oder objektorientierter Fehler.

[friedensbringer]

Hallo zusammen,

habe nun dank eurer Hinweise und Unterstützung eine brauchbare Lösung zusammenbasteln können.

Vielen Dank und lg

Olli