Wenn Zellen leer, MessageBox beim Schließen von Excel mit den Optionen: "jetzt ausfüllen"...

Option Explicit

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Dim R As Range



'Prüfe jede dieser Zellen

For Each R In Worksheets("Einzelauftrag").Range("D4, G4, K4, G13, G14")

'Leer?

If IsEmpty(R) Then

'Fragen:

Select Case MsgBox("Zelle " & RangeAddr(R) & " ist leer, jetzt ausfüllen?", vbYesNoCancel)

Case vbYes

'Ereignisse aus

Application.EnableEvents = False

'In das Blatt

R.Parent.Select

'In die Zelle

R.Select

'Ereignisse an

Application.EnableEvents = True

'Speichern abbrechen

Cancel = True

Exit For

Case vbNo

'Egal, trotzdem weiter

Case vbCancel

'Speichern abbrechen

Cancel = True

Exit For

End Select

End If

Next

End Sub

Function RangeAddr(R As Range) As String

'Return a userfriendly address from R (usefull for hyperlinks)

If InStr(R.Parent.Name, " ") > 0 Then

RangeAddr = "'" & R.Parent.Name & "'!" & R.Address(0, 0)

Else

RangeAddr = R.Parent.Name & "!" & R.Address(0, 0)

End If

End Function

Funktioniert leider nicht. Wenn ich die Mappe schließe wird ganz normal geschlossen obwohl die Zellen leer sind?

Auch wenn Du sie ausfüllst und dann schließt sind sie beim nächsten Öffnen dennoch leer... weil Du nicht speicherst.

Daher macht man die Prüfung nur vor dem Speichern Sinn.

Willst Du nur mal reinkucken, braucht es keine Abfrage "Zelle leer oder nicht".

Sobald Du jedoch irgendwo was änderst, dann fragt Dich Excel "Speichern Ja/Nein" und sagst Du ja, dann kommt die Abfrage "Zelle leer oder nicht".

Andreas.

Das habe ich noch nie gemacht, kenne mich leider nicht damit aus.

Wie wäre es wenn man einfach eine Message-Box mit der Option Ja/Nein nutzt.

Beim Schlißen der Excel-Datei würde (wenn Zellen nicht ausgefüllt) eine Message Box erscheinen, die sagt: "Zellen XXXX wurden noch nicht ausgefüllt. Jetzt bearbeiten? Oder "Nein" für Später."

Bei Ja werden die Zellen ausgefüllt und die Datei wird eigenhändig gespeichert und geschlossen. Bei Nein wird der aktuelle Stand gespeichert und automatisch geschlossen.

Meine Ansätze wären:

Private Sub Workbook_BeforeClose()ActiveWorkbook.Worksheets("Einzelauftrag").SelectIf Worksheets("Einzelauftrag").Range("D4, G4, K4, G13, G14") = "" Thena=MsgBox("Zellen D4, G4, K4, G13, G14 sind leer. Bitte ausfüllen mit Ja. Nein für später.", vbYesNo)If a = vbYes Then Exit SubElseApplication.DisplayAlerts = FalseActiveWorkbook.Close savechanges:=trueExit ForApplication.DisplaysAlerts=TrueEnd IfEnd Sub

Eigentlich fände ich es gut, wenn er guckt welche leer sind. Wenn z.B. Alles ausgefüllt ist außer G14 soll auch in der Message Box stehen: G14 nicht ausgefüllt.

Wenn das zu kompliziert wäre würde es mir auch ausreichen wenn er sagen würde: "Bitte prüfe folgende Zellen..."

Hoffe ihr könnt mir helfen...

LG

Funktioniert leider nicht. Wenn ich die Mappe schließe wird ganz normal geschlossen obwohl die Zellen leer sind?

In der MessageBox soll es 2 Optionen geben. "Jetzt ausfüllen" würde bedeuten, dass die Message-Box verschwindet und man dann ausfüllt und ganz normal speichert und schließt. Die 2.Option wäre "Später ausfüllen". "Später ausfüllen" soll bedeuten,
dass die Datei ganz normal geschlossen werden kann, wie man es auch vorher wollte.

Dann musst Du Dir selber eine MsgBox basteln, das Ding nennt sich dann Userform. Schon mal gehört / gemacht?

Andreas.