Hallo Profis,

wenn man in den Bereich A14 bis A38 meines Tabellenblatts klickt, soll "Freeze Panes" aufgehoben werden. Gleichzeitig soll sich die Ansicht auf 100% vergrößern. Nach verlassen einer dieser Zellen sollte dann wieder die Ansicht 60% und möglichst auch das "Freeze Panes" wieder in Zelle G13 erfolgen.

Folgende Bausteinchen habe ich dazu bereits - leider kann ich sie als Anfänger noch nicht kombinieren!


Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Address = "$A$13" Then
ActiveWindow.FreezePanes = False
Else
End If
If Target.Address = "$A$14" Then
ActiveWindow.FreezePanes = False
Else
End If

etc.

und


If Target.Row = 15 And Target.Column = 1 Then
ActiveWindow.Zoom = 100
Else
ActiveWindow.Zoom = 60
End If

etc.

Vielen Dank für die Hilfe schon im Voraus!

Tanja