is als =

[Salvatoro]

Hoi again,

is het mogelijk om een code aan een cel te geven dat als je als voorbeeld 40 intypt excel 1 laat zien
39 = 2 en zo tot aan 1 dat ie dan 40 laat zien?

 

[AHulpje]

Dat kan:

 

[Salvatoro]

Dankjewel nu nog uitvinden hoe je dat gefixt hebt
Ahulpje hoe heb je dit gefixt

 

[AHulpje]

Druk eens op Alt+F11, dan zie je de macro.

 

[Salvatoro]

als ik op ALT+F11 druk krijg ik niets te zien ook als ik macro's weergeven druk niets

thx

 

[AHulpje]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count = 1 Then
        If Target.Value >= 1 And Target.Value <= 40 Then Target.Value = 41 - Target.Value
    End If
End Sub

 

[edmoor]

als ik op ALT+F11 druk krijg ik niets te zien ook als ik macro's weergeven druk niets

Heb je het bestand voordat je deze opende wel eerst gedeblokkeerd?

 

[snb]

werkt hier alleen met:

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False

    If (Target.Count = 1) * (Target \ 41 = 0) Then Target = 41 - Target

    Application.EnableEvents = True
End Sub