Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.10.2025 06:53:43
Zeilen löschen oder ausblenden wenn Zeile darüber höher wird
22.10.2025 19:40:18
Prüfen ob Datei offen
22.10.2025 19:07:50
Bedingtes kopieren in andere A.-Blätter u. VBA Anpassungen
22.10.2025 16:04:18
Auswahl der Datenüberprüfung auf Folgezellen übertragen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1820to1824
1820to1824
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

xlsx speichern

Forumthread: xlsx speichern

xlsx speichern
01.04.2021 14:04:23
Heinzs
Hallo Excel Fans,
ich habe eine Exceltabelle mit mehreren Sheets im Format xltm.
Hier soll ein Macro folgendes ausführen:
Gesamte Tabelle mit allen Sheets als xlsx ohne Makros speichern
xlsx schießen
und zur Ausgangsapplikation xltm zurückkehren
Hat jemand eine Idee?
Danke für Hilfe und frohe Ostern :)
MfG
Heinz

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: gut? Aufzeichnen: KopieSpeichernUnter owT
01.04.2021 15:07:03
EtoPHG


AW: xlsx speichern
01.04.2021 15:11:05
volti
Hallo Heinz,
falls niemand eine bessere Idee hat, könntest Du es ja mit diesem Ansatz hier versuchen. Ob das mit xltm genommen wird, weiß ich nicht.
Die SaveCopyAs-Funktion erlaubt leider keine Änderung des Formats...
Code:



[Cc]



Sub DateiKopieAlsXlsx()
  Dim sFilename As String
  
  With ThisWorkbook
      sFilename = Replace(.FullName, ".xltm", "_Kopie.xltm")
      .SaveCopyAs FileName:=sFilename
      With GetObject(PathName:=sFilename)
          Application.DisplayAlerts = False
          .SaveAs Replace(sFilename, "_Kopie.xltm", ".xlsx"), FileFormat:=51
          .Close savechanges:=False
          Application.DisplayAlerts = True
      End With
      Kill sFilename
  End With
End Sub
_________________________
viele Grüße aus Freigericht 😊
Karl-Heinz


Anzeige
AW: xlsx speichern
01.04.2021 15:53:17
Heinz
Hallo,
Danke für Eure Hilfe!
Ich habe die Idee von Karl-Heinz erfolgreich umgesetzt.
Happy Easter!
MfG
Heinz
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige