Schriftgrösse in der Gültigkeits-/Dropdown-Liste
14.11.2007 16:53:00
Mike
Da sich die Schriftgroesse in der Gueltigkeitsliste (Dropdown-Liste) offenbar nur über eine Combobox aendern laesst, habe ich den alternativen Weg ueber einen variablen Zoom versucht.
In einem alten Forums-Eintrag (https://www.herber.de/forum/archiv/360to364/t363942.htm) habe ich einen VBA-Code gefunden, der annaehernd mein Problem loest.
Die Krux ist jedoch, dass ich den Zoom erst ausloesen moechte, wenn das Dropdown-Feld aktiviert, d.h. die Auswahl ersichtlich ist.
Gibt es einen Zusatz für untestehenden Code, welcher
1. beim Klicken auf den Abwaertspfeil (wodurch die Auswahlliste ueberhaupt erst geoeffnet wird und nicht bereits mit der Auswahl der Zelle!) den Zoom auf 150% stellt und
2. beim Verlassen der Zelle (auf einen beliebigen anderen Bereich, d.h. auch auf ein anderes Dropdown-Feld) die Ansicht auf 69% zurückstellt?
Vielen Dank für jegliche Hilfe!
____________________
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
On Error Resume Next
If Target.Validation.InCellDropdown Then ActiveWindow.Zoom = 100
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
On Error GoTo errorhandler
If Target.Validation.InCellDropdown Then ActiveWindow.Zoom = 200
Exit Sub
errorhandler:
ActiveWindow.Zoom = 100
End Sub
Anzeige