Doppelte Einträge über zwei Spalten verhindern
21.06.2019 09:37:57
_future
nachdem mir in den vergangenen Tagen schon so gut weitergeholfen wurde, habe ich die Hoffnung, dass ihr mich auch bei diesem Problem unterstützen könnt. Ich eigne mir VBA gerade mit 'learning by doing' an und bitte deshalb um eure Nachsicht bei gröberen Schnitzern.
Ich habe zwei Spalten A und B. Über ein Eingabeformular mit zwei Comboboxen werden Datenpaare angelegt. Jedes Paar besteht also aus einer Kombination aus A und B. Ich möchte nun vermeiden, dass doppelte Paare angelegt werden. Problem ist, dass mein aktueller Code nicht mit allen Formaten funktioniert. Er muss auch funktionieren wenn statt Zahlen Kombinationen aus Buchstaben oder Zeichen vorliegen:
A..........B
*?1..........BAC
21..........CCC
&&&..........324
BAC..........325
Es darf dem User nicht möglich sein, per Kombination aus beiden Comboboxen einen Datensatz anzulegen, der bereits in der Tabelle steht. Folgender Ansatz funktioniert noch nicht mit allen Formaten:
Dim Ende As Integer
Dim i As Integer
Ende = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
For i = 1 To Ende
If ComboBox1.Value = ActiveSheet.Cells(i, 1).Value And ComboBox2.Value = ActiveSheet.Cells(i, 2).Value Then
MsgBox "Kombination bereits vorhanden!", 48
Exit Sub
End If
Next i
Ich freue mich über jeden Tipp!
Beste Grüße
_future