Hallo Liebs Forum :),

habe ein kleines Problem mit einer Bedingung innerhalb einer Schleife. Dazu der Code:

 'Schleife die die Quelltabelle durchsucht und bei bestimmter Bedingung wird die Aktion cut-paste gestartet

For y = 3 To lngZeilen

'Bedingungen

                With gesamt
                    V1 = .Cells(y, 11)
                    V2 = .Cells(y, 4).Value
                End With

                If Not V1 Like "W*" And V1 <> "" _
                Or V2 Like "ROTES*" _
                Or V2 Like "TANKK*" _
                Or V2 Like "FREMD*" Then

                    gesamt.Rows(y).Cut unbetrachtet.Rows(x)
                    x = x + 1
                 
        End If
        Next y

Ich würde nun aber gerne meine Bedingung erweitern, nämlich so:

For y = 3 To lngZeilen
'Bedingungen

                With gesamt
                    V1 = .Cells(y, 11)
                    V2 = .Cells(y, 4).Value
                    V3 = .Cells(y, 3).Value
                End With
                
                If Not V1 Like "W*" And V1 <> "" _
                Or V2 Like "ROTES*" _
                Or V2 Like "TANKK*" _
                Or V2 Like "FREMD*" And Not V3 Like "L9.0" And Not V3 Like "L9.2" And Not V3 Like "L9.3" Then

                    gesamt.Rows(y).Cut unbetrachtet.Rows(x)
                    x = x + 1
                 
                End If
        Next y

In der letzten Bedingung möchte ich nun zusätzlich, dass geprüft wird ob Variable V2 den Wert "Fremd*" und zugleich in der selben Zeile einen der Werte in V3 entählt. Falls TRUE dann soll ausgeführt werden. Wenn ich das Makro ausführe, wird die letzte Bedingung gar nicht beachtet und der schneidet trotzdem die Zeilen mit dem Wert "Fremd*" ohne die Werte in V3 zu beachten.

Ist das überhaupt möglich, in VBA Operatoren zu "vermischen"?

Hoffe mein problem ist verständlich ;)...

Gruß Sino