Eine Zelle als Pflichteingabe in Abhängigkeit
28.11.2003 22:12:41
paul56
z.B. Wenn B9 <>== dann MUSS C9 <>"" sein, sonst kein schliessen der Mappe möglich.
bisher folgendes versucht:
Private Sub App_WorkbookBeforeClose(ByVal Wb As Workbook, Cancel As Boolean)
If Range("B9").Value <> "" Then
Range("C9").Activate
MsgBox "Bitte Kennzeichen Gutschrift aus der Auswahlliste erfassen!"
Cancel = True
End If
If Range("B9").Value <> "" Then
Range("C9").Activate
ElseIf Range("C9").Value = "" Then
MsgBox "Bitte Kennzeichen aus der Liste wählen!"
Else
Range("C9").Value = "1"
MsgBox "Danke, Sie können nun speichern!"
Cancel = False
End If
End Sub
Für Hinweise bedanke ich mich im Voraus.