30.10.2016, 18:06
Hallo, ich versuche gerade eine combobox übr listfillrange in einer Schleife zu füllen.
Mit ganzen Zahlen funktioniert es prima, nun benötige ich aber kommazahlen.
Der Zähler "i" zählt nur mit Currency richtig hoch aber die Combobox wird nicht gefüllt.
Die Zellen in denen die Werte stehen heißen zb: Kurz0.5 ; Kurz0.7 ; Kurz1.25 usw...
Vielen Dank für eure Hilfe
Mit ganzen Zahlen funktioniert es prima, nun benötige ich aber kommazahlen.
Der Zähler "i" zählt nur mit Currency richtig hoch aber die Combobox wird nicht gefüllt.
Code:
Private Sub ComboBox2_Change()
Dim i As Integer
Dim j As Integer
ComboBox3.ListFillRange = ""
If ComboBox1.Text = "Regelgewinde" Then
For i = 1 To 100
If i = ComboBox2.Text Then ComboBox3.ListFillRange = "SteigungM" & i
Next i
End If
If ComboBox1.Text = "Feingewinde" Then
For j = 1 To 100
If j = ComboBox2.Text Then ComboBox3.ListFillRange = "Steigung_feinM" & j
Next j
End If
End Sub
Private Sub ComboBox3_Change()
End Sub
Private Sub ComboBox4_Change()
Dim i As Currency
Dim j As Integer
If ComboBox1.Text = "Regelgewinde" And ComboBox4.Text = "kurz" Then
For i = 0.5 To 100 Step 0.05
If i = ComboBox3.Text Then ComboBox5.ListFillRange = "Kurz" & i 'DIE COMBOBOX5 FÜLLT ES NICHT
If i = ComboBox3.Text Then Exit For
Next i
End If
End Sub
Die Zellen in denen die Werte stehen heißen zb: Kurz0.5 ; Kurz0.7 ; Kurz1.25 usw...
Vielen Dank für eure Hilfe