Indtast et tal, vis et andet

Højreklik på fanebladet og vælg "Indsæt programkode" og kopier nedenstående kode hertil. Koden ganger tallet i A2 med 7,5 - du må selv lige rette det til den rette kurs.



Dim ChangedA2 As Boolean

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

If Target.Address = "$A$2" And Not ChangedA2 Then
    ChangedA2 = True
    Target.Value = Target.Value * 7.5
Else
    ChangedA2 = False
End If

End Sub

Nedenstående gælder for alle celler i området A2:A5.


Dim ValueChanged As Boolean

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

If Not Application.Intersect(Target, Range("A2:A5")) Is Nothing And Not ValueChanged Then
    ValueChanged = True
    Target.Value = Target.Value * 7.5
Else
    ValueChanged = False
End If

Perfekt!

A' si'r tak :-)