Wenn Zelle leer - kein speichern möglich

Computer: Software & Programmierung Office Software
1

Hallo zusammen,

ich benutze Excel 2000 und entwerfe gerade ein neues Formular.
Dort würde ich gerne erreichen, dass wenn z.B. in Zelle A1 nichts eingetragen wurde, das speichern nicht möglich ist und das ein Pop-Up
kommt „Benötige Eintrag in A1!“ z.B.

Wie wäre das am einfachsten zu realisieren?

Danke und Gruß
Hooky

2

ich benutze Excel 2000 und entwerfe gerade ein neues Formular.
Dort würde ich gerne erreichen, dass wenn z.B. in Zelle A1
nichts eingetragen wurde, das speichern nicht möglich ist und
das ein Pop-Up
kommt „Benötige Eintrag in A1!“ z.B.

Hi Hooky,
Alt+F11, Doppelklick auf DieseArbeitsmappe, Code reinkopieren, Editor schließen.

Private Sub Workbook\_BeforeClose(Cancel As Boolean)
If Worksheets("Tabelle1").Range("A1") = "" Then
 Cancel = True
 MsgBox "So nicht"
End If
End Sub

Gruß
Reinhard

3

Hallo Reinhard,

schönen Dank * - werd ich direkt mal antesten.

Gruß
Hooky

Hi Hooky,
Alt+F11, Doppelklick auf DieseArbeitsmappe, Code reinkopieren,
Editor schließen.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Worksheets(„Tabelle1“).Range(„A1“) = „“ Then
Cancel = True
MsgBox „So nicht“
End If
End Sub

Gruß
Reinhard