Serienbrief VBA Ausdruck
04.02.2021 12:10:05
T.Müller
Das Problem ist nur, dass er alle Seriendrucke macht, auch bei Zeilen, wo in der Bezugszelle keine Zahl steht (die aus einer Formel kommt), sondern auch wo nur eine Formel drinsteht (ohne Zahlenergebnis).
Wie kann der nachfolgende VBA-Befehl angepasst werden, so dass er ab Zeilen ohne Zahl als Ergebnis NICHT mehr druckt.
Vorstellbar wäre auch, dass er nicht mehr druckt, wenn dort z.VB. das Wort "Ende" steht.
Sub Seriendruck()
Dim wks As Worksheet
Dim iRow As Integer
Set wks = Worksheets("Grundtabelle")
iRow = 21
Do Until IsEmpty(wks.Cells(iRow, 2))
Range("$G$1") = wks.Cells(iRow, 2)
ActiveSheet.PrintOut
iRow = iRow + 1
Loop
End Sub