Private Sub ComboBox4_Mousedown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As _
Single, ByVal Y As Single)
ComboBox4.ForeColor = &H80000008
End Sub
Um die Schriftfarbe in einer ComboBox beim Anklicken zu ändern, folge diesen Schritten:
Öffne deine Excel-Datei und gehe in den Visual Basic for Applications (VBA)-Editor, indem du ALT + F11 drückst.
Finde die UserForm, in der sich die ComboBox befindet, oder füge eine neue UserForm hinzu.
Klicke auf die ComboBox, die du anpassen möchtest. In diesem Beispiel nennen wir sie ComboBox4.
Füge den folgenden VBA-Code in das Code-Fenster der UserForm ein:
Private Sub ComboBox4_Mousedown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
ComboBox4.ForeColor = &H80000008 ' Ändert die Schriftfarbe auf Schwarz
End SubSchließe den VBA-Editor und kehre zu Excel zurück.
Teste die UserForm, indem du auf die ComboBox klickst. Die Schriftfarbe sollte nun schwarz werden.
Fehler: Die Schriftfarbe ändert sich nicht.
Fehler: Der VBA-Code läuft nicht.
Datei > Optionen > Sicherheitscenter > Einstellungen für das Sicherheitscenter und aktiviere die Makros.Falls die oben beschriebene Methode nicht deinen Anforderungen entspricht, kannst du auch ein Ereignis verwenden, das beim Ändern der Auswahl in der ComboBox ausgelöst wird. Hier ein Beispiel:
Private Sub ComboBox4_Change()
ComboBox4.ForeColor = &H80000008 ' Ändert die Schriftfarbe auf Schwarz
End SubDiese Methode sorgt dafür, dass die Schriftfarbe auch beim Ändern der Auswahl aktualisiert wird.
Nehmen wir an, du hast mehrere ComboBoxes in deiner UserForm. Du kannst die Schriftfarbe für jede ComboBox individuell anpassen. Hier ist ein Beispiel für zwei ComboBoxes:
Private Sub ComboBox1_Mousedown()
ComboBox1.ForeColor = &H80000008
End Sub
Private Sub ComboBox2_Mousedown()
ComboBox2.ForeColor = &H80000008
End SubSo kannst du die Schriftfarbe jeder ComboBox beim Anklicken ändern.
1. Frage
Kann ich die Schriftfarbe auch in einer Dropdown-Liste ändern?
Antwort: Ja, die Vorgehensweise ist ähnlich. Du kannst den gleichen Code für Dropdown-Listen verwenden, die in UserForms erstellt wurden.
2. Frage
Wie kann ich die Schriftfarbe zurücksetzen?
Antwort: Du kannst ein weiteres Ereignis wie ComboBox4_LostFocus() verwenden, um die Schriftfarbe zurückzusetzen, wenn die ComboBox nicht mehr fokussiert ist.
3. Frage
Funktioniert das auch in Excel 365?
Antwort: Ja, die beschriebenen Methoden funktionieren in Excel 365 sowie in anderen Versionen, die VBA unterstützen.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen