Datensicherung einer Excel Mappe mit Macro, ist das möglich?

Question

Hallo
Ich habe mahl wieder ein Anliegen
Ich habe eine Excel Mappe mit dem Namen Abrechnung mit zwei Tabellenblättern,
Einzelwerte und Abrechnung. Ich möchte vom Tabellenblatt Einzelwerte aus ein Makro starten das folgendes bewirkt.
Speichen vom Tabellenblatt Abrechnung, Werte und Formatierung nicht die Formeln In einer neuen Excel Mappe.
Der Dateipfad soll aus eine Celle im Blatt Abrechnung z.b I6 und der Dateiname aus eine Celle im Blatt Abrechnung z.b J6 übernommen werden.
Die neue Datei soll dann geschlossen werden, und die Original Datei Abrechnung wieder geöffnet sein.
Leider gelingt es mir nicht dieses aufzuzeichnen.

Gruß
Hans

Answer 1

Hallo Hans,

schaue hier
Dateikopie

Gruß Hajo

Answer 2

Hallo

Leider entspricht dein Link nicht dem was ich erreichen möchte.

Ich möchte, wie oben beschrieben, nur ein Tabellenblatt sichern und den Pfad und Dateinamen in bestimmten Cellen Vorgeben können, weil der Dateiname von Abrechnung einef fortlaufende Nummer enthält.


Noch eine Frage am Rande ich hatte nur Datensicherung als Subjekt eingegeben, erschienen ist aber der angezeigte Text, warum?


Mfg
Hans

Answer 3

Hallo Hans,
vielleicht hilft dir das Makro weiter:

Neue Mappe wird erstellt.
In die InputBox Namen der Datei eingeben.
Tabelle "Abrechnung wird eingefügt.
Formeln werden gelöscht, Werte bleiben erhalten.
Gespeichert wird die neue Mappe im Pfad und Ordner der Datei "Abrechnung"

Sub Abrechung()
Dim strPfad As String, strDatei As String
strPfad = Application.ActiveWorkbook.Path + "\" ' Aktuelle Datei Pfad
Sheets("Abrechnung").Copy 'Neue Arbeitsmappe wird erstellt
strDatei = InputBox("Unter welchem Namen soll die Datei gespeichert werden?") 'Name Mappe
With ActiveSheet.UsedRange 'Formeln löschen
.Value = .Value
End With
ActiveWorkbook.SaveAs strPfad & strDatei 'Datei wird gespeichert
ActiveWindow.Close 'Arteitsmappe wird geschlossen
End Sub

Answer 4

Hallo fedjo

Dein Makro hat mich schon weiter gebracht, Danke.
Habe jetzt zwei Makros in meiner Mappe die auch unabhängig von einander laufen.
Ich möchte aber das Aktualisieren Makro an das Support Makro anbinden.
Damit ich nur noch ein Makro starten muss.
Die Copy Datei und die beiden Tabellenblätter sollen auch noch einen Blattschutz. erhalten.
Wäre super wenn das alles klappt.

Habe meine Datei Hochgeladen.

Abrechnung.xls

Mit freundlichen Grüßen
Hans

Answer 5

Von Hans
Anscheinet ist mir ein Fehler beim einfügen des Lik’s passiert hier noch einmal der link für meine Datei.

http://www.file-upload.net/download-6738903/Abrechnung.xls.html

Hans

Answer 6

Hallo Hans,
ich habe die Makros verknüpft und etwas geändert.
Blattschutz sollte auch funktionieren: Passwort "PW"
Du solltest in Makros "Select" so wenig wie möglich verwenden.
Vielleicht hab ich deinem Makro "Aktualisieren" vom Kopieren, Einfügen etwas übersehen, Nachprüfen.

Gruß
fedjo

Abrechnung

Answer 7

Hallo und einen schönen Sonntag,
Besten Dank an dich fedjo.
Die Reihenfolge vom Ablauf stimmte noch nicht, und bei der Aktualisierung hatte ich mich wohl auch schlecht ausgedrückt.
Habe es jetzt als Text ins Makro geschrieben, hoffe es ist verständlich was ich möchte, bin absoluter Makro Anfänger.

Meine Datei

Abrechnung

Gruß
Hans

Answer 8

Hallo Hans,
habe jetzt die das Makro in der Datei nach deinen Text angepasst, sollte jetzt funktionieren.

Gruß
fedjo

Answer 9

Hallo fedjo.
Besten dank für deine ausführliche Hilfe.
Nur das lösch aller Zellwerte, auf einmal, wollte nicht laufen?
Lösche jetzt jeden Bereich einzeln.

Läuft genau wie ich es mir gedacht habe, danke.

Gruß
Hans