ComboBox neuer eintrag

[Chris Qu]

Hallo zusammen,

wieder mal ne Frage:

Ich habe eine Combobox in der ein Lieferant ausgewählt wird. In einer Tabelle sind die Lieferanten gelistet.
Nun habe ich einen Lieferanten Namens "Neu" über den kann man einen neuen Lieferanten hinzufügen, der dann
in die Liste eingetragen wird.

Meine Idee wäre nun: Wenn ich einen Lieferanten eingebe, der in der Liste noch nicht vorhanden ist, diesen dann sozusagen als neu zu deklarieren und
die Routine für den Neueintrag zu starten.

Hier mal meine Momentane Routine:

'Neuer Eintrag für ComboBox Lieferant
Sub NeuerEintrag(sPosition As String)
    Dim sAusdruck As String
    Dim tAusdruck As String  'dachte ich für 2. Abfrage
    Dim lEnde As Long
    'Dim lEnde2 As Long  'dachte ich für 2. Abfrage
   
    sAusdruck = InputBox("Geben Sie den neuen Lieferanten ein")
    tAusdruck = InputBox("Geben Sie die Artikel ein")
   
    Worksheets("Lieferant").Select
    lEnde = Cells(Rows.Count, sPosition).End(xlUp).Row + 1
    Range(sPosition & lEnde).Value = sAusdruck
    Range(sPosition & lEnde).Offset(0, 2).Value = tAusdruck
                     
    'hier noch für die Sortierung
    Range("A1") = "Index"
    Range("A3:C" & lEnde).Sort Key1:=Range("A3"), _
                            Order1:=xlAscending, _
                            Header:=xlYes

    ComboBoxLieferant.Value = sAusdruck
End Sub


Wie könnte ich das jetzt mit den vorhandenen Einträgen und dem Abgleich machen?


Gruß Chris

[schauan]

Hallöchen,

Du könntest mit Find oder WorkSheetFunction.CountIf schauen, ob der Eintrag schon da ist