ich versuche gerade meine ActiveX ComboBox in Abhängigkeit zu füllen, nun habe ich ein zwei kleine Probleme bei denen ich hoffe ihr könnt mir helfen:
Public Sub ComboBox1_Füllen()
Dim lastRow As Integer, iRow As Integer
Sheets("Graphic_Inventory").ComboBox1.Clear
With Sheets("Daten_Informationen")
lastRow = .Cells(Rows.Count, 1).End(xlUp).Row
For iRow = 4 To lastRow
If .Cells(iRow, 1) "" Then
Sheets("Graphic_Inventory").ComboBox1.AddItem .Cells(iRow, 1)
End If
Next
End With
End Sub
Public Sub ComboBox1_Change()
Dim lastRow As Integer, iRow As Integer
Sheets("Graphic_Inventory").ComboBox2.Clear
With Sheets("Daten_Informationen")
lastRow = .Cells(Rows.Count, 1).End(xlUp).Row
For iRow = 4 To lastRow
If .Cells(iRow, 1) = Sheets("Graphic_Inventory").ComboBox1.Value Then
Sheets("Graphic_Inventory").ComboBox2.AddItem .Cells(iRow, 2) & " | Cost per piece:" & .Cells( _
_
iRow, 7)
End If
Next
End With
End Sub
In der ersten Combobox werden leider alle doppelten Werte angezeigt, wie kann ich doppelte Werte nur einfach anzeigen? In meiner zweiten ComboBox funktioniert es soweit, mit dem Problem das die Zahl die in iRow, 7 steht bis zu 10 Nachkommerstellen hat. Wir kann ich die Zahl in der Combobox auf zwei Stellen nach dem Komma begrenzen ohne was an der Ursprungstabelle zu ändern?