VBA - If Anweisung mehrerer Abfragen
11.09.2008 12:06:28
Jana
Ich stehe gerade komplett (mal wieder auf dem Schlauch)!..
Ich habe einen umfangreichen VBA-Code mit Arrays. Nun möchte ich, dass in der Spalte 3 geguckt wird, ob die Zahl 2,3,7,9,11 oder 13 in dieser Zelle steht. Ist einer dieser Zahlen vorhanden, dann soll eine Variable hochgezählt werden.
Eigentlich dachte ich über eine if-then-else-Schleife
Doch ich würde am liebsten alle Zahlen zusammen prüfen lassen, um die Schleifendürchläufe zu minimieren.
Hier ein kleiner Ausschnitt des Codes:
Select Case arrA(i1, 1)
Case Is < 1000000
arrA(i1, 16) = "AAA"
i1 = i1 + arrS(i1, 15)
iB = iB + arrS(i1, 12)
if arrS(i1, 3) = 2,3,7,9,11 oder 13 then
iZ=iZ+1
else if
end if
Case Else
End Select
Es ist bestimmt ein ganz einfacher ausdruck, den ich bestimmt nur unter falschen Schlagworten in dem Forum zu Suchen versucht habe...
Vielen Dank einem Jeden!
Gruß Jana
Anzeige