|
Hallo
Ich hoffe mir kann hier jemand helfen :)
Ich habe für die firme eine folgende Formel
Private Sub Worksheet_Change(ByVal Target As Range)
'If Intersect(Target, Range("A1:A10")) Is Nothing Or Target.Cells.Count > 1 Then Exit Sub
If Target.Cells.Count > 1 Then Exit Sub
Application.EnableEvents = False
If Target.Value = "" Then
Target.Offset(0, 1).ClearContents
Else:
Target.Offset(0, 1).Value = CDate(Format(Now, "dd.mm.yyyy"))
End If
Select Case Target.Column
Case 6, 44
If Target = "12S*" Or Target = "14S*" Or Target.Value = "21S*" Or Target.Value = "44S*" Then
Else
Target.Offset(0, 1).Value = "SILO"
End If
End Select
Application.EnableEvents = True
End Sub
So ansich funktioniert es auch so wie es soll AAAABER das Problen ist wenn ich jetzt in der Spalte 6 nur irgendwas schreibe was eine 12,14,21,44 enthält schreibt er mir schon SILO hin und das versuche ich zu vermeiden, Ich bräuchte etwas das er nur ganz gezielt nach 12S, 14S, 21S und 44S sucht. Wenn ich die * wegmache dann erscheint auch nicht SILO eine zeile nebenan sondern das Datum warum auch immer.
MFG
|