Skille tal fra tekst

Denne smider tal i kolonne til højre for din kolonne
og tekst 2 kolonner til højre

Sub koverter()

Dim i, j, x, Indhold, tal, txt

Indhold = ActiveCell.Value
  x = Len(Indhold)
  For j = 1 To x
    If IsNumeric(Mid(Indhold, j, 1)) Then tal = tal & Mid(Indhold, j, 1)
    If Not IsNumeric(Mid(Indhold, j, 1)) Then txt = txt & Mid(Indhold, j, 1)
  Next
  ActiveCell.Offset(0, 1).Value = tal
  ActiveCell.Offset(0, 2).Value = txt
tal = "": txt = ""
ActiveCell.Offset(1, 0).Activate

End Sub

tildel makro en genvejstast, og marker første celle - kør makro via genvejstast

Tak for det! Hvordan giver jeg dig point??

velbekom
blot marker box med mit navn, og klik accepter

det var da vist ikke hensigten eller hur?

Kom vist til at give mig selv pointene - hvordan får jeg nu givet dig pointene? Skal jeg oprette et nyt spørgsmål og så give dig dine point?

ja det er løsningen :-)