Eingaben erzwingen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox


Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: Eingaben erzwingen
von: Peter
Geschrieben am: 15.05.2002 - 16:09:53

Hallo an alle,

wie erreiche ich es, das in bestimmten Zellen (F23 oder K44 oder ...) eine bestimmte Eingabe gemacht werden muß.
Fehlt diese Eingabe kann die Datei nicht gespeichert, gedruckt und gefaxt werden.
Ist warscheinlich recht umfangreich ?!?!
Im voraus Dank an alle !!

Gruß Peter


nach oben   nach unten

Re: Eingaben erzwingen
von: Otto
Geschrieben am: 15.05.2002 - 16:50:28

Hallo Peter,
die von dir angegebene Information ist nicht ausreichend.
Wann soll es denn geprüft werden, daß in z.B. F23 oder in ... nichts steht?

Am besten wäre es wenn du mir die Mappe mit demo-Daten und mit Kommentare in markanten Stellen schicken könntest.

Gruß Otto


nach oben   nach unten

Re: Eingaben erzwingen
von: Peter
Geschrieben am: 15.05.2002 - 16:59:04

tut mir leid, das die Frage ein bischen mangelhaft formuliert ist.
Wenn jemand die Datei speichern, drucken oder faxen will, soll eine MSGBox aufgehen, in der darauf hingewiesen wird das z.B. in F23 das Datum fehlt oder in K44 eine Kontrollziffer fehlt.

Gruß Peter


nach oben   nach unten

Re: Eingaben erzwingen
von: Otto
Geschrieben am: 15.05.2002 - 18:02:58

Hallo Peter,
für den ersten Fall kannst du folgende Prozedur direkt in "DieseArbeitsmappe" in VBA-Umgebung einfügen.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Sheets("Tabelle1").Range("F23").Value = "" Then
  MsgBox "Datum in F23 fehlt!"
  Cancel = True
End If
End Sub

Gruß Otto


nach oben   nach unten

Re: Eingaben erzwingen
von: Otto
Geschrieben am: 15.05.2002 - 18:02:58

Hallo Peter,
für den ersten Fall kannst du folgende Prozedur direkt in "DieseArbeitsmappe" in VBA-Umgebung einfügen.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Sheets("Tabelle1").Range("F23").Value = "" Then
  MsgBox "Datum in F23 fehlt!"
  Cancel = True
End If
End Sub

Gruß Otto


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Eingaben erzwingen"