Drop Down vergrößern
29.10.2019 18:16:28
Matze
in meinem Arbeitsblatt sind einige Zeilen, sodass der Zoom bei circa. 50% liegt.
Jetzt habe ich in einigen Zellen Dropdown-Listen. Die kann ich kaum erkennen.
Ich habe folgenden Code ausprobiert:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo LZoom
Dim xZoom As Long
xZoom = 100
If Target.Validation.Type = xlValidateList Then xZoom = 130
LZoom:
ActiveWindow.Zoom = xZoom
End Sub
Danke und liebe Grüße
Matze