Hi zusammen,
hab in meiner Excel ein Makro um ein Dokument zu drucken.
Mache das mit einem Makro, weil das Dokument zwischen einer und 15 Seiten lang sein kann.
Das funktioniert auch alles super.
Für das Dokument muss man aber ein Datum eingeben, das passiert auf dem Tabellenblatt "A 2" in Zelle "D19".
Jetzt kommt es leider immer wieder vor, dass die Datumseingabe vergessen wird.
Daher würde ich das Makro gerne erweitern, dass der Druck nicht ausgelöst werden kann, wenn die Zelle leer ist.
Richtig spitze wäre es, wenn man das Makro auslösen möchte (solange die Datumszelle leer ist), das automatisch in Zelle "D19" gehüpft wird :)
Falls mir jemand weiterhelfen kann wäre super.
Sub DruckTestCertifikat()
Dim strDruckerAktiv$, i%, max%, vz%, bz%, sStdDrucker$
sStdDrucker = Application.ActivePrinter
'Application.ActivePrinter = "\Briefpapier auf Ne08:"
strDruckerAktiv = Application.ActivePrinter
max = Sheets("DQ").Range("AH2").Value
If max 1 Then max = 1
If max > 15 Then max = 15
For i = 1 To max
vz = i * 51 - 50: bz = i * 51
Worksheets("T.-Cert.").Range("A" & vz & ":H" & bz).PrintOut ActivePrinter:="\Briefpapier"
Next i
Application.ActivePrinter = sStdDrucker
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub