116408
Jun 05, 2014, updated at 16:54:24 (UTC)
38321
4
0
Excel: Pflichtfeld erstellen
Hallo
Habe in einem Anfrageblatt einige Felder, die unbedingt ausgefüllt werden müssen, also Pflichtfelder sind.
Wie bringe ich das zu Stande, dass z.B. in D11 ein Pflichtfeld erstellt wird? Bleibt es leer, muss irgendetwas passieren.....
LG
cuba
Habe in einem Anfrageblatt einige Felder, die unbedingt ausgefüllt werden müssen, also Pflichtfelder sind.
Wie bringe ich das zu Stande, dass z.B. in D11 ein Pflichtfeld erstellt wird? Bleibt es leer, muss irgendetwas passieren.....
LG
cuba
Please also mark the comments that contributed to the solution of the article
Content-Key: 240188
Url: https://administrator.de/contentid/240188
Printed on: April 25, 2024 at 20:04 o'clock
4 Comments
Latest comment
Hallo Cuba,
das kannst du einfach abfragen, und eine Meldung ausgeben lassen falls die Zelle leer ist.
Im Beispiel Zelle D11 auf dem ersten Tabellenblatt.
Wenn du mehrere Pflichtfelder hast kannst du wieder über einen Namen der Zellen gehen:
Im Beispiel sind die Zellen unter dem Namen Pflichtfelder zusammengefasst:
Das ganze bindest du an ein Event deiner Wahl, z.B. einen Button, oder an das Workbook_BeforeSave() Event das ausgelöst wird bevor das Dokument gespeichert werden soll.
Grüße Uwe
das kannst du einfach abfragen, und eine Meldung ausgeben lassen falls die Zelle leer ist.
Im Beispiel Zelle D11 auf dem ersten Tabellenblatt.
If Worksheets(1).Range("D11").Value = "" then
msgbox "Sie haben das Pflichtfeld in D11 nicht ausgefüllt!", vbExclamation
End if
Im Beispiel sind die Zellen unter dem Namen Pflichtfelder zusammengefasst:
Dim cell As Range
For Each cell In Range("Pflichtfelder")
If cell.Value = "" Then
'Selektion auf die Zelle setzen
cell.Select
MsgBox "Das Pflichtfeld in Zelle " & cell.Address & " wurde nicht ausgefüllt!", vbExclamation
End If
Next
Grüße Uwe