Re: VBA: If-Abfrage mit Werteliste

VBA: If-Abfrage mit Werteliste (7 Beiträge, 403 Mal gelesen)

Du bist nicht angemeldet. [ Login/Registrieren ]

Hallo,

stehe gerade vor einem Problem: Ich möchte in einem Access Projekt in VBA mit einer if-Abfrage überprüfen, ob ein Wert nicht in einer Liste von Werten (keine Combox oder dgl.)

Also in etwas so
if Wert not in (Wert1, Wert2, Wert3, ... , Wert10) then
end if

gibt es sowas?

emefge
Infosauger
_____________________________________________________________________________

Weil die Lichtgeschwindigkeit höher als die Schallgeschwindigkeit ist, hält man viele Leute für helle Köpfe bis man sie reden hört.

"Bekomme ich bei Ihnen so einen ganz kleinen Lötkolben zum CPU reparieren?"

Wieso Realität? Ich hab doch verdammt noch mal was Besseres zu tun!

Re: VBA: If-Abfrage mit Werteliste (klausiw am 03.05.2018, 15:09:14)

je nach anzahl der werte hast mehrere möglichkeiten:

1)

if wert <> wert1 and wert <> wert2 and ...

das wird recht bald unübersichtlich, vor allem, wenn sich zu wert1-wert5 irgendwann wert6, 7, 8... gesellt dann musst den code mehr als notwendig angreifen

2) https://excelmacromastery.com/vba-dictionary/

3) collection und mit contains prüfen

4) wert1 - wertx in ein array hauen und dann durch loopen

arr_werte = array(wert1,wert2,...)

b_kommtvor = false
for i = lbond(arr_werte) to ubound(arr_werte) 'alternativ auch ohne zählvariable mit for each durchrattern
  if arr_werte(i) = wert then
     b_kommtvor = true
     exit for
  end if
next i

if b_kommtvor = true then ....

edit:
5) das vorgeschlagene select case ist natürlich auch möglich und zumindest eine spur eleganter und auch praktischer als das reine if-konstrukt. würde aber für so eine prüfung weder if noch select nehmen.

03.05.2018, 21:45 Uhr - Editiert von Thunder, alte Version: hier

Re: VBA: If-Abfrage mit Werteliste (Thing am 03.05.2018, 22:05:23)

Re: VBA: If-Abfrage mit Werteliste (Thunder am 09.05.2018, 07:44:37)

Re(2): VBA: If-Abfrage mit Werteliste (Infosauger am 09.05.2018, 11:33:26)

Dieses Forum ist eine frei zugängliche Diskussionsplattform.
Der Betreiber übernimmt keine Verantwortung für den Inhalt der Beiträge und behält sich das Recht vor, Beiträge mit rechtswidrigem oder anstößigem Inhalt zu löschen.
Datenschutzerklärung