Guten Tag.

Ich möchte eine Inputboxeingabe prüfen, ob diese Eingabe in dem Array enthalten ist.

Ich möchte ca.150 PLZs in das Array packen.

Ich möchte die Prüfung komplett in einem VBA (Modul) laufen lassen und nicht die einzelnen Zellen in der Arbeitsmappe durchsuchen.

Wenn PLZ gefunden. Dann MSGbox("Gefunden") sonst Exit Sub.

(Habe schon versucht einen einfachen Variablen vergleich anzustellen, als String oder Integer zu drklarieren aber immer war ein Fehler enthalten.)

Leider habe ich, auch nach mehereren Stunden der Suchen, in den Foren nicht das Passende gefunden.

Hoffe jemand hat Lust mir zu helfen.

'####################################

PLZ_Zuständigkeit=Inputbox ("Für welche PLZ sind Sie zuständig","Zuständigkeiten")

arr = Array("40597", "40599", "40597", "40593", "40595")

IF PLZ_Zuständigkeit = arr Then

MSGbox(" Gefunden , Sie sind zustädig")

Else

Exit Sub

End if

'###################################

Besten Dank