Office: Abfrage ob Eingabe in Combobx bereits in Liste vorhanden ist

Guten Morgen,

in einer UserForm habe ich mehrere Comboboxen, deren Auflistungen auch schon aus definierten Ranges gefüllt sind.

Jetzt möchte ich erreichen das beim Verlassen der Box Abgefragt wird ob die Eingabe bereits in der Liste/Range vorkommt, um doppelte Eingaben zu vermeiden.

Habe mir das so in etwa gedacht:

Code:

Private Sub ComboBoxneueBemerkung_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim Rg As Range
  Set Rg = Sheets("Stammdaten").Range("Bemerkung"): Set Rg = Rg.Resize(Rg.End(xlDown).Row - 1, 1)
    For Each Cells In Rg
      If Me.ComboBoxneueBemerkung.Value = Cells.Value Then
        MsgBox "Ungültige Eingabe! Wert bereits vergeben! Bitte Eingabe ändern."
        ComboBoxneueBemerkung.SetFocus
      End If
    Next Cells
End Sub

Für die Zeile

Code:

For Each Cells In Rg

kommt jetzt aber der Fehler:
Fehler beim Kompilieren:
Variable erforderlich - Zuweisung an diesen Ausdruck nicht möglich

Bin ratlos wie ich das umsetzen kann.

Lieben Gruß Achim

 

Hi Achim,

hier eine ganz andere Möglichkeit ohne Schleife:

Code:

Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Dim loVorhanden As Long
    On Error Resume Next
    loVorhanden = Application.Match(ComboBox1, ComboBox1.List, 0)
    On Error GoTo 0
    If loVorhanden <> 0 Then MsgBox "Schon vorhanden"
End Sub

Bis später,
Karin

 

Hi Achim,

noch als Ergänzung und Erläuterung des bei dir auftretenden Fehlers: du hast die Variable Cells nicht deklariert.

Man sollte aber keinen VBA-internen Ausdruck als Variablenbezeichnung verwenden. Wenn du z.B. Dim raCells As Range ergänzt, dann sollte For Each raCells In Rg auch fehlerlos durchlaufen. Der Code läuft zwar auch, wenn du ergänzt Dim Cells as Range, aber es könnte möglicherweise zu (nicht vorhersehbaren) Problem führen. Am günstigsten ist es, wenn man dem Variablennamen noch einen kleingeschriebenen Präfix voransetzt, der auf den Variablentyp hinweist - so hat man selbst weniger Probleme beim Programmieren und die Verwendung verschiedener Variablen für die richtigen Inhalte ist wesentlich einfacher.

Bis später,
Karin

 

lieben Dank Beverly für die Lösung/die Lösungen und auch die Erklärung.

Ich bin Anfänger und hab noch ne Menge zu lernen, deshalb helfen solche Erklärungen ungemein.
Ich war davon ausgegangen (hatte gehofft), da der Ausdruck Cells ja bereits in Excel definiert ist, wird das Programm schon wissen was ich meine und es nicht als Variable sehen....

Die Lösung mit dem raCells klappt wunderbar, allerdings habe ich die Abfrage inzwischen aus Private Sub ComboBoxneueBemerkung_Exit entfernt und nach Private Sub CommandButtonneueStammdatenEingabe2_Click verlegt, weil es sonst Probleme gegeben hätte (aber das liegt am Aufbau meiner UF).

Deine andere Lösung werde ich mir mal in Ruhe anschauen.


Lieben Gruß Achim