Combobox ändert Schriftgrösse
01.04.2020 18:09:52
Felix
Ich habe bereits diverse Foren durchsucht aber bis jetzt nirgends einen Hinweis auf mein Problem gefunden.
In meinem XL habe ich zwei ComboBoxen, welche statisch mit Daten aus einem anderen Blatt gefüttert wird (ListFillRange). Von der Funktion her klappt alles einwandfrei.
Aber bei der Darstellung happert es: Da verschiedene Leute mit dieser Datei arbeiten, wird der Zoom Level ab und zu verändert. Das hat dann zur Folge, dass sich die Schriftgrösse in der ComboBox ab und zu auch ändert. Ich habe keine Ahnung, welche Aktion genau das auslöst. Das mit dem Zoom Level ist nur eine Vermutung. Aktuell habe ich Arial Fett bei einer Box mit 11 und bei der anderen mit Schriftgrösse 20 eingestellt, damit bei beiden die Schrift gleich gross dargestellt wird. Auch der Button, um die ComboBox aufzuklappen und sogar die Box selber verändern sich in der Grösse.
Aber wie gesagt, ich weiss nicht genau warum.
Kennt jemand das Phenomen?
Ich lade die Datei auch hoch, wobei ich alle Personenbezogenen Daten entfernt habe. Normalerweise sind da ca. 20 Mitarbeiter aufgelistet.
https://www.herber.de/bbs/user/136327.xlsm
Die Box selber hat keinen speziellen code - es werden andere Funktionen aufgerufen, die nix mit der Box zu tun haben. Ausser am Ende wird die Box jeweils wieder auf "Select Job" gesetzt.
Jetzt schon herzlichen Dank!
Hier der Code:
Private Sub ComboBox1_Change()
Select Case ComboBox1.Value
Case "Absenzen (F/K/MZ/KU/A)"
Absenzen1
Case "Support CPS & FQE (Cx/Qx)"
CPSundFQE1
Case "Support MAN (Mx)"
Management1
Case "Feldeinsatz Schweiz (SE/AS)"
FeldSCH1
Case "Reviva (RV)"
Reviva1
Case "Feldeinsatz Ausland (FA)"
Feldeinsatz1
Case "Vor/Nachbearbeitung (VB)"
VorNach1
Case "Support R&D (RD)"
RundD1
Case "Aufträge für Dritte (AD)"
Dritte1
Case "Ausbildung/Kurs (AK)"
Ausbildung1
Case "Hotline (HT)"
Hotline1
Case "Privater Termin (P)"
Privater1
End Select
ComboBox1.Value = "Select Job"
End Sub