vba i Exsel

Anbringes under ThisWorkbook: (filen kan fremsendes)

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim elevNr As Integer, navn As String
    If Target <> "" And Target.Column = 1 Then
        elevNr = Target
       
        elevnavn = findElevNavn(elevNr)
        If elevnavn <> "" Then
            Target.Offset(0, 1) = elevnavn
            Target.Offset(0, 2) = Format(Now, "dd-mm-yy")
        End If
    End If
End Sub
Private Function findElevNavn(nr)
Dim ræk As Integer
    With ActiveWorkbook.Sheets("Elever")
        For ræk = 2 To 999
            If nr = .Range("A" & ræk) Then
                findElevNavn = .Range("B" & ræk)
                Exit Function
            End If
        Next ræk
    End With
   
    findElevNavn = ""
End Function

Obs: Rettelse i første If-sætning

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim elevNr As Integer, navn As String
    If Target <> "" And Target.Column = 1 And Sh.Name <> "Elever" Then
        elevNr = Target
       
        elevnavn = findElevNavn(elevNr)
        If elevnavn <> "" Then
            Target.Offset(0, 1) = elevnavn
            Target.Offset(0, 2) = Format(Now, "dd-mm-yy")
        End If
    End If
End Sub
Private Function findElevNavn(nr)
Dim ræk As Integer
    With ActiveWorkbook.Sheets("Elever")
        For ræk = 2 To 999
            If nr = .Range("A" & ræk) Then
                findElevNavn = .Range("B" & ræk)
                Exit Function
            End If
        Next ræk
    End With
   
    findElevNavn = ""
End Function

Hej Super tekst

Endnu engang 1000 tak for hjælpen..
Vil blive glad for filen....har du min mail fra sidste uge ??
Svar også lige så du kan få point

Du får et svar - jeg sender filen.

Tak Supertekst

Hej igen Supertekst

Er bare så glad for alt det du har givet mig og syntes det er imponerende alt det du kan.
Lige til sidst ( håber jeg ) er det mulig at i cellen efter dato kan den selv skrive hvem der er loggen på ??