Außerdem zieht sich die Combobox ihre Daten auch aus der gleich Spalte. Also ist eigentlich sicher, dass der identische Wert mindestens einmal in der betreffenden Spalte zu finden ist. Oder sehe ich das falsch?
Nö. Und da bist du nicht der Erste, der in diese Falle tappt, da er das Dictionary-Objekt falsch/unachtsam verwendet.
=> Du hast ein Typen-Problem.
Gibt verschiedene Ansätze das zu beheben, ...
hier eine:
Worksheets("Rohdaten").Cells(Zeile, 1).Value = ComboBox1.List(ComboBox1.ListIndex)
anstatt
Worksheets("Rohdaten").Cells(Zeile, 1).Value = ComboBox1.Value
verwenden.
... analog dazu ComboBox4.
Am Ende also etwa so:
With Worksheets("Rohdaten")
If .Cells(Zeile, 1).Value = ComboBox1.List(ComboBox1.ListIndex) _
And .Cells(Zeile, 13).Value = ComboBox4.List(ComboBox4.ListIndex) _
Then
Anzahl = Anzahl + 1
.Rows(Zeile).Delete
End If
End With
Das sollte dann funktionieren.
Grüße
|