Datostempel i enden af række hvis rækken blev opdateret

I hvilke kolonner findes data og i hvilken kolonne skal datostemplet skrives?

Her er en idé.
Koden skal gemme under Arket, ellers virker Worksheet_Change & Worksheet_SelectionChange ikke.

Dim Str As String

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Target = Range("A1") Then
        If Not Target.Text = Str Then
        Range("A1") = Format(Now, "dd.mm.yyyy")
        End If
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Str = Target.Text
End Sub

Denne her er muligvis bedre.
5 = Kolonnen

Dim Str As String

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Target = Cells(Target.Row, 5) Then
        If Not Target.Text = Str Then
            Cells(Target.Row, 5) = Format(Now, "dd.mm.yyyy")
        End If
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Str = Target.Text
End Sub

Fungerer rigtigt godt, præcis det jeg gerne vil have! Den laver dog en fejl hvis jeg markerer flere celler: Run-time error '94': Invalid use of Null

Så skulle du gerne kunne vælge flere celler :)

Dim Str As String

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Target = Cells(Target.Row, 5) Then
        If Not Target.Text = Str Then
            Cells(Target.Row, 5) = Format(Now, "dd.mm.yyyy")
        End If
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Selection.Cells.Count = 1 Then
        Str = Target.Text
    End If
End Sub

Super, det kan jeg også nu. Får dog endnu en fejl: Run-time error 13: Type mismatch. Det sker hvis jeg prøver at slette mine indtastninger

Rettelse: Får faktisk kun fejlen hvis jeg markerer flere celler og trykker delete

Den får også lige en Selection.Cells.Count :-)

Dim Str As String

Private Sub Worksheet_Change(ByVal Target As Range)
    If Selection.Cells.Count = 1 Then
        If Not Target = Cells(Target.Row, 5) Then
            If Not Target.Text = Str Then
                Cells(Target.Row, 5) = Format(Now, "dd.mm.yyyy")
            End If
        End If
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Selection.Cells.Count = 1 Then
        Str = Target.Text
    End If
End Sub

Fantastisk! Så har jeg hellere ikke mere :)

Smid et svar, så får du point!

Her er et svar :)
Held og lykke med det.