[VBA] = oder Anweisung gesucht

[DonMaxi]

Hallo liebe Forumler,



ich hab da mal ne Frage bezüglich VBA.
Und zwar habe ich eine If Abfrage die eine Variable mit einem Range Bereich aus einer Tabelle vergleichen soll.

Da es mir zu Mühsam wäre alles mit Oder einzeln zu verknüpfen wollte ich wissen ob es eine = oder anweisung gibt ( wie in C)

also ungefähr in der Form

If var =| worksheet.Range(A1:A15).value then

....

also quasi, wenn var einer zelle aus der range entspricht, springe in die If Anweisung



hoffe es war versrändlich und mir kann jemand weiterhelfen

Merci schon mal im Voraus

 

[Brinox]

Das gibts bei VBA nicht. VBA kann ja noch nicht einmal += o.Ä., da ist es einfach zu kastriert für.
Alternative

Dim i As Integer
For i = 1 To 15
    If Cells(i, 1) = Var Then
    
    End If
Next
[Code]
[automerge]1332758580[/automerge]
Das gibts bei VBA nicht. VBA kann ja noch nicht einmal += o.Ä., da ist es einfach zu kastriert für.
Alternative

Dim i As Integer
For i = 1 To 15
    If Cells(i, 1) = Var Then
    
    End If
Next
[automerge]1332758640[/automerge]
Sorry für den Double-Post, Browser spinnt...^^

 

[DonMaxi]

Danke für die schnelle Antwort
so in etwa hätt ich mir das alternativ auch schon vorgestellt
wirds wohl etwas mehr code als erhofft

cu

€dit:

Ok, neues Problem
Das geht so leider auch nicht.
Um das zu erklären muss ich ein bischen ausholen.
Ich habe hier ein Kalkulationstool, in welchem auch die Reisekosten mit berücksichtigt werden.
Aufgrund der Landeswahl ändern sich aber auch andere Parameter.
Da ich aber in der Länderliste für die Reisekosten, mehrere Länder habe, die noch extra einträge für verschiedene Städte haben ( z.B. Italien;Modena , Italien;Rom , Italien;Neapel) müssen die Änderungen für mehrere Einträge gleich sein. also kann ich mit for auch nicht operieren, da ich ja eine struktur wie folgt habe:

If var=| sheet.range ("A1:A2") then
mach dies...
elseif var=| sheet.range("A34:A36") then
mach das
.
.
.
else
default
end if

ich hab mir auch schon die variante mit case überlegt, aber da wirds genauso viel, oder?

nochmal €dit:

Machs jetzt mit mehreren For und unabhängigen If anweisungen falls es nicht funzt meld ich mich wieder