Elektronisk checkliste - Environ("UserName")

ja

Range("A1") = Environ("UserName")

Hej Kabbak :-)

Fandt selv lige ud af at det var en mulighed ... hvordan gør man det smartest / lettest ...

Private Sub Worksheet_Change(ByVal Target As Range)
   
    If Range("G6").Value = "x" Then
      Range("D6").Value = Environ("username")
    Else
      Range("D6").Value = 0
    End If

End Sub

Ovenstående virker efter hensigten, men min checkliste vil bestå af mange kontrolpunkter, og dertil et If-sætningen ikke optimal ... det er ligesom om den kører i ring ... kan det gøres anerledes ?

Ok ... benyttede checkboxe i stedet, med hver sin makro :-)

Hvis dine checkmærker allesammen står i sammen kolonne, så ville jeg bruge denne makro til det.
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 2 Then
        If UCase(Target.Value) = "X" Then
            Target.Offset(, 1).Value = Environ("UserName")
        End If
    End If
End Sub

/Christian
ck@officekonsulenterne.dk

Hej Christian

Som udgangspunkt vil jeg af performancehensyn undgå at skulle benytte Worksheet_Change, da jeg ellers vil have makroen kørende uanset hvad jeg foretager mig i min template ... men ellers en ok løsning :-) ... takker