Makro

Kan laves på mange måder. Denne virker i et område i det aktive ark (i eksemplet området A2:A200 - tilpas selv området) og lader de fem første karakterer i cellen stå tilbage. Hvis disse er tal, så formateres det som sådan.

Sub FjernIndhold()
Dim omr As Range
Dim celle As Range
Dim antaltegn As Integer
Set omr = ActiveSheet.Range("A2:A100")
antaltegn = 5
Application.ScreenUpdating = False

For Each celle In omr
    If Len(celle.Value) > antaltegn _
    And IsNumeric(Left(celle.Value, antaltegn)) Then
    celle.Value = Left(celle.Value, antaltegn) * 1
    End If
Next celle

Application.ScreenUpdating = True
End Sub

ActiveCell.Value = Val(ActiveCell.Value)

Udskift selv cellen med de(n) celle(r) som du ønsker...

?? en macro eller en excel formel?

???  skriver du ikke selv, at det er en makro, du laver ???
Så er vores svar, jo, nok makro baseret :-)

fino :)

Snød du lige der, og gav dig selv pointene, selvom vi var 2, der svarede???

Nej, jeg har bare svaret... men den er ikke lukket.
der er bare ingen der er kommet med svar, men med kommentarer.
MEN det er Natkatten som er tættest på.