Das Clever-Excel-Forum.de - Treffen
findet vom 15. - 17. September 2017 in Thüringen / Region Großer Inselsberg statt. Hotelbuchung ab sofort möglich.


xlsm als xlsx - nur Werte
#1
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
Privat: WIN 7 64-Bit Professional / EXCEL 2013 64-Bit
Arbeit: WIN 8 64-Bit Professional / EXCEL 2013 64-Bit
to top
#2
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.
?mage

Misserfolg ist eine Chance, es beim
nächsten Mal besser zu machen.

(Henry Ford)
http://www.sprueche-zum-nachdenken.eu
to top
#3
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

Ich arbeite mit Excel 2003!

Wissen ist Macht - es ist aber nicht schlimm nicht alles zu wissen.
Man muss nicht alles wissen - man muss nur wissen wo es steht, oder wo man Hilfe bekommt.


?mage
to top
#4
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.
Gruß
Peter
to top
#5
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

Ich arbeite mit Excel 2003!

Wissen ist Macht - es ist aber nicht schlimm nicht alles zu wissen.
Man muss nicht alles wissen - man muss nur wissen wo es steht, oder wo man Hilfe bekommt.


?mage
to top
#6
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
Privat: WIN 7 64-Bit Professional / EXCEL 2013 64-Bit
Arbeit: WIN 8 64-Bit Professional / EXCEL 2013 64-Bit
to top
#7
Hallo Olli,

probier's mal mit dieser Zeile:
Code:
...
With ActiveSheet.UsedRange
...
   \\\|///      Hoffe, geholfen zu haben.
   ( ô ô )      Grüße, André aus G in T  
 ooO-(_)-Ooo    (Excel 97-2016)
to top
#8
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

Ich arbeite mit Excel 2003!

Wissen ist Macht - es ist aber nicht schlimm nicht alles zu wissen.
Man muss nicht alles wissen - man muss nur wissen wo es steht, oder wo man Hilfe bekommt.


?mage
to top
#9
Komisch ... jetzt wo ich die Datei noch einmal gestartet habe klappt das Speichern nicht mehr.Anwendungs- oder objektorientierter Fehler.

Ich arbeite mit Excel 2003!

Wissen ist Macht - es ist aber nicht schlimm nicht alles zu wissen.
Man muss nicht alles wissen - man muss nur wissen wo es steht, oder wo man Hilfe bekommt.


?mage
to top
#10
Hallo zusammen,

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

Vielen Dank und lg

Olli
Privat: WIN 7 64-Bit Professional / EXCEL 2013 64-Bit
Arbeit: WIN 8 64-Bit Professional / EXCEL 2013 64-Bit
to top


Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  Xlsm Datei mit Office 2003 öffnen Thomas der Xte 7 118 19.11.2016, 17:51
Letzter Beitrag: Thomas der Xte
  Makro in xlsx oder xls APfeiffer 2 71 07.11.2016, 09:36
Letzter Beitrag: Käpt'n Blaubär
  Werte auf kleinste/größte Werte einer anderen Spalte zuordnen MaxiL 2 233 21.07.2016, 10:24
Letzter Beitrag: MaxiL
  Importieren von Daten aus einer .xlsm Datei D K 7 423 12.07.2016, 14:54
Letzter Beitrag: Rabe
  Werte mit bestimmtem Merkmal andere Werte zuweisen miesi 6 646 20.05.2016, 14:04
Letzter Beitrag: steve1da
  Werte aus 2 Tabellen(dateien) vergleichen und Werte übernehmen strobl 6 1.154 29.01.2016, 11:12
Letzter Beitrag: steve1da
  Beim Öffnen meiner xlsm-Datei verhindern, dass Makros deaktiviert werden können Bernie 21 4.108 23.03.2015, 12:47
Letzter Beitrag: Bernie
  Excel Datei (xlsm) wird nicht geöffnet andre.in.cassel 2 915 06.03.2015, 09:05
Letzter Beitrag: andre.in.cassel
  xlsm als Speicherformat vorgeben Daniel.Haering 6 2.333 06.02.2015, 10:23
Letzter Beitrag: Daniel.Haering
  xlsm Dateien öffnen und als xlsx abspeichern friedensbringer 2 1.692 08.09.2014, 11:54
Letzter Beitrag: friedensbringer

Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste