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
Dim s As Double
Dim r As Double
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