And-Verknüpfung von "Verneinungen" in If-Abfrage
16.04.2009 12:37:28
"Verneinungen"
habe eine If-Abfrage durch And-Verknüpfungen verschachtelt, in der Form
If "Case 1" And Zelle1.Value = Zelle2.Value And Zelle3.Value = Zelle4.Value Then
...
das funktionierte so auch ganz wunderbar.
Nun wollte ich dies aber erweitern auf And-Verknüpfungen von "Verneinungen", also abprüfen ob verschiedene Zellwerte ungleich sind, in der Form
If "Case 2" And Zelle1.Value Zelle2.Value And Zelle3.Value Zelle4.Value Then
...
und dabei scheint er mir irgendwas zu verdrehen. Hier funktioniert die VBA Logik zumindest nicht mehr so wie meine Logik %)
Hier mein Code:
Private Sub CommandButton1_Click() ' Button 1 in Tabelle1 eingefügt
With Sheets("Tabelle1")
If .Range("A1").Value = 1 Then ' "Case 1" Zellwert A1 ist 1, dann Zelle D2 ändern
.Range("D2").Value = .Range("D2").Value + 10
ElseIf .Range("A2").Value .Range("A3").Value Then ' "Case 1" nicht erfüllt (ElseIf) und [ _
A2 ungleich A3] dann Zelle D3 ändern
.Range("D3").Value = .Range("D3").Value + 10
ElseIf .Range("A2").Value .Range("A3").Value And .Range("B2").Value .Range("B3"). _
Value Then ' "Case 1" nicht erfüllt (ElseIf) und [A2 ungleich A3], sowie [B2 ungleich B3] dann Zelle D4 ändern
.Range("D4").Value = .Range("D4").Value + 10
End If
End With
End Sub
Merci für die Hilfe,
Steffen
Anzeige