VBA - text til tal
Hej,Jeg har lavet dette til at vælge mit data ark, vælge alle fyldte celler i det, og konvertere dem fra text format til tal. Den virker fint, men synes den tager rigtigt lang tid at køre.
Der er tale om et ark med 27 kolonner og 663 rækker.
Sub Konverter_text_til_tal()
'
' Konverter_text_til_tal Makro
Worksheets("Data").Activate
ActiveSheet.UsedRange.Select
Dim rng As Range
Set rng = Selection
For Each celle In Selection
If celle <> "" Then
celle.NumberFormat = 0
If IsNumeric(celle.Value) Then
celle.Value = celle.Value * 1
End If
End If
Next
Worksheets("ark1").Activate
'
End Sub