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

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 240188

Url: https://administrator.de/forum/excel-pflichtfeld-erstellen-240188.html

Ausgedruckt am: 04.06.2025 um 17:06 Uhr

4 Kommentare

Neuester Kommentar

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.

If Worksheets(1).Range("D11").Value = "" then  
  msgbox "Sie haben das Pflichtfeld in D11 nicht ausgefüllt!", vbExclamation  
End if

Wenn du mehrere Pflichtfelder hast kannst du wieder über einen Namen der Zellen gehen:
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

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