If-Schleife führt nur else aus
06.12.2019 14:27:16
Nico264
ich habe hier einen kleinen Code, der prüft ob ein Wert aus Liste 1 in Liste 2 vorkommt.
Wenn ja, dann soll ein wert aus Liste 2 nach Liste 1 kopiert werden und in eine andere Spalte ein "Ja" eingetragen werden.
Wenn der Wert nicht in Liste 2 vorkomt, soll in diese Spalte ein "Nein" eingetragen werden.
Das hätte ich dann per Else Funktion eintragen lassen.
Allerdings trägt er bei jedem Wert ein "Nein" ein, egal ob dieser in der Liste steht oder nicht.
Weiß jemand was ich falsch mache?
Hier der Code:
Private Sub CommandButton1_Click()
Dim z, y As Integer
Application.ScreenUpdating = False
For y = 3 To 80
For z = 216 To 400
If Sheets("hppDE_aktuelle STP").Cells(z, 2) = Sheets("BOM_aktuell").Cells(y, 1) Then
Sheets("BOM_aktuell").Cells(y, 5).Copy
Sheets("hppDE_aktuelle STP").Cells(z, 18).PasteSpecial Paste:=xlValues
Sheets("hppDE_aktuelle STP").Cells(z, 18).PasteSpecial Paste:=xlPasteFormats
Sheets("hppDE_aktuelle STP").Cells(z, 6) = "Ja"
Else: Sheets("hppDE_aktuelle STP").Cells(z, 6) = "Nein"
End If
Next z
Next y
End Sub