ich habe eine Frage:
Was muss ich in unterem Code verändern, damit nur die Seiten gedruckt werden, die ein Inhalt in Zelle A1 haben?
Anbei eine Beispieldatei: https://www.herber.de/bbs/user/47106.xls
Sub Drucken_3() Range("A1").ClearContents Application.Dialogs(xlDialogPrint).Show For n = 1 To Cells(Rows.Count, 2).End(xlUp).Row If UCase(Cells(n, 3).Value) = "X" Then Cells(1, 1).Value = Cells(n, 2).Value Range("A1:A45").PrintOut End If Next n End Sub
Vielen Dank im Voraus.
Liebe Grüße
Selma