grafis macro

Hvilke type kalender er der tale om?

Prøv at sende filen til mig. @-adresse under min profil - det er vist det nemmeste...

Koden er anbragt under det relevante ark med
MakskinNavn i A og Eftersynsdato i B og Kalender

Dim maskinRække As Long, dato As String
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Row >= 3 And Target.Row <= 11 And _
        Target.Column >= 3 And Target.Column <= 9 And _
            IsNumeric(Target.Value) And Target.Value <> "" = True Then
                dato = Target.Value & ". " & Range("C1")
               
                If maskinRække > 0 Then
                    Cells(maskinRække, 2) = dato
                    maskinRække = 0
                End If
    Else
        If Target.Column = 1 Then
            maskinRække = Target.Row
        End If
    End If
End Sub

Rem Version 2
Rem Sæt x i maskinrækken og klik på kalenderdato (Enter er ikke nødvendigt)

Dim maskinCelle As String
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Row >= 15 And Target.Row <= 30 And Target = "x" Then
        maskinCelle = Target.Address
    End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Row >= 1 And Target.Row <= 12 And Target.Value <> "" And maskinCelle <> "" Then
        Range(maskinCelle) = Format(Target.Value, "mm-dd")
        maskinCelle = ""
    End If
End Sub

afregning?