Change Methode: Wenn EINER der beiden Spalten...
31.07.2018 15:35:01
Nati
habe ein Change Event, welches greifen soll, wenn eine Zelle EINER der beiden Spalten ausgewählt wird.
Ich glaube momentan funktioniert dies nur wenn BEIDE Spalten angesprochen werden (Vermutung)
Mein Code:
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
GRÜßle,
Nati