Hallo,
in einer Gruppenarbeit für die Hochschule müssen wir ein Programm in Excel schreiben, zur Bestimmung eines Bolzens.
Dafür wird ein Drehmoment und ein Werkstoff eingegeben um dementsprechende Werte auszugeben. Bis dahin kein Problem.
Da der Bolzen keine bestimmte Länge hat, sondern einen Bereich wollte ich für jeden bestimmten Durchmesser die combobox verändern lassen.
Durch eine If Anweisung wollte ich dies ermöglichen jedoch funktioniert es nicht.
Wie verknüpfe ich eine if Anweisung mit einer combobox so, dass für den if wert die combobox seinen Inhalt ändert.
Der Code zeigt so keine Fehler. Das Problem ist nur, das die combobox leer bleibt, obwohl d passend ist.
Danke für eure Hilfe.
Mein Skript sieht wie folgt aus.
Private Sub userform_initialize()
DIm d as Double
If d=8 then
With combobox1
.additem „100“
.additem „120“
End with
Elseif d = 10 then
With combobox1
.additem“130“
.additem“140“
End with
End if
End sub
|