ich habe folgendes Makro:
Sub Drucken()
Dim rLetzte As Range
Set rLetzte = Cells.Find("*", , xlValues, 2, 1, 2, False, False, False)
If Not rLetzte Is Nothing Then
With ActiveSheet
.PageSetup.PrintArea = .Range("A2", rLetzte).Address
.PrintOut
.PageSetup.PrintArea = ""
End With
End If
ActiveSheet.PageSetup.PrintArea = "$A$2:$M$700"
End Sub
Was ich jedoch nicht nachvollziehen kann, auf welche Spalte er sich bezieht.Ich hoffe es kann mir jemand weiter helfen.
Gruß ABO