Office: (Office 2013) Backup von 2 Blättern

Guten Morgen Zusammen,

habe leider keine VBA Kenntnisse. Daher frage ich hier um Hilfe.

In meiner Excel Datei habe ich 10 Blätter. Davon möchte ich nur Tabelle3 und Tabelle4 als Backup in den Ordner , C:Backups als xlsx Datei exportieren.
Die Ursprüngliche Tabelle3 und Tabelle4 sollen in der Hauptdatei weiter erhalten bleiben.

Der Dateiname der Backup Datei soll so heißen wie der Name der Hauptdatei selbst ,plus Datum der Speicherung mit Uhrzeit.

Danach sollen in der Hauptdatei in Tabelle3, alle Werte in C9 bis Z27 die in nicht gesperrten Zellen sind gelöscht werden.

Eventuell findet jemand die Zeit mir ein Makro daraus zu machen.

Besten Dank Merkur

 

Hi,

meinst du so etwas:

Code:

Sub TabsSpeichern()
    Dim rngZelle As Range
    Application.ScreenUpdating = False
    Worksheets(Array("Tabelle3", "Tabelle4")).Copy
    With ActiveWorkbook
        .SaveAs Filename:="E:\Z_Test\" & Application.Substitute(ThisWorkbook.Name, ".xlsm", "") & _
            Date & "_" & Hour(Time) & "_" & Minute(Time) & "_" & Second(Time) & ".xlsx", FileFormat:= _
            xlOpenXMLWorkbook, CreateBackup:=False
        .Close
    End With
    With Worksheets("Tabelle3")
        For Each rngZelle In .Range("C9:Z27")
            If rngZelle.Locked = False Then rngZelle.ClearContents
        Next rngZelle
    End With
    Application.ScreenUpdating = True
End Sub

Beachte - die ":" in der Uhrzeit werden durch "_" ersetzt weil ":" in Dateinamen nicht erlaubt sind.

Bis später,
Karin

 

Hallo Karin,
erstmal danke für Deine Hilfe.

Das Makro funktioniert. Leider kommt beim Speichern die Meldung auf dem Bild .
Diese Meldung muss ich mit ja Bestätigen. Es wäre besser wenn diese Meldung nicht den Prozess aufhalten würde.

 

Hi,

zu 1.: hast du Code im Codemodul des Tabellenblattes?

zu 2.: löse die verbundenen Zellen auf

Bis später,
Karin

 

Hi,

der Code steht in einem Modul :


Ist er da nicht richtig ?

Gruß

 

Hi,

ich meinte Code zusätzlich zu meinem Makro (dieses ist korrekt im Standardmodul).

Bis später,
Karin

 

.....ja ist nur der Code in dem Modul.

 

Dann kann ich das erste Problem nicht nachvollziehen. Da müsstest du schon mal deine Mappe hochladen.

Bis später,
Karin

 

Wie ich bereits vermutet hatte, hast du in den Codemodulen der beiden zu exportierenden Tabellenblätter Code stehen - deshalb kommt diese Abfrage, weil Code in einer xlsx-Datei nicht gespeichert werden kann. Das kann man wie folgt umgehen:

Code:

    [COLOR=#ff0000]Application.DisplayAlerts = False[/COLOR]
    With ActiveWorkbook
        .SaveAs Filename:="C:\Backup\" & Application.Substitute(ThisWorkbook.Name, ".xlsm", "") & _
            Date & "_" & Hour(Time) & "_" & Minute(Time) & ".xlsx", FileFormat:= _
            xlOpenXMLWorkbook, CreateBackup:=False
        .Close
    End With
    [COLOR=#ff0000]Application.DisplayAlerts = True
[/COLOR]

Vergiss nicht, den Speicherpfad wieder zu ändern!

Bis später,
Karin

 

Hi,

danke für die Hilfe.

Jetzt funktioniert es .

 

Hallo ,
ich bin es mal wieder.

Karin hat mir den folgenden Code oben geschrieben.

Hätte gerne noch eine Abfrage bevor das Makro wirklich startet .

Soll wie folgt lauten:

Alle Daten löschen ?
Ja oder nein ?
Bei ja Makro starten.

Bein nein msgbox schließen ohne Kommentare.

 

Hi,

ganz einfach:

Code:

Sub TabsSpeichern()
    Dim rngZelle As Range
    Dim intFrage As Integer
    intFrage = MsgBox("Alle Daten löschen?", vbYesNo)
    If intFrage = 6 Then

        '.... hier der restliche Code

    End If
End Sub

Bis später,
Karin

 

Danke schön Karin .