Office: Pflichtfelder bei Klick auf Speichern per Messagebox anzeigen?????

Hallo zusammen,

ich habe bereits einen Code, der mir bei Klick auf Speichern alle Pflichtfelder geld färbt und per Messagebox auf das Ausfüllen aufmerksam macht und das Speichern verhindert, sofern nicht alle Pflichtfelder ausgefüllt wurden.

Problem: Der Code verwehrt das Speichern, bevor man nicht alle Pflichtfelder ausgefüllt hat.

Ziel:Ein Code, der bei Click auf Speichern die Felder weiterhin gelb färbt und die Messagebox auftritt, aaaaaber das Speichern erlaubt.

Was muss ich in meinem Code jetzt ändern?

Hier mein Code:

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

If Environ("USERNAME") = "XXXXX" Then Exit Sub

With Sheets(2)
.Protect Password:="blabliblub", Userinterfaceonly:=True
If Application.WorksheetFunction.CountBlank(.Range("A1:E1")) 4 Then
.Range("A1:E1").Interior.ColorIndex = 6
Cancel = True
Else
.Range("A1:E1").Interior.ColorIndex = xlNone

End If
If Application.WorksheetFunction.CountBlank(.Range("A2:E2")) 4 Then
.Range("A2:E2").Interior.ColorIndex = 6
Cancel = True
Else
.Range("A2:E2").Interior.ColorIndex = xlNone
End If
If Cancel Then MsgBox ("Please fill out the yellow highlighted fields before saving")
End With
End Sub




Kann mir jemand helfen? Ich wäre sooo dankbar für Antworten.

:)

 

Hi,

ich würde
Cancel = True
entfernen. (nicht getestet)

Nur ob das der Sinn von Pflichtfeldern ist?

 

Hallo Chris,
danke für deine schnelle Hilfe.

Erstmals hab ich alle Cancel=True entfernt, worauf auf Klick auf Speichern alle Pflichtfelder gelb wurden, jedoch die Messagebox nicht aufgetaucht ist.

Wie krieg ich ich die Messagebox dazu, bei Klick auf Speichern aufzutauchen?

 

Hi,

achso ich dachte die wird dann auch nicht gebraucht *wink.gif*

Code:

 

Hi Chris *Smilie

Gibts auch ne Lösung die man ins Ende packen kann?
Ich hab ne riiiiiesige Reihe von Pflichtfeldern, dann müsste ichs ja theoretisch immer nach jedem auftuachen lassen.

Gehts auch, dass die Messagebox auftauch, sobald ein Feld/Bereich meiner 30 PflichtfeldZeilen nicht angekreuzt werden?

 

Weisst, sonst muss der User 30 mal drücken, damit er die Messagebox bestätigt *frown.gif*

 

Hi,

? in dem Code jetzt nicht... hast Du das leicht 30 mal drinnen?
Welche Pflichtfelder sollen den ausgefüllt werden?
das geht doch gleich in einem Rutsch. *Smilie

 

Aaaalso,

Der erste Bereich von D53 bis H53 waagrecht
D54 bis H54 wwagrecht
.
usw .
.
bis D61-H61
--------------------------------------
Daaaann: D71 bis E71
-----------------------------------------
Dann : D82 bis H82
.
usw .
.
. D90 bis H90
-------------------------------------------------
Dann : D103 bis H103
.
usw .
.
D111 bis H111
-----------------------------------------

Dann : E118 bis G118
-------------------------------

Dann: D133 bis E 133
-------------------------------
Dann: D148 bis H 148
.
usw .
.
D150 bis H150
------------------------------

Ende *Smilie

 

Hi,

Code:

Bereiche bitte anpassen

 

Fehlermeldung: Die Methode Range für das Objekt Global ist fehlgeschlagen *frown.gif*

 

Hi,

kopiere mal den Code (wie von mir abgebildet) in eine leere Mappe und klicke auf speichern.

kommt da auch die Meldung *wink.gif*

Was noch fehlt wäre die Angabe welches Tabellenblatt, so wie der Code jetzt ist, wird das aktive Blatt abgefragt.

 

Also ich kopiere es 1:1 in DieseArbeitsmappe und es funktioniert nicht,
also der Fehler bleibt der gleich, obwohl ich eine neue Arbeitsmappe geöffnet hab.

 

Hi,

Office 2010 keine Fehlermeldung, zumindest bei mir . *Smilie

 

Oh man, deins zeigt bei mir auch n fehler ich werd blöööd..
zurück zur Lösung mit 30 mal bestätigung klicken -_-

 

Hi,

welche Officeversion ist im Einsatz?

versuche es mal mit der Blattangabe
Set Rng = Sheets(1).Range(StrRng)