[VBA] If-Abfrage mit mehreren or Bedingungen verschlanken

[EasY]

Wunderschönes Wochenende wünsche ich :)...

ich benötige mal eure Hilfe: Ich habe eine If-Abfrage, die eine Zellwert abfragt. Nun können allerdings mehrere Bedingungen die Abfrage auf true setzen. Mein bisheriger Ansatz sprengt mittlerweile den Rahmen und das ist schlecht lesbar und irgendwie auch unschön. Hat wer einen Tipp, wie ich das verschlanken kann? Zumal da in Zukunft möglicherweise noch mehr Bedingungen hinzukommen können.

Code:

            For i = 1 To tipp.Cells.Count - 4
                If LCase(tipp.Cells(i).Offset(0, 1)) = "x" Or LCase(tipp.Cells(i).Offset(0, 1)) = "k" _
                Or LCase(tipp.Cells(i).Offset(0, 1)) = "p" _
                Or LCase(tipp.Cells(i).Offset(0, 1)) = "gni" Or LCase(tipp.Cells(i).Offset(0, 1)) = "r" _
                Or LCase(tipp.Cells(i).Offset(0, 1)) = "t1" Or LCase(tipp.Cells(i).Offset(0, 1)) = "t2" _
                Or LCase(tipp.Cells(i).Offset(0, 1)) = "t3" Then
                arr(i) = tipp.Cells(i).Value
                End If
            Next i

Ach und vielleicht ein wenig offtopic:
Wieso funktioniert  LCase(tipp.Cells(i).Offset(0, 1)) = "t*" für "t1", "t2","t3" etc nicht? 

Danke und Gruß

[26865]

Code:

Select case Lcase(…)
   case "p", "x", …
      Tuwas
End Select

---

Wieso funktioniert  LCase(tipp.Cells(i).Offset(0, 1)) = "t*" für "t1", "t2","t3" etc nicht? 

Der =-Operator beherrscht keine Mustersuche. Einfache Mustersuchen kannst du z.B. mit Like umsetzen..

[RPP63]

Nur ergänzend!
Ich bekomme bei Select Case "p", "x", "k", "gni" … immer Krämpfe in die Finger!

"Schonender" ist dies:

Code:

Dim Cases, Fund
Cases = Split("x k p gni r t1 t2 t3")
Fund = Application.Match("k", Cases, 0)
If IsNumeric(Fund) Then MsgBox "Einer war dabei!"

Wichtig, dass sowohl Cases als auch Fund hier Variant sind!
   
Ein Variant kann nämlich auch einen Fehlerwert aufnehmen, der auftritt, wenn Application.Match nichts findet.
Ich schreibe das, weil man so keine Fehlerbehandlung braucht.
(OK, war'n Insider)


Gruß Ralf

[26865]

Nur ergänzend!
Ich bekomme bei Select Case "p", "x", "k", "gni" … immer Krämpfe in die Finger!

"Schonender" ist dies:

Gutes Fingertraining!
Warum verballerst du so viele Variable? 
If Isnumeric(Application.Match("Test", Split(….), 0)) Then…

Ich kriege übrigens immer Krämpfe in den Augen bei leerzeichengetrennten Splits…  

Bin auf Krawall gebürstet heute, ich weiß…

[RPP63]

Warum verballerst du so viele Variable?

Ich habe den Wink mit dem Zaunpfahl verstanden!
Aber: Wie sonst hätte ich einen so hübschen Screenshot zur Verdeutlichung der Arbeitsweise anfügen können?

Bin auf Krawall gebürstet heute

Heute? 
Mal davon ab:
Diese Form von Krawall gefällt mir!

[26865]

Wink mit dem Zaunpfahl

Heute?

Wink? Ich habe damit zugeschlagen!  
Heute merke ich es selbst, sonst ignoriert es mein Unterbewusstsein

[EasY]

Klasse Lösungen - genau so wollte ich es ... DANKE!