ich habe ein Makro gefunden, das einen bestimmten Bereich (bis Spalte P) markiert und einen Druckbereich darum legt und diesen dann anzeigt.
Leider ist in dem Makro die Spalte "K" fest "verbaut" und meine letzte ausgefüllte Zelle kann auch mal in Spalte P, Q usw liegen. Wie muß der String heissen, wenn die letzte ausgefüllte Zelle in unterschiedlichen Spalten und Zeilen liegt?
Danke mal
Sub Druck_variabel()
Dim lngLastRow As Long
With ActiveSheet
lngLastRow = .Cells.Find(What:="*", After:=Range("A1"), _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
.PageSetup.PrintArea = "$A$1:$K$" & lngLastRow
End With
ActiveWindow.SelectedSheets.PrintPreview
End Sub