VBA: If-Abfrage mit Werteliste

Re(2): VBA: If-Abfrage mit Werteliste

Infosauger — Wed, 09 May 2018 09:33:26 GMT

hab's mit If gemacht

Re: VBA: If-Abfrage mit Werteliste

Thunder — Wed, 09 May 2018 05:44:37 GMT

hast dus mittlerweile gelöst?

Re: VBA: If-Abfrage mit Werteliste

Thing — Thu, 03 May 2018 20:05:23 GMT

Quick&Dirty-Version, wenn es um Ganzzahlen mit maximal 2 Stellen geht
IF Instr("02;11;12;81",Format(Eingabezahl,"0#")) = 0 THEN Echo Nix enthalten

Wenn 3 Ziffern gebraucht werden:
IF Instr("002;011;012;081;678",Format(Eingabezahl,"00#")) = 0 THEN Echo Nix enthalten

Wenn es nur um eine Ziffer geht:
IF Instr("2;5;7;9",Eingabezahl) = 0 THEN Echo Nix enthalten

Re: VBA: If-Abfrage mit Werteliste

Thunder — Thu, 03 May 2018 19:43:49 GMT

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 ....

Re: VBA: If-Abfrage mit Werteliste

Thunder — Thu, 03 May 2018 19:43:49 GMT

je nach anzahl der werte hast mehrere möglichkeiten:

1)

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


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.

Re: VBA: If-Abfrage mit Werteliste

klausiw — Thu, 03 May 2018 13:09:14 GMT


Select Case Wert
Case Wert1, Wert2, Wert3
...
End Select

VBA: If-Abfrage mit Werteliste

Infosauger — Thu, 03 May 2018 12:17:01 GMT

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?