Change Methode: Wenn EINER der beiden Spalten...

Private Sub Worksheet_Change(ByVal Target As Range)
Dim mytarget1
Dim mytarget2
Set mytarget1 = Intersect(Target, Columns(35))
Set mytarget2 = Intersect(Target, Columns(13))
If Intersect(Target, Range("AI:AI, M:M")) Is Nothing Then Exit Sub
'Fehlerhandling
On Error GoTo Errorhandler
Application.EnableEvents = False
' DIESE SPALTE DANN....
If Target.Column = 35 Then
Call ZamsAbhängigkeit
End If
' DIESE SPALTE DANN....
If Target.Column = 13 And (Target.Value = "CN" Or Target.Value = "cn") Then
Call meldung
End If
End If
Exit Sub
'--- Bei Fehler:
Errorhandler:
MsgBox Err.Description & Chr(13) & Err.Number & Chr(13) & Err.Source, _
vbCritical, "An error has occured!"
Application.EnableEvents = True
Exit Sub
End Sub