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

Linjada · 3. September 2013

Excel 2010,

Set Rng = Sheets(1).Range(StrRng) hab ich eingefügt und ne 2 reingeschrieben, da es sich um das 2te Blatt handelt, aber geht trotzdem nicht.

chris-kaiser · 3. September 2013

Hi,

... habe es jetzt auf einem anderen Rechner laufen lassen...., keine (Fehler)Meldung.
Einen weiteren Rechner genommen mit Win XP und Office 2007 und auch keine Fehler(Meldung)

komische Sache....

Code:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim StrRng As String, Rng As Range, tmpStr As String, rngCell As Range
'StrRng = "A1:H1,B2:F2,A3,A4:B5" 'bis zu 30 Bereiche
With Sheets(1)
Set Rng = Union(.Range("A1:H1"), .Range("B2:F2"), .Range("A3:B5")) 'usw...
End With
For Each rngCell In Rng
If rngCell = "" Then
tmpStr = tmpStr & rngCell.Address(0, 0) & Chr(10)
rngCell.Interior.ColorIndex = 6
Else
rngCell.Interior.ColorIndex = xlNone
End If
Next
If tmpStr "" Then
MsgBox "in den Zellen: " & Chr(10) & tmpStr & " fehlen Eingaben, diese Zellen ist gelb markiert"
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

auch das würde bei mir gehen, eine Spielerei mit Union, nur ist das länger als vorhin

Linjada · 3. September 2013

Guten Morgen Chris und alle anderen,

ich hab das gestern abend nochmals zuhause in ruhe durchgemacht und es hat funktioniert *Smilie juhuu.. der Fehler war verschwunden.
Trotzdem ist die Lösung nicht zu 100% für mich relevant, weil ich (siehe meinen Ausgangscode) in einem waagrechten Bereich von zb. A1 bis E1 5 Zellen habe, wobei nur eine in der Zeile angekreuzt werden muss, um diese Reihe als Pflichtfeld abzuschließen.

Bei deiner Lösung müsste in jeder angegebene Zelle im Range-Bereich etwas stehen, um die Messagebox verschwinden zu lassen *frown.gif*

chris-kaiser · 3. September 2013

Hi,

alles geht wenn ich nur dies wüsste

Dann nochmal die Frage *Smilie
Welche Pflichtfelder sollen den ausgefüllt werden?

ohne den Zusatz usw..!

sondern klar formuliert

In dem Zellbereich von A1: E1 muss zumindest eine Zelle ein x enthalten
In dem Zellbereich von bis soll .....

Am besten mit einer Beispieldatei wo klar erkennbar ist was ausgefüllt werden sollte.

Linjada · 3. September 2013

Okidoki, hab dir hier eine Beispieldatei *Smilie

chris-kaiser · 3. September 2013

Hi,

Code:

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

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

With Sheets(2)
.Protect Password:="geheim", userinterfaceonly:=True
Dim StrRng As String, rng As Range, rngRow As Range
StrRng = "D53:H61,D71:E71,D82:H90,D103:H111,E118:G118,D133:E133,D148:H150"
Set rng = .Range(StrRng)

For Each Bereich In rng.Areas
For Each rngRow In Bereich.Rows
If WorksheetFunction.CountIf(rngRow, "x") = 0 Then
rngRow.Interior.ColorIndex = 6
TempStr = TempStr & .Cells(rngRow.Row, 3) & Chr(10)
Else
rngRow.Interior.ColorIndex = xlNone
End If
Next
Next
End With
If TempStr "" Then MsgBox TempStr & "bitte noch ausfüllen"
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

mal schauen *wink.gif*

Linjada · 3. September 2013

Wuhuuuuuuuuu es klappt und ist so kurz *Smilie ich bin so glücklich und danke dir tausend maaaal *biggrin.gif*

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

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

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

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

Pflichtfelder bei Klick auf Speichern per Messagebox anzeigen????? - Similar Threads - Pflichtfelder Klick Speichern

Eingaben in 2 Feldern auf Plausibilität prüfen

Userform Fehler und Pflichtfelder

Excel 2007-Pflichtfeld Abfrage vorm Drucken

Pflichtfeld wenn anderes Feld ausgefüllt ist

Datensatz 1 von 5 Feldern als Pflichtfeld

Gewisse Formularfelder als Mussfelder definieren

Outlook Formular mit Pflichtfeldern