- #1
K
KANDA
Guest
Hey leute,
Ich habe einen Makro geschrieben der, verhindert das man speichert ohne zuvor die Felder Personalnummer und NAme eingetragen hat. Also ist eines der beiden Felder leer meldet sich der Makro und weist darauf und verhindert somit die Speicherung:
ProgrammCode:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Cells(6, 2) = Then
MsgBox Bitte Namen eintragen!
Cancel = True
End If
If Cells(8, 2) = Then
MsgBox Bitte Personalnummer eintragen!
Cancel = True
End If
End Sub
Genau das selbe will ich auch mit Drucken machen. d.h. Wenn eines der beiden Felder oder gar beide nicht eingetragen sind soll der druck verhindert werden und eine msgbox kommen die darauf hinweist aber ich hab keine ahnung wie ich das mit Drucken machen sol?
Ich hoffe einer von euch kann mir helfen
Ich habe einen Makro geschrieben der, verhindert das man speichert ohne zuvor die Felder Personalnummer und NAme eingetragen hat. Also ist eines der beiden Felder leer meldet sich der Makro und weist darauf und verhindert somit die Speicherung:
ProgrammCode:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Cells(6, 2) = Then
MsgBox Bitte Namen eintragen!
Cancel = True
End If
If Cells(8, 2) = Then
MsgBox Bitte Personalnummer eintragen!
Cancel = True
End If
End Sub
Genau das selbe will ich auch mit Drucken machen. d.h. Wenn eines der beiden Felder oder gar beide nicht eingetragen sind soll der druck verhindert werden und eine msgbox kommen die darauf hinweist aber ich hab keine ahnung wie ich das mit Drucken machen sol?
Ich hoffe einer von euch kann mir helfen