Hallo zusammen,
bei mir soll sich beim Öffnen einer Datei eine Infobox öffnen, in der ein Drop-Down enthalten ist. Je nach Auswahl nach deutsch oder englisch, soll sich der Text anpassen.
Zum Problem:
Alles auf der UserForm passt sich auf englisch an, nur der DropDown bleibt auf deutsch.
In der Zelle B1 wird der Text auf deutsch geholt, und in E1 auf englisch.
DieseArbeitsmappe:
If Worksheets(„z“).Range(„D4“).Value = „Deutsch“ Then
UserForm1.ComboBox1.Value = Worksheets(„x“).Range(„B1“).Value
Else
UserForm1.ComboBox1.Value = Worksheets(„x“).Range(„E1“).Value
End If
Laufzeitfehler 380: Eigenschaft Value konnte nicht gesetzt werden. Ungültiger Eigenschaftswert.
Das stand ursprünglich in Dieser Arbeitsmappe drin und hat auf deutsch problemlos funktioniert:
UserForm1.ComboBox1.Value = Worksheets(„x“).Range(„B1“).Value
Dann habe ich ausprobiert, einfach nur B1 mit E1 zu ersetzen:
UserForm1.ComboBox1.Value = Worksheets(„x“).Range(„E1“).Value
ABER, dann kommt das gleiche Problem wie mit der Wenn-Formel auf.
Laufzeitfehler 380: Eigenschaft Value konnte nicht gesetzt werden. Ungültiger Eigenschaftswert.
Praktisch muss mir mit der Wenn-Formel geholfen werden, denn das Ersetzen von B1 zu E1 sollte nur zum Ausprobieren sein. Ich dachte allerdings nicht, dass es dort ein Problem geben könnte ?!?!
Hat jemand eine Idee hierzu??