ich komme mit diesem makro nicht weiter.
Der obere teil funktoniert (logisch,ist ja von euch profis)
ich möchte erreichen,dass es im anschluss das Gefundene auch druckt.
Und dazu ist der untere Teil wohl ungeeignet
Option Explicit
Sub print_shippinglist()
Dim C As Variant, X As Variant
For Each C In ActiveSheet.UsedRange
If C.Value "" Then X = C.Address
Next
MsgBox "letzter Wert im Bereich steht in Zelle " & X
-----------------------------------------------unterer teil:
' Range("A1:O65").Select
' ActiveSheet.PageSetup.PrintArea = "$A$1:$O$65"
' ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
danke für euer gehirnschmalz
gruss dieter