Zusammenfassung zweier Ereignisse

Private Sub Worksheet Change zu einem Fehler führen würde. Vielen Dank vorab für Eure Hinweise.
Urs
1.)


Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fehler
'Auf Spalte mit Kundennummer prüfen
If Target.Column = 19 And Target.Row > 1 And Target.Cells.Count = 1 Then
Set Zelle = Target
Me.ComboBox1.Value = Target.Value
End If
GoTo Beenden
Fehler:
MsgBox "Fehler Nr. " & Err.Number & " ist aufgtreten!" & vbLf & vbLf & Err.Description
Beenden:
End Sub


2.)



Private Sub Worksheet_Change(ByVal Target As Range)
Dim str As String
If Target.Column  11 And Target.Count > 1 Then Exit Sub
With Target
If .Comment Is Nothing Then
.AddComment "Erstellt am: " & Date & " - " & Time & _
Chr(10) & "Erster Eintrag: " & .Value & _
" / " & Application.UserName
Else
str = .Comment.Text & Chr(10)
.Comment.Text str & Chr(10) & "Geändert am: " & _
Date & " - " & Time & Chr(10) & _
"Änderung: " & .Value & " / " & _
Application.UserName
End If
.Comment.Shape.TextFrame.AutoSize = True
End With
End Sub