ich verstehe wahrscheinlich die Select Case Abfrage nicht richtig.
Bei untenstehendem Code wird die Zahl in der Variablen i nicht ausgewertet, d.h. wenn i z.B. den Wert 3 enthält sollte die Msgbox "AAAA" ausgeben. Leider wird die Bedingung ignoriert.
Besten dank zum Voraus
Daniel
Do
i = InStr(i, tmpStr, "x")
If i = 0 Then
Exit Do
End If
MsgBox i
Select Case i 'strErg
Case 3 Or 6 Or 9 Or 12 Or 15 Or 18
'Farbe Rot
MsgBox "AAAAAAAAAAA"
Case 2 Or 5 Or 8 Or 11 Or 14 Or 17
'Farbe Gelb
MsgBox "BBBB"
Case 1 Or 4 Or 7 Or 10 Or 13 Or 16
'Farbe Grün
MsgBox "CCCCCC"
Case (1 + 2) Or (4 + 5) Or (7 + 8) Or (10 + 11) Or (13 + 14) Or (16 + 17)
'Farbe Grün-Gelb
MsgBox "DDDDD"
End Select
i = i + 1
Loop