Slette bogstaver fra string

Er der altid tre bogstaver?

det er forskelligt!

... ellers var den jo forholdsvis nem

Prøv med:

Sub FjernBogst()
    For Each c In Range("A1:A100").Cells
        For i = 1 To Len(c.Value)
            If IsNumeric(Mid(c.Value, i, 1)) Then
                a = i
                Exit For
            End If
        Next i
        c.Value = Mid(c.Value, a, Len(c.Value))
    Next c
End Sub

Nå, jeg fik lige selv lavet:

Test = "ABC123"

Dim LResult As String
For I = 1 To Len(Test)
    Streng = Left(Test, 1)
    'MsgBox Streng
    If Not IsNumeric(Streng) Then
        LResult = Replace(Test, Streng, "")
       
        Test = LResult
    Else: GoTo Slut
    End If
Next
Slut:
MsgBox LResult

Ok, din kode er lidt smartere. Strengen løbes kun igennem en gang. Min kode fjerner til gengæld alle bogstaver og tegn, men det var jo ikke det jeg skulle bruge.

:-)