ich benötige mal eure hielfe
ich habe diesen code
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lngErste As Long
If Target.Column = 14 Then
If Target.Count = 1 Then
If UCase(Target) = "8" Then
With Worksheets("Lost !")
lngErste = IIf(IsEmpty(.Cells(.Rows.Count, 1)), _
.Cells(.Rows.Count, 1).End(xlUp).Row, .Rows.Count) + 1
Rows(Target.Row).Copy
.Cells(lngErste, 1).PasteSpecial Paste:=xlValues
Rows(Target.Row).Delete shift:=xlUp
End With
End If
End If
End If
End Sub
wie kann ich mehrer bedingungen einfügen , hier macht er wenn 8 da drin steht das was ich will.wenn ich aber 1 oder 2 bis 10 eingebe soll er was anderes machen
kann mir da jemand helfen bitte