Fehlermeldung

Definiert die Fehlermeldung, die angezeigt wird, wenn ungültige Daten in einer Zelle eingegeben werden.

Sie können auch ein Makro mit einer Fehlermeldung aufrufen. Ein Beispielmakro finden Sie weiter unten auf dieser Seite.

So greifen Sie auf diesen Befehl zu:

Wählen Sie Daten - Gültigkeit... - Register: Fehlermeldung.


Fehlermeldung bei Eingabe ungültiger Werte anzeigen.

Zeigt die von Ihnen unter Inhalt definierte Fehlermeldung an, wenn ungültige Daten in eine Zelle eingegeben werden. Ist diese Option aktiviert, wird die Meldung zur Vermeidung einer ungültigen Eingabe angezeigt.

In beiden Fällen wird, sofern Sie die Option "Stopp" aktiviert haben, der ungültige Eintrag gelöscht und der vorige Wert wieder in die Zelle eingefügt. Dasselbe gilt, wenn Sie die Dialoge "Warnung" und "Information" durch Klicken auf die Schaltfläche Abbrechen schließen. Wenn Sie die Dialoge mit der Schaltfläche OK schließen, wird der ungültige Eintrag nicht gelöscht.

Inhalte

Aktion

Geben Sie an, welche Aktion bei Eingabe ungültiger Daten in eine Zelle erfolgen soll. Die Aktion "Stopp" verwirft den ungültigen Eintrag und zeigt einen Dialog an, der durch Klicken auf OK geschlossen werden muss. Die Aktionen "Warnung" und "Information" öffnen einen Dialog, der entweder mit OK oder mit Abbrechen geschlossen werden kann. Der ungültige Eintrag wird nur dann verworfen, wenn Sie auf Abbrechen klicken.

Auswählen

Öffnet den Dialog Makro zur Auswahl des Makros, das ausgeführt wird, wenn ungültige Daten in eine Zelle eingegeben werden. Das Makro wird nach der Anzeige der Fehlermeldung ausgeführt.

Titel

Geben Sie den Titel des gewünschten Makros oder der Fehlermeldung an, die bei Eingabe ungültiger Daten in eine Zelle angezeigt werden soll.

Fehlermeldung

Geben Sie die Meldung ein, die Sie angezeigt bekommen möchten, wenn ungültige Daten in einer Zelle eingegeben werden.

Beispielmakro:


    Function ExampleValidity(CellValue as String, TableCell as String)
        Dim msg as string
        msg = "Invalid value: " & "'" & CellValue & "'"
        msg = msg & " in table: " & "'" & TableCell & "'"
        MsgBox msg ,16,"Error message"
    End Function

Bitte unterstützen Sie uns!