Sub konverterTilNumerick() Dim ræk As Long, kol As Integer, værdi As Double Application.ScreenUpdating = False
For ræk = 2 To 65000 If Range("A" & ræk) = "" Then Application.ScreenUpdating = True MsgBox "Afsluttet" Exit Sub Else For kol = 6 To 10 Cells(ræk, kol).Select If IsNumeric(Selection) = True Then værdi = Selection ActiveCell.FormulaR1C1 = værdi Selection.NumberFormat = "0.00" End If
With Selection .HorizontalAlignment = xlRight End With
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.