Abfrage, ob ein variabler Wert in der CB.List ist
17.01.2019 08:44:27
Ivii
ich habe eine kurze Frage. Ich möchte über einen Code abfragen, ob ein variabler Wert aus dem Tabellenblatt bereits in der Combobox vorhanden ist. Dies habe ich über eine For-Schleife realisiert. Das Problem bei der For-Schleife ist jetzt, dass er jeden Eintrag der Combobox einzeln mit dem variablen Wert aus dem Tabellenblatt vergleicht. Ich benötige aber lediglich die Auskunft darüber, dass der Wert in der Liste ist und nicht explizit mit einem Item übereinstimmt, da ich auf Grundlage dieser Information weitere Daten in die CB einfügen möchte. Wenn er jedes einzelne Item vergleicht, dann fügt er auch bei jeder Nichtübereinstimmung die Werte ein und ich habe diese dann doppelt.
Ich habe im Internet folgenden Code gefunden, bei dem ich jedoch immer die Fehlermeldung "Methode oder Datenobjekt nicht gefunden" erhalte.
If Informationssondierung_1.Organisationsinformationen_Name.Items.Contains(KundenName) Then
MsgBox "Enthalten?"
Else
MsgBox "Nicht enthalten"
End If
Meine derzeitge Lösung sieht wie folgt aus.
Dim n As Integer
LetzteZelleinSpalteE = Sheets("DB_Kundenübersicht").Cells(Rows.Count, 5).End(xlUp).Row
For Variable_KundenName = 3 To LetzteZelleinSpalteE
KundenName = Sheets("DB_Kundenübersicht").Cells(Variable_KundenName, 5).Value 'KundenNamen der DB_Kundenübersicht
KundenName_Ohne_Leerzeichen = Replace(KundenName, " ", "")
For n = 1 To Informationssondierung_1.Organisationsinformationen_Name.ListCount - 1
If Informationssondierung_1.Organisationsinformationen_Name.List(n) = KundenName Then
Exit For
Else
If Informationssondierung_1.Organisationsinformationen_Name.List(n) = KundenName_Ohne_Leerzeichen Then
Exit For
Else
MsgBox "Der Name könnte hinzugefügt werden"
End If
End If
Next
Könnte ihr mir dabei bitte weiterhelfen?