Hallo zusammen,
ich bin ein wenig am verzweifeln und hoffe ihr könnt mir weiterhelfen.
Ich habe insgesamt 6 ComboBoxen auf einer UserForm. Jeder Eigenschaft in den ComboXoxen ist ein gewisser Faktor zugeordnet. Nach Auswahl aller sechs ComboBoxen werden die Einzelnen Faktoren miteinander multipliziert und in einem Label dargestellt.
Dann gibt es noch 2 zusätzliche ComboBoxen,ComboBox7 und 8, die erst durch klicken eines Optionsbutton, auftauchen.
Zur Auswahl in diesen ComboBoxen gibt es nur die Auswahl "ja" oder "nein". Der Faktor dieser ComboBoxen ist abhangig von den den ausgewählten Eigenschaften in ComboBox1 und ComboBox4.
Nun weiß ich nicht, welcher Code mir da helfen könnte.
Der bisherige Code dazu, sieht folgendermaßen aus:
Private Function getTotal() As Currency
Dim ctl As MSForms.Control
Dim curWert As Currency
Dim curErgebnis As Currency
Dim blnCalc As Boolean
curErgebnis = 1
For Each ctl In Controls
If TypeOf ctl Is MSForms.ComboBox Then
Select Case ctl.Name
Case "ComboBox1"
'Comboboxen mit einer Werte-Spalte
If ctl.Value <> "" Then
blnCalc = True
curWert = Range(ctl.RowSource).Cells(ctl.ListIndex + 1, 2).Value
'MsgBox ctl.Name & ": " & curWert
curErgebnis = curErgebnis * curWert
End If
Case "ComboBox2", "ComboBox3", "ComboBox4", "ComboBox5", "ComboBox6"
'Comboboxen mit Werte-Spalte für verschiedene Anzahl Lagen
If ctl.Value <> "" Then
blnCalc = True
curWert = Range(ctl.RowSource).Cells(ctl.ListIndex + 1, Me.ComboBox1.ListIndex + 1).Value
'MsgBox ctl.Name & ": " & curWert
curErgebnis = curErgebnis * curWert
End If
End Select
End If
Next
Set ctl = Nothing
If Not blnCalc Then curErgebnis = 0
getTotal = curErgebnis
End Function
Ich hoffe, dass mir jemand weiterhelfen kann.
Danke.
ich bin ein wenig am verzweifeln und hoffe ihr könnt mir weiterhelfen.
Ich habe insgesamt 6 ComboBoxen auf einer UserForm. Jeder Eigenschaft in den ComboXoxen ist ein gewisser Faktor zugeordnet. Nach Auswahl aller sechs ComboBoxen werden die Einzelnen Faktoren miteinander multipliziert und in einem Label dargestellt.
Dann gibt es noch 2 zusätzliche ComboBoxen,ComboBox7 und 8, die erst durch klicken eines Optionsbutton, auftauchen.
Zur Auswahl in diesen ComboBoxen gibt es nur die Auswahl "ja" oder "nein". Der Faktor dieser ComboBoxen ist abhangig von den den ausgewählten Eigenschaften in ComboBox1 und ComboBox4.
Nun weiß ich nicht, welcher Code mir da helfen könnte.
Der bisherige Code dazu, sieht folgendermaßen aus:
Private Function getTotal() As Currency
Dim ctl As MSForms.Control
Dim curWert As Currency
Dim curErgebnis As Currency
Dim blnCalc As Boolean
curErgebnis = 1
For Each ctl In Controls
If TypeOf ctl Is MSForms.ComboBox Then
Select Case ctl.Name
Case "ComboBox1"
'Comboboxen mit einer Werte-Spalte
If ctl.Value <> "" Then
blnCalc = True
curWert = Range(ctl.RowSource).Cells(ctl.ListIndex + 1, 2).Value
'MsgBox ctl.Name & ": " & curWert
curErgebnis = curErgebnis * curWert
End If
Case "ComboBox2", "ComboBox3", "ComboBox4", "ComboBox5", "ComboBox6"
'Comboboxen mit Werte-Spalte für verschiedene Anzahl Lagen
If ctl.Value <> "" Then
blnCalc = True
curWert = Range(ctl.RowSource).Cells(ctl.ListIndex + 1, Me.ComboBox1.ListIndex + 1).Value
'MsgBox ctl.Name & ": " & curWert
curErgebnis = curErgebnis * curWert
End If
End Select
End If
Next
Set ctl = Nothing
If Not blnCalc Then curErgebnis = 0
getTotal = curErgebnis
End Function
Ich hoffe, dass mir jemand weiterhelfen kann.
Danke.
