Private Sub before Close - Tabellenblatt prüfen
26.10.2005 08:56:43
Rolf
Ich habe folgendes Makro:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Sheets("Eingabeblatt").Select
Range("V39").Select
If ActiveCell = "" Then
Exit Sub
Else
GoTo text
End If
text: merke2 = MsgBox("Bitte Termin festlegen", vbOKOnly, "Termin!")
Exit Sub
End Sub
Nun möchte ich es erweitern:
Wenn ich das Tabellenblatt "Offerte" drucke, soll es die Prüfung nicht durchführen. Sollte ich eines oder mehrere der anderen Tabellenblätter drucken, soll die Prüfung durchgeführt werden. Muss ich das Makro nun in jeder Tabelle hinschrieben, oder kann man das auch innerhalb des einen Makros (Das im Moment unter Arbeitsmappe steht) lösen?
Danke für die Antworten!
Rolf :)