Hallo zusammen,
habe folgendes Macro:
If Not Intersect(Target, Range("I7:I200")) Is Nothing Then
If WorksheetFunction.CountBlank(Cells(Target.Row, 9)) = 1 Then
Cells(Target.Row, 13).ClearContents
Rows(Target.Row).Interior.Pattern = xlNone
End If
End If
If Not Intersect(Target, Range("I7:I200")) Is Nothing And Target.Count = 1 Then
Range("M" & Target.Row) = ("a")
Range("N" & Target.Row).Select
Selection.ClearContents
End If
Es soll so funktionieren, das wenn eine Eingabe in Feld I erfolgt ein a in Spalte M gesetzt wird und Feld N gelöscht wird.
Das funtkioniert soweit auch, allerdings soll wenn Feld I gelöscht wird auch Feld 13 gelöscht werden das funktioniert zwar durch oberes Macro, aber dann wird gleichzeitig das untere Macro aktiviert und er setzt das "a" wieder.
Wie kann ich das abändern ?
Gruß
Erik