Kun tekst

Du ønsker altså alle tal siet fra?

F.eks. skal:

a01bcd02e

vises som:

abcde

Ja, med vba,
ellers
hvis teksten altid starter med fx 3 tal,
kan det løses i Excel
finb

Hej natkatten

jeg vil gerne have en function som den skriver om, jeg har fundet en men jeg ikke rigtigt få den tilat virke.

Public Function ReturnAlpha(ByVal sText As String) As String
'PURPOSE: To return only the alpha characters A-Z or a-z and spaces in a string.
        Dim iTextLen As Integer = Len(sText)
        Dim n As Integer 'loop counter
        Dim sChar As String = ""
      For n = 1 To iTextLen 'from first to last characters
        sChar = Mid(sText, n, 1)
        If IsAlpha(sChar) Then
        ReturnAlpha = ReturnAlpha + sChar
      End If
      Next
End Function

Men den kommer med en fejl i linie Dim iTextlen og linie Dim sChar.

Jeg har også prøvet denne men den kan jeg heller ikke helt få tilat virke.

    Private Function IsAlpha(ByVal sChr As String) As Boolean
        IsAlpha = sChr Like "[A-Za-z( )]"
    End Function


Jeg ved ikke om det er fordi de er skrevet til en gammel excel, jeg bruger excel 2007

kan i hjælpe mig

Prøv med denne UDF:

Function KunTekst(rng As Range) As String

Dim intChrCnt As Integer
    For intChrCnt = 1 To Len(rng)
        If IsNumeric((Mid$(rng, intChrCnt, 1))) = False Then
            KunTekst = KunTekst & Mid$(rng, intChrCnt, 1)
        End If
    Next
   
End Function

Oki, men hvordan sætter jeg den ind i regnearket?

Skal den skrives sådan her:

=Kuntekst(C2)

??

Muligvis er det ikke et problem, men:

=KunTekst(A1) hvor A1 indeholder for eksempel 123,45 ABC 678,00 vil returnere: ,ABC,

Det problem vil jeg ikke have, da jeg kun har A-Z og a-z og tal 0-9, men hvordan kalder jeg den funktion i en celle, jeg får denne fejl i den celle hvor jeg skriver.

#NAVN?

Du skal sætte den ind som et module i VBA-editoren og så kalde den som vist af dkhanknu.

så virker den takker mange gang, skriv et svar så får i begge point

I øvrigt bør den jo retteligt hedde IkkeTal ;-)

Et svar kommer her