Druckbereich
30.01.2018 15:43:29
Norbert
wie muss nachfolgendes Script geschrieben sein, wenn die Ausrichtung des Druckbereichs in der Spalte A nach dem letzten numerischen Wert sucht der > 1999 ist?
Denke das ist eine Lapalie für euch
Gruss Norbert
Sub Drucken() 'makro zum Drucken inkl. Druckbereichsanpassung
Dim Zeile As Long, wks As Worksheet
Set wks = ActiveSheet
With wks
Zeile = .Cells(.Rows.Count, 1).End(xlUp).Row
Do Until IsNumeric(.Cells(Zeile, 1).Text) Or Zeile = 10
Zeile = Zeile - 1
Loop
.PageSetup.PrintArea = .Range(.Cells(1, 1), .Cells(Zeile, 14)).Address(ReferenceStyle:=xlA1) _
.PrintOut Preview:=True
End With
End Sub
Anzeige