Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
856to860
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
856to860
856to860
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zusätliche MsgBox wenn H10 leer ist

Zusätliche MsgBox wenn H10 leer ist
24.03.2007 23:53:00
Heinz
Hallo Leute
Habe unteren Code der mir eine MsgBox öffnet und den Druck abbricht,
wenn im Sheet "Eingabe" die Zelle K6 leer ist.
Nun möchte ich zusätzlich eine MsgBox "Toleranz eingeben"
und den Druck abbrechen wenn im Sheets "Eingabe" die Zelle H10 leer ist.
Könnte mir bitte dabei jemand weiterhelfen ?
Danke & Gruß Heinz
If Sheets ("Eingabe").Range ("K6") " " Then
Worksheets ("311") . Visible = True
Sheets ("311") . PrintOut
Worksheets ("311") . Visible = False
Else
MsgBox "K6 ist leer"
End If
End If

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Probier mal ...
25.03.2007 06:11:14
Matthias
Hallo Heinz
Entweder so

Sub DruckenOderAbbrechen()
If Sheets("Eingabe").Range("K6")  "" And Sheets("Eingabe").Range("H10")  "" Then
Worksheets("311").Visible = True
Sheets("311").PrintOut
Worksheets("311").Visible = False
Else
If Sheets("Eingabe").Range("K6") = "" Then MsgBox "K6 ist leer"
If Sheets("Eingabe").Range("H10") = "" Then MsgBox "H10 ist leer"
End If
End Sub
oder so

Sub DruckenOderAbbrechen()
If Sheets("Eingabe").Range("K6")  "" And Sheets("Eingabe").Range("H10")  "" Then
Worksheets("311").Visible = True
Sheets("311").PrintOut
Worksheets("311").Visible = False
Else
If Sheets("Eingabe").Range("K6") = "" Then MsgBox " Druckauftrag abgebrochen ! ", , "  Fehler  _
in K6": End
If Sheets("Eingabe").Range("H10") = "" Then MsgBox " Druckauftrag abgebrochen ! ", , "  _
Toleranz - Fehler in H10": End
End If
End Sub
Gruß Matthias
Anzeige
AW: Probier mal ...
25.03.2007 11:44:00
Heinz
Hallo Matthias
Danke für Deine Hilfestellung !!
Werde es heute abend in der Arbeit testen.
Danke & noch einen schönen Sonntag,Heinz

304 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige