Automatisk start af makro, når data ændre sig

Placer denne kode på arkets fane i VBA, og indsæt din kode som vist i eksemplet.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim KeyCellD28 As Range
    Set KeyCellD28 = Range("D28")
    If Not Application.Intersect(KeyCellD28, Range(Target.Address)) Is Nothing Then
        'Indholdet af din makro.......
    End If
End Sub

----------------------------------------------------------
Du kan evt. tilføje flere celler i denne linje - adskilt med et komma:
    Set KeyCellD28 = Range("D28")
ændres f.eks. til:
    Set KeyCellD28 = Range("D28, D29, D30")

Sorry erikjuul at jeg har glemt at svare dig.

Tak for dit svar, præcis det jeg skulle bruge, send et svar og du får point

Igen undskyld for det sene svar

Kommer her.....