ich habe mit viel Trickserei und Suchen im Forum folgenden Code gebastelt und in "DieseArbeitsmappe" gespeichert.
Ich will mit diesem Code verhindern, das jemand das Sheet "VersAnSch" ausdrucken kann, wenn das Feld "SchaNr" (das sich allerdings im Sheet "Fragebogen" befindet), leer ist!
Leider wird der Code beim Ausdruck ignoriert obwohl das Feld "SchaNr" ist mit der "Entf"-Taste geleert wurde!. Kann mir jemand sagen was hier falsch ist?
Private Sub Vanschr_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name "VersAnSch" Then Exit Sub
If IsEmpty(Range("SchaNr")) Then
Cancel = True
MsgBox "Bitte eine Schadensnummer angeben!"
End If
End Sub