Werte aus Bereich in IF Then einsetzen
27.08.2019 09:14:34
Timo
ich möchte eine Tabelle nach zwei Kriterien durchsuchen lassen und
einen Wert ändern wenn beide Bedingungen zutreffen.
Die erste Bedingung steht in einer anderen Tabelle und soll Wert für Wert in die Schleife eingefügt werden, die zweite Bedingung ist immer gleich.
Bisher habe ich folgendes geschrieben
(wenn ich für x(Erste Bedingung einen festen Wert eintrage funktioniert es, aber ich bekomme den Wertebereich nicht hin)
'Ausnahmen aus Bewertung entfernen
Sub Autokorrektur()
Dim y As String
Dim x As String
Application.ScreenUpdating = False
ThisWorkbook.Worksheets("Daten").Activate
With Worksheets("Ausnahmen")
x = Range(Cells(2, 1), Cells(3, 1))
y = "Bedingung 2"
For i = 2 To 2000
If Cells(i, 8) = x And Cells(i, 11) = y Then
Cells(i, 14) = "Ausnahme"
End If
Next
MsgBox "Autokorrektur durchgeführt", vbExclamation
End With
ThisWorkbook.Worksheets("Übersicht").Activate
End Sub
Timo