Office: (Office 365) Nur ein Blatt speichern

Hallo Zusammen,

habe eine Excel Datei als xlsm.
Diese hat mehrere Blätter.
Ist es möglich von dieser Datei nur ein Blatt als xlsx zu speichern ,und das alle 10 Minuten ?

Danke und Gruß an die Spezialisten

 

Moin!
Ja, das geht!
Mittels Tabelle1.Copy erstellst Du eine neue Mappe, die lediglich eine Kopie des Blatts mit dem CodeName "Tabelle1" enthält.
Diese speicherst Du mittels ActiveWorkbook.SaveAs ThisWorkbook.Path & "\Kopie", xlOpenXMLWorkbook im selben Verzeichnis als "Kopie.xlsx" ab.
Bezüglich des Intervalls suchst Du mal nach Application.OnTime

Ich helfe Dir gerne bei Fehlern im von Dir erstellten Code.
Pfannenfertiges gibt es vom Koch.

Gruß Ralf

 

Bevor Du Dich in den Tiefen des Internets verlierst.
Hier wird OnTime anfängergerecht erklärt:
Online - Excel Programmierung VBA Makro: Applicaton.OnTime - Zeitgesteuerte Makros
Bis ganz unten durchlesen, da hast Du das Intervall.

 

Hallo Ralf,
danke für den Anfang.

Bin jetzt so weit gekommen.(Siehe Code)
Leider kommt immer das Fenster : ( Siehe Bild)

Wäre super wenn Du mir das Problem lösen kannst .

Gruß Merkur


Sub copy_()
Application.ScreenUpdating = False
Tabelle5.Copy
ThisWorkbook.SaveAs Filename:=Pfad & DateiName & ".xlsx", FileFormat _
:=xlOpenXMLWorkbook, CreateBackup:=False
Application.ScreenUpdating = True
Application.OnTime Now + TimeValue("00:10:00"), "copy_"
End Sub

 

Ja, das ist logisch!
Setze an den Anfang des Makros Application.DisplayAlerts = False
Du brauchst es übrigens - genau wie bei ScreenUpdating - nicht wieder auf True zu setzen, dies macht VBA automatisch.
Auch die Verknüpfung des Dateinamens mit & ".xlsx" ist überflüssig.
Der Dateityp (und damit auch die Endung) wird bereits mittels xlOpenXMLWorkbook vorgegeben.

 

A C H T U N G!!
Nicht ThisWorkbook.SaveAs
sondern wie ich oben schrieb ActiveWorkbook.SaveAs

 

Nach diesem Code:
Sub copy_()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Tabelle5.Copy
ActiveWorkbook.SaveAs Filename:=Pfad & DateiName, FileFormat _
:=xlOpenXMLWorkbook, CreateBackup:=False
Application.OnTime Now + TimeValue("00:10:00"), "copy_"
End Sub
Bekomme ich diese Fehler:

Danke für die Hilfe

 

Was ist (zur Laufzeit) der Inhalt der mir unbekannten Variablen?
Lade mal die Datei mit dem Status Quo hoch.

 

Ich habe es jetzt so gemacht wie Du geschrieben hast.
Das funktioniert. Aber die Kopie wird nicht geschlossen.

Sub copy_()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Tabelle5.Copy
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\_Kopie", xlOpenXMLWorkbook, CreateBackup:=False

End Sub

 

ActiveWorbook.Close 0

 

Hallo Ralf,

vielen Dank für Deine Hilfe.

Läuft .

Klasse

 

Hallo
Irgendwie ist der Wurm drin.

Jetzt kommt der Fehler :
Laufzeitfehler 424 Objekt erforderlich.

Datei im Anhang

Kein Plan.

 

Bei dem Minicode gehe ich davon aus, dass Du den CodeName Tabelle5 geändert hast.

 

die Datei im Anhang

 

Sorry..........hat sich erledigt. Fehler gefunden

ActiveWorbook.Close 0

Danke und schönes Wochenende