Makro og VBA - Adskille cifre og bogstaver

Adskille cifre og bogstaver

Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Makro og VBA
Forum beskrivelse: Hjælp til Makroer og VBA-programmering
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=45
Udskrevet den: 17.Maj.2024 kl. 07:57

Emne: Adskille cifre og bogstaver

Besked fra: Johannes
Emne: Adskille cifre og bogstaver
Posteringsdato: 16.Jun.2010 kl. 20:55

Jeg har en kolonne, hvor cellerne indeholder kan indeholde både cifre og bogstaver. Bogstaver altid til højre og kan bestå af op til 3 stk.

Eksempel

71ab

465cfd

Jeg har brug for en løsning, hvor tallene og bogstaver indsættes i hver sin kolonne. I det første eksempel altså 71 i kolonne med tal og ab i kolonne med bogstaver.

Svar:

Besked fra: Allan
Posteringsdato: 16.Jun.2010 kl. 21:40

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

Besked fra: Johannes
Posteringsdato: 16.Jun.2010 kl. 22:31

Hej Allan

Mange tak for løsningen. Jeg er ikke så dus med VBA, så jeg vil gerne tage imod dit tilbud om indsætning af koder i regneark.

//Johannes

Besked fra: Allan
Posteringsdato: 17.Jun.2010 kl. 09:35

Hej Johannes,

Intet problem

Her er en fil som indeholder koden og et par eksempler på brugen.

Hent den her: /uploads/1/Find_Bogstaver_Eller_Tal_I_Tekst.xls - uploads/1/Find_Bogstaver_Eller_Tal_I_Tekst.xls

HUSK at dette ark skal åbnes MED MAKROER for at virke.

Rigtig god fornøjelse!

//Allan

Besked fra: Johannes
Posteringsdato: 17.Jun.2010 kl. 18:16

Hej Allan

Mange mange tak for en flot hjælp.

Johannes

Besked fra: Allan
Posteringsdato: 18.Jun.2010 kl. 10:54

Velbekomme Johannes og tak for din tilbagemelding

Det var godt du kunne bruge det

//Allan