Hallo,
Kann mir jemand sagen wie dieser Code funktioniert???
ActiveSheet.Range("FI1").ClearContents
ActiveSheet.PageSetup.PrintArea = ActiveSheet.UsedRange.Address
ActiveSheet.PrintPreview
ActiveSheet.PageSetup.PrintArea = False
In Zelle FI1 ist kein Wert eingetragen...
Kann mir jemand helfen??
Vielen Dank schon im Voraus!!! |