Hej Johannes,
Jeg ved ikke om du er bekendt med VBA, men det er nok det mest rigtige i dette tilfælde.
Hvis du skal have hjælp til at indsætte koden i dit regneark, så sig endelig til.
Efter du har sat koden ind, vil du have 2 ekstra funktioner i Excel.
Skriv =FindBogstaver(A1)
Formlen finder alle bogstaver i cellen A1
Skriv =FindTal(A1)
Formlen finder alle tal i cellen A1
Værsgo´
Function FindBogstaver(Target As Range)
Dim Output As String
Dim i As Integer
Output = ""
If Len(Target.Value) = 0 Then GoTo EndFunction
For i = 1 To Len(Target.Value)
If Not IsNumeric(Mid(Target, i, 1)) Then Output = Output & Mid(Target, i, 1)
Next i
EndFunction:
FindBogstaver = Output
End Function
Function FindTal(Target As Range)
Dim Output As String
Dim i As Integer
Output = ""
If Len(Target.Value) = 0 Then GoTo EndFunction
For i = 1 To Len(Target.Value)
If IsNumeric(Mid(Target, i, 1)) Then Output = Output & Mid(Target, i, 1)
Next i
EndFunction:
FindTal = Output
End Function
//Allan
Forum start
Forummets regler
Sådan uploader du filer
Marker Accepteret løsning
Del dine regneark
Excel-regneark.dk
Adskille cifre og bogstaver
Emne funktioner
