Excel VBA - Zoom bei Zellklick

Ich möchte euch hier einmal zeigen, wie man bewerkstelligen kann, dass bei einem Klick in eine Zelle, die Ansicht gezoomt werden kann. In unseren Beispielen wird der Zoom auf 170 gesetzt, wenn wir in eine Zelle, in einen Bereich, oder in verschiedenen Zellen klicken. Klicken wir ein eine Zelle, welche nicht genannt wird, wird der Zoom wieder auf 100 gesetzt.

 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  'für eine Zelle
  If Target.Address = "$A$2" Then
    ActiveWindow.Zoom = 170
  Else
    ActiveWindow.Zoom = 100
  End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  'für Bereiche
  If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
    ActiveWindow.Zoom = 170
  Else
    ActiveWindow.Zoom = 100
  End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  ' für verschiedene Zellen
  If Not Intersect(Target, Range("A1,B3,D9")) Is Nothing Then
    ActiveWindow.Zoom = 170
  Else
    ActiveWindow.Zoom = 100
  End If
End Sub
Cookies erleichtern die Bereitstellung unserer Dienste. Mit der Nutzung unserer Dienste erklären Sie sich damit einverstanden, dass wir Cookies verwenden.
Weitere Informationen Ok