Wenn Zelle leer Msg Box
28.11.2006 16:50:48
Heinz
Habe eine CheckBox die bei Click den Druckvorgang startet.
Nun möchte ich aber wenn im Sheet "Eingabe" K6 kein Wert steht,das eine Msg Box erscheint "Kein Name eingegeben" und der Druckvorgang wird nicht gestartet.
Könnte mir Bitte dabei jemand helfen ?
Danke, Heinz
Private Sub CheckBox10_Click()
'Dim Worksheet As Object
'Bildschirmflackern aus
Application.ScreenUpdating = False
Sheets("311").Visible = True
If CheckBox1 Then Sheets("311").PrintOut
Sheets("311").Visible = False