2 x Private Sub Worksheet_Change(ByVal Target As R

Private Sub Worksheet_Change(ByVal Target As Range)"
wie kann man den die beiden verbinden?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim lz%
lz = Cells(Rows.Count, 1).End(xlUp).Row
If Cells(lz, 1)  "" Then
Cells(lz, 3) = Cells(lz - 1, 3) + 1
End If
End Sub


und
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$10" Then
On Error GoTo Meldung
Application.Goto Reference:=Range(Range("C10"), Cells(Rows.Count, 3).End(xlUp)).Find(what:=  _
_
Target.Value, LookIn:=xlValues, lookat:=xlWhole)
Exit Sub
End If
Meldung:
'MsgBox "Wert nicht vorhanden!"
End Sub


Vielen Dank

Gruß

Thomas