ich möchte gern mit Strg+Shift+Ende den Druckbereich im Makro definieren, da die Tabelle immer unterschiedlich gefüllt sein wird. Leider bekomme ich dies so nicht hin. Kann mir Jemand helfen?
MfG
Nette
Sub Makro1()
ActiveSheet.PageSetup.PrintArea = ActiveSheet.UsedRange.Address
End Sub
cu