wie kann ich das kombinieren?
08.03.2023 10:28:33
Micha
ich habe gestern super Hilfe von Daniel und Gerd bekommen. Vielen Dank dafür!, aber leider ist mein Problem noch nicht gelöst.
ich möchte in Zelle e14 einen Text eingeben und wenn Übereinstimmungen vorhanden sind, soll mit ein entsprechender Text in Zelle P30 ausgegeben werden.
leider klappt es nur mit dem ersten Abschnitt. Ich weiß nicht wie ich es kombinieren muss. Oder ist es überhaupt möglich, so wie ich es mir vorstelle?
freue mich über eure Hilfe. Lg
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("E14")) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub
If UCase(Target.Value) Like "*" & "AKL " & "*" & "DICHT" & "*" Then
Target.Offset(14, 2) = "AKL verdichten"
Else
Target.Offset(14, 2).ClearContents
End If
If UCase(Target.Value) Like "*" & "Inventur " & "*" & "angefangen" & "*" Then
Target.Offset(14, 2) = "Inventur fortsetzen"
Else
Target.Offset(14, 2).ClearContents
End If
If UCase(Target.Value) Like "*" & "Audit " & "*" & "begonnen" & "*" Then
Target.Offset(14, 2) = "Audit fortsetzen"
Else
Target.Offset(14, 2).ClearContents
End If
If UCase(Target.Value) Like "*" & "Shuttle " & "*" & "geprüft" & "*" Then
Target.Offset(14, 2) = "Shuttle reparieren"
Else
Target.Offset(14, 2).ClearContents
End If
End Sub