VBA meerder Private Sub in een excel sheet

[hryttel]

Beste helpers,

Ik ben bezig met excel sheet waarbij ik in kolom A een Regelnummer heb en kolom B DatumTijd Nu().
Ik wil het graag in VBA, ik heb voor beide afzonderlijk de VBA code werkend, maar samen Nee dat wil niet!

Datum & Tijd

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("C3:C9999")) Is Nothing Then
        Target.Offset(, -1).Value = (Now)
        
     End
    End If
End Sub

Regelnummer

Private Sub Worksheet_Change(ByVal Target As Range)

Dim teller As Long
If Not Intersect(Target, [C:C]) Is Nothing Then
    teller = 1
    For Each cell In Range([C3], [C9999].End(xlUp))
        If cell.Value <> "" Then
            cell.Offset(0, -2).Value = teller
            teller = teller + 1
        Else
            cell.Offset(0, -2).Value = ""
        End If
    Next cell
End If
End Sub

Ik zit te puzzelen hiermee en kom erachter dat als ik het blad wil beveiligen een foutmelding krijg:


Graag een suggestie hoe dit samen te voegen.

Groeten,
Henning

 

[Warme bakkertje]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("C3:C9999")) Is Nothing Then
        Target.Offset(, -1).Value = (Now)
        teller = 1
        For Each cell In Range("c3:c" & Cells(Rows.Count, 3).End(xlUp).Row)
        If cell.Value <> "" Then
            cell.Offset(0, -2).Value = teller
            teller = teller + 1
        Else
            cell.Offset(0, -2).Value = ""
        End If
    Next cell
    End If
End Sub

Om het beveiligingsprobleem te omzeilen haal je bovenaan de code de beveiliging even weg (Unprotect),schrijf je resultaat naar je werkblad en onderaan terug beveiligen (Protect)

 

[hryttel]

Warme bakkertje,

Dank je wel, Opgelost.

Groeten,
Henning