|
Guten Tag,
folgendes Anliegen:
Ich habe mit VBA ein Sheet geschrieben mit dem ich, aufgrundlage einer Datentabelle, Materialpreise sowie das Gewicht berechnen kann. Keine wilde Sache.
Die zugrundelegende Userform sieht so aus, dass ich zunächst eine Werkstoffnummer, und dann eine Geometrieform (rund, flach) auswähle. Nach klick auf den Button "Kilopreis ermitteln" wird mir der hinterlegte Kilopreis angezeigt. Weitergehend wird anschließend über Geometrieeingaben das Gewicht, sowie der Endpreis ermittelt.
Nun möchte ich das ganze erweitern mit der Möglichkeit einer Werkstoffauswahl über die Chemische Bezeichnung. Also: Entweder wähle ich die Werkstoffnumer, oder die Chemische Bezeichnung. Folgender Codeschnipsel bringt mich jedoch zu keinem Ergebniss:
'Kilopreis Stahl X5CrNi18-10
If ComboBox_Stahl = Cells(5, 2) And ComboBox_Geometrie_Stahl = Cells(3, 3) Then
txt_Kilopreis_Stahl = Cells(5, 3)
Else: txt_Kilopreis_Stahl = Cells(4, 4)
End If
If ComboBox_Benennung_Stahl = Cells(4, 1) And ComboBox_Geometrie_Stahl = Cells(3, 3) Then
txt_Kilopreis_Stahl = Cells(5, 3)
Else: txt_Kilopreis_Stahl = Cells(4, 4)
End If
Die zweite If-Anweisung sollte quasi die Erweiterung der Möglichkeit zur Auswahl über die Chemische Bezeichnung sein. Leider funktioniert dies nicht.
Jemand erfahrener der ne Idee hat warum?
|