VBA Tabellenblatt kopieren und mit Datum benennen

[MatzeP]

Hallöchen,


Du musst die Vorlage doch auch nicht speichern sondern die Kopie?

Das ist aber alles in einer Datei drin und die wird doch  komplett gespeichert?

[schauan]

Hallöchen,

... sorry, habe gerade nicht dran gedacht dass ja nur die Blätter innerhalb kopiert werden
Wenn Du die Eingaben prüfst könntest Du zusätzlich den Blattnamen prüfen ob der z.B. "Vorlage" enthält. Wenn ja, dann wird das Blatt übergangen.

[MatzeP]

Die Idee hatte ich auch. Nur an der Umsetzung scheitert es. Wie zumeist bei mir. Ich habe hier mal das Makro:

Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim rngPflicht As Range, rngBereich As Range
    Dim intLeere As Integer
    Set rngPflicht = [D7,D10,F7,F8,F10,H7,J7,E13,E16,E20,E22,E23,E29,E32,E37]
    For Each rngBereich In rngPflicht.Areas
        intLeere = intLeere + Application.WorksheetFunction.CountBlank(rngBereich)
    Next
    If intLeere > 0 Then
        Cancel = True
        MsgBox "Bitte zuerst alle Pflichtfelder ausfüllen !"
    End If
End Sub

[schauan]

Hallöchen,

mit dem Makro prüfst Du nur Inhalte auf dem aktiven Blatt. Wenn das nicht die Vorlage ist sondern eine Kopie, sollte es passen.
Wenn Du immer nur das neu eingefügte Blatt, welches unmittelbar hinter der Vorlage ist, prüfen willst, dann sollte es mit Sheets(2) gehen - wenn nicht
noch mehr links daneben sind

[MatzeP]

Das funktioniert soweit. Sobald ich auf dem Tabellenblatt mit Pflichtfeldern bin und diese auch ausgefüllt habe, kann ich abspeichern.

Vielen Dank.

Ich habe noch ein weiteres Anliegen aber da mache ich ein neues Thema auf.