Opgelost Tabel laatste cel.

[jverkerk]

ik heb een tabel en daar wil ik graag als je in de laatste cel van die tabel staat, is een tabel zonder totaal rij, Zou ook moeten gaan met een totaalrij.
als ik dan op de tabtoets druk dat de datum en tijd verschijnt in de eerste kolom van die cel.
Ik heb nu deze code maar geeft steeds een fout.

Private Sub Worksheet_SelectionChange(ByVal T As Range)
Static p As Range
Dim tbl As ListObject, r As Long
Set tbl = Me.ListObjects("tbl.Schema")

If p Is Nothing Then Set p = T: Exit Sub

If Not Intersect(p, tbl.DataBodyRange) Is Nothing Then

    If p.Row > tbl.DataBodyRange.Rows(tbl.DataBodyRange.Rows.Count).Row Then
        tbl.ListRows.Add
    End If

    r = p.Row - tbl.DataBodyRange.Row + 1
    If r >= 1 And r <= tbl.DataBodyRange.Rows.Count Then

        If Not Intersect(p, tbl.ListColumns(tbl.ListColumns.Count).DataBodyRange) Is Nothing Then
            If tbl.ListColumns("Datum").DataBodyRange(r) = "" Then
                tbl.ListColumns("Datum").DataBodyRange(r) = Now
            End If
        End If
    End If

End If

Set p = T
End Sub

 

[edmoor]

Werkt hier zonder enige foutmelding.
Je zegt een foutmelding te krijgen.
Laat deze dan ook hier weten.

 

[AHulpje]

Dit lijkt mij voldoende:

Private Sub Worksheet_SelectionChange(ByVal T As Range)
    If T.Column = 1 And T = "" Then T = Now()
End Sub

 

[jverkerk]

Bedankt allen.
Die foutmelding was bij mij nu ook weg.