Select Case
10.12.2008 18:28:22
gp
ich habe auf einer UF zwei ComboBoxen die entsprechend ihrem Inhalt für "Bewegung" sorgen sollen.
Bisher schaut mein Code so aus:
Select Case Metereingabe.ComboBox1
Case "S-16mm", "N-16mm"
For i = 1 To 9
If Me.Controls("Textbox" & i).Value grösser als "" Then
betr1 = Me.Controls("Textbox" & i).Value * 2.5
Tabelle1.Cells(lngZeile, 76 + i) = betr1
Tabelle1.Cells(76, i + 1) = (betr1 / ((Tabelle1.Cells(2, 8) * 1.14)) / 1440)
End If
Next i
betr1 = 0
End Select
Select Case Metereingabe.ComboBox3
Case "0-Blow-up", "K-Blow-up", "S-Blow-up"
For i = 1 To 9
If Me.Controls("Textbox" & i).Value grösser als "" Then
betr1 = Me.Controls("Textbox" & i).Value * 2.5
Tabelle1.Cells(lngZeile, 21 + i) = betr1
Tabelle1.Cells(74, 1 + i) = betr1
End If
Next i
betr1 = 0
End Select
und das funktioniert auch. Nun möchte ich aber, dass die beiden in Abhängigkeit zueinander arbeiten.
Also wenn in ComboBox3 einer dieser Fälle "0-Blow-up", "K-Blow-up", "S-Blow-up" auftritt und in ComboBox1 einer dieser Einträge "S-16mm", "N-16mm" steht dann soll... Beide ComboBoxen können unabhängig voneinander betätigt werden. Nun habe ich absolut keine Ahnung ob und wenn ja wie das geht?
Daher bin ich für zweckdienliche Hinweise sehr dankbar.
Gruss
Gunter