Excel waarde

[Duncann]

Hallo,
Ik ben op dit moment bezig met een klein project waarbij ik gebruik maak van Excel. Ik heb hierbij te maken met hetvolgende:



Hierbij staat 'e' voor 10 en 'g' voor 1.
Dus staat het voor:




Nu heb ik zegmaar de volgende "codes":
a = 150
b = 100
c = 50
d = 20
e = 10
f = 5
g = 1

En veel verschillende waardes.

Is het mogelijk om die 2 waardes in code automatisch in te vullen? Dit zou namelijk enorm veel tijd besparen.

(Sorry voor de onduidelijkheid. Het zou een heel lang duren als ik het precies uit zou leggen.)

 

[spaarie]

Ik kan niet veel beters verzinnen dan dit... :S

Private Sub Worksheet_Change(ByVal target As Range)
    If Not Intersect(target, Range("C2:D" & Range("C" & Rows.Count).End(xlUp).Row)) Is Nothing Then
        If Right(target, 1) = "a" Then
        waarde = 150
            target.Value = Mid(target.Value, 1, Len(target.Value) - 1) & waarde
        End If
        
        If Right(target, 1) = "a" Then
        waarde = 150
            target.Value = Mid(target.Value, 1, Len(target.Value) - 1) & waarde
        End If

        If Right(target, 1) = "b" Then
        waarde = 100
            target.Value = Mid(target.Value, 1, Len(target.Value) - 1) & waarde
        End If

        If Right(target, 1) = "c" Then
        waarde = c
            target.Value = Mid(target.Value, 1, Len(target.Value) - 1) & waarde
        End If
        
        If Right(target, 1) = "d" Then
        waarde = 20
            target.Value = Mid(target.Value, 1, Len(target.Value) - 1) & waarde
        End If
        
        If Right(target, 1) = "e" Then
        waarde = 10
            target.Value = Mid(target.Value, 1, Len(target.Value) - 1) & waarde
        End If

        If Right(target, 1) = "f" Then
        waarde = 5
            target.Value = Mid(target.Value, 1, Len(target.Value) - 1) & waarde
        End If
        
        If Right(target, 1) = "g" Then
        waarde = 1
            target.Value = Mid(target.Value, 1, Len(target.Value) - 1) & waarde
        End If
    End If
End Sub

 

[Ad Becude]

Dit zou ook nog een mogelijkheid zijn.