Konvertere tekst til talværdi og bevare tal

Kunne du evt. prøve at sende en kopi af filen / model sådan som den ser ud pt og fremover. Må det evt. være via VBA?

@-adresse under min profil.

og så velkommen til Eksperten.

Dim erstatTabel As Variant
Dim antalRækker As Long
Dim ræk As Long
Const startRæk = 4
Public Sub erstatN_A()
Dim tVærdi As String
Rem indsæt værdier i tabel
    erstatTabel = Array(, 34.81, 41.92, 37#, 46.33, 36.31)
   
    antalRækker = ActiveCell.SpecialCells(xlLastCell).Row
   
    Application.ScreenUpdating = False
    For ræk = startRæk To antalRækker
        If Range("A" & ræk) <> "" Then
            If IsNumeric(Range("D" & ræk)) = False Then
                tVærdi = Range("C" & ræk)
               
                If tVærdi <> "" Then
Rem Beregn index i tabel
                    ix = Asc(tVærdi) - 64
                    Range("D" & ræk).Value = erstatTabel(ix)
                End If
            End If
        End If
    Next ræk
    Application.ScreenUpdating = True
   
    MsgBox "Erstatning udført"
End Sub

Tusind tak! Fungerer perfekt! Den løsning var jeg aldrig kommet frem til uden hjælp!

Selv tak - en fornøjelse..