Zvoni
Erfahrenes Mitglied
ok, was ist dein Tip nun fuer mich?
Einfach mal Testweise feste Zahlenwerte den Labels zuweisen, den ganzen Code
Text1.Text=Irgendwas
usw.
Label62.Caption = CStr(Label62) 'Gearbox
Label2.Caption = CStr(Label2) 'Basic Design
Label3.Caption = CStr(Label3) 'Basic Fabrication
Label4.Caption = CStr(Label4) 'Basic Torquw Arm
blablablab
auskommentieren (und jeden weiteren Code, der die Werte der Labels verändert), sodass du nur den Code hast
If Label.Visible then summe=summe+Val(Label)
Damit einfach mal testen, ob überhaupt der Additions-Code funktioniert
Beispiel:
Sub Form_Load
Label1.Caption="1"
Label2.Caption="2"
usw.
End Sub
Sub Label52_Click
If Label1.Visible then summe=summe+Val(Label1)
usw.
End Sub