Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
24.04.2024 17:19:09
Anzeige
Archiv - Navigation
440to444
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
440to444
440to444
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

If Abfrage auf Text Pool

If Abfrage auf Text Pool
11.06.2004 10:13:07
Antje
Hallo Profis,
ich möchte eine If Abfrage machen und mehrere Fälle ausschließen. Bei zweien ist es mir ja soweit klar durch if bedingung 1 or bedingung 2. Aber wie sieht das aus wenn meine Abfrage-Zelle 10 verschiendenen Werten nicht entsprechen darf, alle anderen Werte aber erlaubt sind. Kann man dieses Pool irgendwie zusammenfassen?
wie kann ich die Abfrage kürzen?
if not Cells(i,4).value = "B" or
not Cells(i,4).value = "F" or
.
.
.
Then
Danke für Hilfe
Gruß,
Antje

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: If Abfrage auf Text Pool
11.06.2004 10:23:47
Christoph Dümmen
Hallo Antje,
probiere es mal damit:

dim arrStopWord as string
dim bolGültig as boolean
bolgültig=true
arrStopWord=Array("B","F","X","usw")
for j = 0 to ubound(arrStopWord)
if cells(i,4)=arrstopword(i) then bolgültig =false
next i
if bolgültig=false then msgbox "Nicht gültig"
Gruß
Christoph
AW: If Abfrage auf Text Pool
11.06.2004 10:48:39
Antje
Hi,
Danke Christoph, habe es gerade mal ausprobiert, funktioniert aber nicht ganz. Als Fehlermeldung wirft er mir bei der Zeile
for j = 0 to ubound(arrStopWord)
"Datenfeld erwartet" aus
Hast Du noch eine Idee?
Danke
Gruß, Antje
AW: If Abfrage auf Text Pool
11.06.2004 10:59:11
Christoph Dümmen
dim arrStopWord() as string
statt
dim arrStopWord as string
Entschuldigung.
Gruß
Christoph
Anzeige
AW: If Abfrage auf Text Pool
11.06.2004 11:11:28
Antje
Hi,
uups kleiner Denk- und Kompelierfehler meinerseits..
Es läuft jetzt.
Suupi, Danke
Gurß, Antje

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige