Låse celle efter indtastning

Så skal du have en af de automatiske makroer i arkmodulet.

her et eksempel


Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("D1:D32")) Is Nothing Then    ' du taster i D kolonnen
        If Target.Offset(0, 1) = "" Then Target.Offset(0, 1) = Date    ' hvis der ikke allerede står noget i E kolonnen, så skrives dato
    End If
End Sub

Tak for hjælpen. Smider du lige et svar,

et svar ;-))