03. juli 2006 - 19:26Der er
3 kommentarer og 1 løsning
Skille tal fra tekst - til "excellent"
X Jeg har en lang kolonne, som indeholder både tal og tekst i samme celle. Tal er fra rekvistionsnr og tekst er leverandør. Fx "32554 TDC" eller "DSB 1122". Dvs. tal står både foran og efter tekst og tal er af forskellig længde. Er der en der har en makro til denne opgave? Jeg har søgt her på siden uden held.
For i = 1 To 100 Indhold = ActiveCell.Value x = Len(Indhold) For j = 1 To x If IsNumeric(Mid(Indhold, j, 1)) Then tal = tal & Mid(Indhold, j, 1) Next ActiveCell.Offset(0, 0).Value = tal tal = "" ActiveCell.Offset(1, 0).Activate Next ActiveCell.End(xlUp).End(xlUp).Activate
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.