Hallo!
Ich habe das Problem, dass mein Code nicht automatisch ausgeführt wird. Ich muss mir immer erst meinen Code anzeigen lassen (er ist in Tabelle1) und dann auf "Sub/UserForm ausführen" klicken. Danach funktioniert alles perfekt.
Mir ist die Call-Funktion bekannt, um ein Makro direkt beim Öffnen der .xlsm zu starten. Allerdings habe ich in meinem Fall gar kein richtiges Makro, sondern nur folgenden Code:
Private Sub UserForm_Initialize()
With Me.ComboBox1
.AddItem "Grün"
.AddItem "Gelb"
.AddItem "Rot"
End With
With Me.ComboBox2
.AddItem "Grün"
.AddItem "Gelb"
.AddItem "Rot"
End With
End Sub
Private Sub ComboBox1_Change()
If Me.ComboBox1 = "Rot" Then Range("A1").Interior.Color = vbRed
If Me.ComboBox1 = "Gelb" Then Range("A1").Interior.Color = vbYellow
If Me.ComboBox1 = "Grün" Then Range("A1").Interior.Color = vbGreen
End Sub
Private Sub ComboBox2_Change()
If Me.ComboBox2 = "Rot" Then Range("A8").Interior.Color = vbRed
If Me.ComboBox2 = "Gelb" Then Range("A8").Interior.Color = vbYellow
If Me.ComboBox2 = "Grün" Then Range("A8").Interior.Color = vbGreen
End Sub
Wie kann ich diesen Code automatisch ablaufen lassen?
Danke und liebe Grüße!
|