Hallo Liebe VBA Gemeinde, ich hoffe auf eure Hilfe!
Der u.a. VBA bewirkt, dass nur die befüllten Zellen in der Spalte „I“ 2 bis 25 nacheinander (von oben nach unten) in der Zelle C3 gedruckt werden.
Mein wünsch wäre aber, dass die Druckreinfolge von unten nach oben ausgeführt wird! Ich komme da nicht weiter, und hoffe anständig auf Deine Hilfe.
Sub KLT_Labe2()
For zeile = 2 To 25
If Cells(zeile, 9) <> "" Then
Cells(11, 3) = Cells(zeile, 9)
ActiveWindow.SelectedSheets.PrintOut Copies:=1, _
Collate:=True, IgnorePrintAreas:=False
End If
Next zeile
Cells(11, 3) = ""
End Sub
Gruß Peter
|