Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Meldung wenn ein wichtiges Feld nicht ausgefüllt wurde ?

85 views
Skip to first unread message

Ramona Bruns

unread,
Jan 21, 2003, 5:40:52 AM1/21/03
to
Hallo,

für ein Auftragsformular ist es wichtig das alle angegebenen Felder
ausgefüllt sind. Damit kein Feld vergessen wird, wäre es
schön, wenn Excel eine Meldung ausgeben würde, wenn das Formular
geschlossen oder gespeichert wird. Und wie könnte man
Felder, die nicht so wichtig sind von dieser Bedingung ausschließen ?

Hoffentlich kann uns jemand helfen !

Dankeschön im Voraus

Ramona und Susanne


Peter Eichler

unread,
Jan 21, 2003, 11:13:53 AM1/21/03
to
Hallo die Damen,

man kann sicher mit "Daten/Gültigkeit" einige Einschränkungen für die
Eingabe machen, aber wenn das Formular z.BB. ganz leer bleibt, dann "greift"
das nicht.

Mir scheint, hier hilft nur ein Makro.

gruß
peter

"Ramona Bruns" <ramona...@volkswagen.de> schrieb im Newsbeitrag
news:b0j83g$mg...@doiweb4.volkswagen.de...

Kai Ottenbacher

unread,
Jan 21, 2003, 4:50:05 PM1/21/03
to
Hi Ramona und Susanne,

anbei eine Loesug des Problems (ungeprueft) von Konrad Hauke:
-------
Im Workbook_BeforeClose Ereignis überprüfen ob Daten komplett eingegeben
wurden.
Die Funktion AllDataComplete() muss einen Boolean Wert zurückliefern, im
Beispiel liefert die Funktion True wen die Daten komplett sind ansonsten
False.


Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim lRet As Long

If Not AllDataComplete() Then
lRet = MsgBox("Die Dateneingabe ist nicht vollständig." & _
"Möchten Sie beenden?", _
vbQuestion + vbYesNo, _
"Achtung")
If lRet <> vbYes Then
Cancel = True
End If
End If
End Sub
-----------
HTH, Kai

"Ramona Bruns" <ramona...@volkswagen.de> wrote in message news:<b0j83g$mg...@doiweb4.volkswagen.de>...

Ramona Bruns

unread,
Jan 22, 2003, 1:27:38 AM1/22/03
to
Kannst du mir auch sagen, wo man das ganze eingibt ?
Wenn ich es im Visual Basic Editor eingebe erscheint :
"Fehler beim Kompilieren Sub oder Function nicht definiert" Hervorgehoben
wird die Zeile AllDataComplete

"Kai Ottenbacher" <kai.ott...@web.de> schrieb im Newsbeitrag
news:4b694ecd.03012...@posting.google.com...

stefan onken

unread,
Jan 22, 2003, 3:00:48 AM1/22/03
to
hallo,
da hat Kai wohl was unterschlagen.
Probier mal dieses im _BeforeClose

Dim Bereich, i
Bereich = Array("A1", "A2", "A3")
For i = 0 To UBound(Bereich)
If Range(Bereich(i)) = "" Then
MsgBox "Da fehlt was in " & Bereich(i)
Cancel = True
Exit For
End If
Next

Hinter Array trägst du/ihr alle Zellen ein, die
kontrolliert werden sollen.

Gruß
stefan

>-----Originalnachricht-----

>.
>

Ramona Bruns

unread,
Jan 22, 2003, 5:10:45 AM1/22/03
to
Dankeschön für eure nette Hilfe


"stefan onken" <steo...@web.de> schrieb im Newsbeitrag
news:019f01c2c1ec$5fcd5510$cef82ecf@TK2MSFTNGXA08...

0 new messages