macro tekst omzetten naar getal

[kczb]

Ik heb een hele rij getallen die als tekst worden weergegeven. Omzetten naar getallen lukt als volgt:

1.Typ in een lege cel het getal 1.
2.Selecteer de cel en klik in het menu Bewerken op Kopiëren.
3.Selecteer het als tekst opgeslagen bereik van getallen dat u wilt converteren.
4.Klik op Plakken speciaal in het menu Bewerken.
5.Klik onder Bewerking op Vermenigvuldigen.
6.Klik op OK.
7. Verwijder de inhoud van de cel die u bij de eerste stap hebt opgegeven.

dit werkt perfect, alleen als ik het opneem als macro, dan wordt deze bewerking niet uitgevoerd.
Ook selecteren cellen en celeigenschappen veranderen werkt niet.

Iemand een idee?

 

[tilpi]

Zoiets moet het toch doen als je de ranges even aanpast

   Range("B1").Copy
    Range("A1:A5").PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
        SkipBlanks:=False, Transpose:=False

Mvg

Piet

 

[kczb]

Zoiets moet het toch doen als je de ranges even aanpast

   Range("B1").Copy
    Range("A1:A5").PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
        SkipBlanks:=False, Transpose:=False

Mvg

Piet

dank voor je reactie!,

Zo ziet mijn macro er dus ook uit...alleen werkt het niet. Tijdens het opnemen van de macro doet hij het wel.

bijgesloten vind je een xls bestand met een rijtje wat ik probeer om te zetten in getallen met macro.

 

[tilpi]

Je xls bestand is een txt bestand geworden

Mvg

Piet

 

[kczb]

Je xls bestand is een txt bestand geworden

Mvg

Piet

Forum laat uploaden van xls bestanden niet toe. Als je de txt verandert in xls is het te openen met excel

bedankt alvast voor het proberen !

 

[tilpi]

Maar wel een gezipt xls bestand.

Mvg

Piet

 

[kczb]

hierbij de zip
:thumb:

 

[Wigi]

Ik kan er weinig over zeggen aangezien ik ook niet begrijp wat er aan de hand is, maar dit werkt:

Sub wigi()
    With Range("A1:A6")
        .Replace ".", ""
        .Replace ",", "."
    End With
End Sub

Wigi

 

[jpvs]

Sub TekstNaarGetallen()
'made by emil seidenbecher versie 20-01-2004
'met dank aan Ingrid Baplue (Microsoft MVP - excel)
[B]'zet getalteksten om in getallen binnen een selectie[/B].
Dim C As Range, T As String, T2 As Integer, T3 As Integer
    Application.ScreenUpdating = False
    On Error Resume Next
    For Each C In Selection
        C.Replace _
            What:=Chr(160), _
            Replacement:=Chr(32)
        'vaste spaties omzetten in spaties
        T = Trim(C.Value)
        With Application.WorksheetFunction
            T2 = .Find(".", T)
            T3 = .Find(".", T, T2 + 1)
        End With
        If IsEmpty(C) Then
        'overslaan lege cellen
        ElseIf LCase(C.Value) Like "*[a-z]*" Then
        'overslaan cellen met letters
        ElseIf C.Value Like "*[@$#;:/\]*" Then
        'overslaan tekens
        ElseIf T3 - T2 = 2 Or T3 - T2 = 3 Then
        'twee punten in een getal overslaan
        Else
            If C.Value Like "*.*" Then
                C.Replace _
                    What:=".", _
                    Replacement:=""
            End If
            
            If IsNumeric(C) Then
            'datum getallen negeren
                C.NumberFormat = "general"
                'celopmaak instellen
                C.Value = C.Value * 1
            End If
        
        End If
    Next
    Application.ScreenUpdating = True
    On Error GoTo 0
End Sub

Pierre

 

[kczb]

dank voor jullie reactie...Dit werkt wel

bedankt! :thumb: