Für Leila19
16.01.2019 18:15:49
Herbert
wenn du den Zoom mittels eines Makros an die jeweilige Bildschirmgröße anpasst, kannst du damit gleichzeitig die Spaltenbreite autom. anpassen. Probiers mal damit:
Sub SetZoom()
Dim sDruckbereich As String
sDruckbereich = ActiveSheet.PageSetup.PrintArea
Range(sDruckbereich).Select
ActiveWindow.Zoom = True
Range("A1").Select
ActiveSheet.Columns.AutoFit
End Sub
Anzeige