Fenster fixieren
Philipp
Ich möchte ein meine Fester fixieren. Jedoch habe ich keine schöne Lösung gefunden.
Ich möchte nicht immer jedes Fenster zuerst aktivieren und die Zelle auswáhlen.
Habt ihr eine bessere bzw. elegantere Möglichkeit als diese hier?
Function fixieren(ByVal nr_sheet)
Dim aWin As Object
ActiveWorkbook.Worksheets(nr_sheet).Activate
Range("B4:B5").Select
Set aWin = ActiveWindow
With aWin
.FreezePanes = True
.Zoom = 85
End With
End Function
Anzeige