Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'1. Ved dobbeltklik i kolonner udvalgte celler
If Not Intersect(Target, Range("C54:E54, C56:E56, C58:E58, C60:E60, C62:E62, C64:E64, C66:E66, C68:E68, C70:E70, C72:E72, C74:E74, C89:E89, C91:E91, C93:E93, C95:E95, C97:E97, C99:E99, C101:E101, C103:E103, C105:E105")) Is Nothing Then
'4. Dato sættes i kolonne B, Signatur i kolonne F, sletter andre X
Select Case Target.Column
Case Is = 3
Target.Offset(0, 1).Value = ""
Target.Offset(0, 2).Value = ""
Target.Offset(-1, -1).Value = Format(Now, "mm-dd-yy")
Target.Offset(0, 3).Value = Sheets(1).Range("E49").Value
Case Is = 4
Target.Offset(0, 1).Value = ""
Target.Offset(0, -1).Value = ""
Target.Offset(-1, -2).Value = Format(Now, "mm-dd-yy")
Target.Offset(0, 2).Value = Sheets(1).Range("E49").Value
Case Is = 5
Target.Offset(0, -1).Value = ""
Target.Offset(0, -2).Value = ""
Target.Offset(-1, -3).Value = Format(Now, "mm-dd-yy")
Target.Offset(0, 1).Value = Sheets(1).Range("E49").Value
End Select
'2. og 3. X sættes eller fjernes i kolonner C:E
If Target.Value = "" Then
Target.Value = "X"
Else
If Target.Value = "X" Then
Target.Value = ""
End If
'Ved ingen X slettes Dato i kolonne B
Select Case Target.Column
Case Is = 3
Target.Offset(-1, -1).Value = ""
Case Is = 4
Target.Offset(-1, -2).Value = ""
Case Is = 5
Target.Offset(-1, -3).Value = ""
End Select
'Ved ingen X slettes Initialer i kolonne F
Select Case Target.Column
Case Is = 3
Target.Offset(0, 3).Value = ""
Case Is = 4
Target.Offset(0, 2).Value = ""
Case Is = 5
Target.Offset(0, 1).Value = ""
End Select
End If
Cancel = True
End If
'Ved dobbeltklik i kolonner G udvalgte Dato celler
If Not Intersect(Target, Range("G75, G106")) Is Nothing Then
Target.Offset(0, 0).Value = Format(Now, "mm-dd-yy")
End If
End Sub
