|
Guten Abend, sitze gerade an einem Projekt und habe jetzt folgendes Problem.
Beim Ausführen folgender Sub - Routine:
Private Sub combo_material2_Change()
counterSchichten = counterSchichten + 1
Schichten(1) = Auswahl(Me.combo_material2.value)
End Sub
wird plötzlich ein anderer Teil des Formulares ausgeführt und zwar folgender:
Private Sub btn_next_Click()
'Berechnung des U - Wertes:
Rt = Rse + Rsi
For n = 0 To counterSchichten
Rt = (Dicken(n) / Schichten(n)) + R
Next
UWert = 1 / Rt
If UWert < WaermeschmindWert Then
Uwert_richtig.Show
Else
Uwert_falsch.Show
End If
End Sub
Das macht für mich keinen Sinn, da die Sub btn_next_Click() ja nur aufgerufen wird, wenn der butte "Next" gedrückt wird.
Ich habe das Problem schon eingrenzen können. Sobald der Code: Me.combo_material2.value erreicht wird, wird plötzlich die Button Next Routine ausgeführt.
Kann mir jemand sagen woran das liegen kann? Hab schon sehr viel herumprobiert.
|