Guten Tag die Herren, 

ich versuche mich seit kurzem mittels YouTube an VBA .Mein Projekt soll es sein ein Buch für den Maschinenbau Kapitelweise über 
Masken in denen man einfach nur Werte eintragen bzw. vorgegebene auswählen muss bestimmte Formeln errechnen zu lassen ohne andauernd 
das ganze Zeug per Hand schreiben zu müssen.
Ich hatte zwar ein Semester lang VBA an der TH aber leider nur wenig mitgenommen weil ich ein absoluter Versager 
bin was PC´s angeht.Ich bin jetzt beim ersten Kapitel und habe jetzt für die erste Rechenoperation unten den Code soweit fertig , die Eingabemaske 
im Sheet öffnet sich , soweit also alles gut!

Das Problem das sich jetzt jedoch aufgetan hat stellt sich wie folgt dar. Wenn ich die Rechenoperation ausfüren möchte öffnet sich manchmal 
das Auswahlfeld für die einzelnen Stoffwerte nicht und wenn ich eine Materialstärke einfüge und auf berechnen drücke führt das Programm keine 
Rechnung aus...

Ich hoffe Ihr könnt mir dabei Helfen. Ich habe noch einen langen langen Weg vor mir und werde hier bestimmt noch das ein oder andere mal mit 
meiner Unfähigkeit aufschlagen.





















Private Sub CommandButton12_Click()

Dim C As Double      'C-Faktor
Dim s As Double      'Blechdicke
Dim r As Double      'Mindestbiegeradius


With Me.ComboBox1

    
     .AddItem "Stahlblech"
     .AddItem "Tiefziehblech"
     .AddItem "Rostfreier Stahl (mart. ferrit.)"
     .AddItem "Rostfreier Stahl (austenitisch)"
     .AddItem "Kupfer"
     .AddItem "Zinnbronze"
     .AddItem "Aluminiumbronze"
     .AddItem "CuZn28"
     .AddItem "CuZn40"
     .AddItem "Zink"
     .AddItem "Alu (Weich)"
     .AddItem "Alu (Halbhart)"
     .AddItem "Alu (Hart)"
     .AddItem "AlMg3 (weich)"
     .AddItem "AlMg3 (Hart)"
     .AddItem "AlMg7 (weich)"
     .AddItem "AlMg7 (hart)"
     .AddItem "AlMg9 (weich)"
     .AddItem "AlMg9 (hart)"
     .AddItem "AlMgSi (weich)"
     .AddItem "AlMgSi (hart)"
     .AddItem "AlSi (weich)"
     .AddItem "AlSi (hart)"
     .AddItem "AlMn (weich)"
     .AddItem "AlMn (hart)"
     .AddItem "AlMn (preßhart)"
     .AddItem "AlCu (weich)"
     .AddItem "AlCu (hart)"
     .AddItem "AlCuMg (weich)"
     .AddItem "AlCuMg (preßhart)"
     .AddItem "AlCuMg (hart)"
     .AddItem "AlCuNi (geglüht)"
     .AddItem "AlCuNi (ungeglüht)"
     .AddItem "MgMn"
     .AddItem "MgAl6"
     .ListIndex = 0
End With

If ComboBox1 = "Stahlblech" Then
     C = 0.6
ElseIf ComboBox1 = "Tiefziehblech" Then
     C = 0.3
ElseIf ComboBox1 = "Rostfreier Stahl (mart. ferrit.)" Then
     C = 0.8
ElseIf ComboBox1 = "Rostfreier Stahl (austenitisch)" Then
     C = 0.5
ElseIf ComboBox1 = "Kupfer" Then
     C = 0.25
ElseIf ComboBox1 = "Zinnbronze" Then
     C = 0.6
ElseIf ComboBox1 = "Aluminiumbronze" Then
     C = 0.5
ElseIf ComboBox1 = "CuZn28" Then
     C = 0.3
ElseIf ComboBox1 = "CuZn40" Then
     C = 0.35
ElseIf ComboBox1 = "Zink" Then
     C = 0.4
ElseIf ComboBox1 = "Alu (Weich)" Then
     C = 0.6
ElseIf ComboBox1 = "Alu (Halbhart)" Then
     C = 0.9
ElseIf ComboBox1 = "Alu (Hart)" Then
     C = 2
ElseIf ComboBox1 = "AlMg3 (weich)" Then
     C = 1
ElseIf ComboBox1 = "AlMg3 (Hart)" Then
     C = 1.3
ElseIf ComboBox1 = "AlMg7 (weich)" Then
     C = 2
ElseIf ComboBox1 = "AlMg7 (hart)" Then
     C = 3
ElseIf ComboBox1 = "AlMg9 (weich)" Then
     C = 2.2
ElseIf ComboBox1 = "AlMg9 (hart)" Then
     C = 5
ElseIf ComboBox1 = "AlMgSi (weich)" Then
     C = 1.2
ElseIf ComboBox1 = "AlMgSi (hart)" Then
     C = 2.5
ElseIf ComboBox1 = "AlSi (weich)" Then
     C = 0.8
ElseIf ComboBox1 = "AlSi (hart)" Then
     C = 6
ElseIf ComboBox1 = "AlMn (weich)" Then
     C = 1
ElseIf ComboBox1 = "AlMn (hart)" Then
     C = 1.2
ElseIf ComboBox1 = "AlMn (preßhart)" Then
     C = 1.2
ElseIf ComboBox1 = "AlCu (weich)" Then
     C = 1
ElseIf ComboBox1 = "AlCu (hart)" Then
     C = 3
ElseIf ComboBox1 = "AlCuMg (weich)" Then
     C = 1.2
ElseIf ComboBox1 = "AlCuMg (preßhart)" Then
     C = 1.5
ElseIf ComboBox1 = "AlCuMg (hart)" Then
     C = 3
ElseIf ComboBox1 = "AlCuNi (geglüht)" Then
     C = 1.4
ElseIf ComboBox1 = "AlCuNi (ungeglüht)" Then
     C = 3.5
ElseIf ComboBox1 = "MgMn" Then
     C = 5
ElseIf ComboBox1 = "MgAl6" Then
     C = 3
End If


RefEdit3 = r
RefEdit2 = s

r = C * s

End Sub