11.07.2019, 09:22
Hallo zusammen,
ich habe ein Problem mit der Schriftgröße meiner drop down Felder.
Sie beinhalten recht viele Infos & sind deshalb extrem klein geschrieben.
Habe versucht das Problem mit folgendem Makro zu lösen, klappt aber leider nicht...
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
On Error Resume Next
If Target.Validation.InCellDropdown Then ActiveWindow.Zoom = 100
On Error GoTo errorhandler
If Target.Validation.InCellDropdown Then ActiveWindow.Zoom = 200
Exit Sub
errorhandler:
ActiveWindow.Zoom = 100
End Sub
jemand andere Ideen?
Danke Euch
ich habe ein Problem mit der Schriftgröße meiner drop down Felder.
Sie beinhalten recht viele Infos & sind deshalb extrem klein geschrieben.
Habe versucht das Problem mit folgendem Makro zu lösen, klappt aber leider nicht...
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
On Error Resume Next
If Target.Validation.InCellDropdown Then ActiveWindow.Zoom = 100
On Error GoTo errorhandler
If Target.Validation.InCellDropdown Then ActiveWindow.Zoom = 200
Exit Sub
errorhandler:
ActiveWindow.Zoom = 100
End Sub
jemand andere Ideen?
Danke Euch