CODE

Hallo Juli,

wenn du sonst keine Mappe offen hast, kannst du auch Excel Schließen.

Probiere es dann so:

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim varOut() As Variant, varAdr As Variant, varBez As Variant

Dim i As Integer, n As Integer, iAnt As Integer

Dim strOut As StringConst strAdr = "D4,G4,K4,G13,G14"

Const strBez = "Bezeichnung Auftrag,Budget gesamt,Verantwortlich,Empfänger-KST,Empfänger-KST"varAdr = Split(strAdr, ",")

varBez = Split(strBez, ",")

With Sheets("Einzelauftrag")

   For i = LBound(varAdr) To UBound(varAdr)

      If Len(.Range(varAdr(i))) = 0 Then

         ReDim Preserve varOut(n)

         varOut(n) = varAdr(i) & ": " & varBez(i)

         n = n + 1

      End If

   Next

   If n > 0 Then

      strOut = Join(varOut, Chr(10))

      iAnt = MsgBox("Folgende Zellen sind noch auszufüllen:" & Chr(10) & Chr(10) & strOut _

      & Chr(10) & Chr(10) & "Wollen Sie diese jetzt ausfüllen?", vbYesNo, "Speichernabfrage")

      Cancel = True

   End If

   If n = 0 Or iAnt = vbNo Then

      Cancel = False

      ThisWorkbook.Save

      Application.Quit

   End If

End With

End Sub

Claus

Wow, es funktioniert. Danke sehr!

Hätte eine kleine Frage dazu.. Wenn ich bei dieser Message Box "Nein" klicke, geht das Fenster nicht wirklich zu. Habe es auch mit "Cancel=False" ausprobiert, funktioniert leider nicht. Noch besser fände ich folgende Variante: Wenn man auf "Nein" klickt,
öffnet sich eine weitere Message Box die fragt, ob gespeichert werden soll. Klickt man "Ja", so wird gespeichert und automatisch geschlossen. Klickt man "Nein" so wird ohne Speichern sofort geschlossen.

Hallo Juli,

sorry, da ist ein Fehler drin.

Ändere

QWS.Move

zu

QWS.Copy

Claus

Hallo Claus,

super, vielen Dank es funktioniert genau so wie ich es haben wollte. Ich wollte nur fragen ob der Inhalt von dem Blatt Stundenmeldungen gelöscht wird bevor die neue Übertragung beginnt? Weil wenn die Übertragung kürzer/weniger wäre als die alte, was würde
mit den unteren Zeilen der letzten Übertragung passieren?

Und ich wollte fragen ob es nicht möglich ist, alle bestehenden Blätter, auch Stundenmeldungen zu löschen, sodass nur das übertragene Monatsblatt immer drin wäre?

Vielen vielen Dank für deine schnelle Hilfe!

Liebe Grüße

Juli