• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Excel herkent cijfers niet

Status
Niet open voor verdere reacties.
K

Karin Computer

Nieuwe gebruiker
Lid geworden
14 nov 2007
Berichten
3
Hallo,

Ik heb mijn postbankafschriften handmatig gekopieerd naar Excel, maar ik heb iets fout gedaan, en nu kan ik de getallen niet laten optellen.

Wat ik heb gedaan: plakken speciaal > HTML > plakopties > aanpassen aan opmaak van bestemming

Ziet er goed uit, alleen kan ik de getallen niet bewerken. Ik kan er wel in typen, maar er geen formules op los laten. Celeigenschappen biedt geen uitkomst, en werkt ook niet voor de data.
Hoe kan ik ze zo converteren dat dat wel gaat?
Ik ga liever niet opnieuw importeren, want ik heb alle getallen al in mijn Excel bestand weggezet, en dat was veel werk.

Wie o wie kan mij helpen?

Groetjes Karin
 
Misschien lukt het om in de cel te gaan staan en op F2 te drukken. Dan ontgrendel je de cel en kun je hem weer bewerken. Wel een voor een.
 
Beste jogu42: dank je wel, maar F2 doet helaas niks, ik kan nog steeds de cellen niet optellen

Beste alberto10: ik snap eigenlijk niet wat je bedoelt...
 
Karin Computer,
Als uw getal in Cel A1 staat zet u in een andere Cel
Code: 
Waarde(A1)
 
Beste Karin,

Het kan zijn dat er spaties in de cel staan. Selecteer de hele kolom, druk op Ctrl+H en vervang een spatie door [niets].

Het kan ook zijn dat de opmaak van de cellen niet klopt. Selecteer een lege cel, klik op kopiëren.
Selecteer de kolom met jouw getallen en druk op Vtrl+G (Bewerken > Ga naar), klik op Speciaal en vink het rondje aan voor constanten. Klik op OK. Klik dan op Bewerken > Plakken special . Waarden + vermenigvuldigen. OK.

Kun je nu wel optellen?

Het kan ook zijn dat eventuele mintekens achter het getal staan zodat Excel alles als tekst ziet. is dat zo?

Richard
 
Probeer dit eens:
Tik het getal 1 in, in een willekeurige cel
Kopieer deze cel (ctrl C)
Markeer de de cellen waarin de bedragen staan (waarmee je niet kunt rekenen)
Kies plakken speciaal => vermenigvuldigen
(alle cellen worden nu met 1 vermenigvuldigd, de waarden blijven dus hetzelfde maar de eigenschappen van de velden worden hierdoor aangepast)
Bij mij werkt dat in 99 van de 100 gevallen.
 
@Richard: Je hebt gelijk: er staat een spatie voor het getal en een erachter.

@Bob: Jouw methode is niet nodig, want na het weghalen van de spaties geeft =isgetal(g2) een WAAR

@Karin: ik snap niet dat je niet gewoon importeert als csv-bestand. Ik gebruik die methode al langer en het werkt prima. Onderstaande code zorgt voor de kolomscheiding met een lege kolom voor een toevoeging van een postnaam. Ongetwijfeld kan deze korter en mooier, maar hij werkt zo.

Code: 
Sub Pb_in_kolommen_scheiden()
'
' Pb_in_kolommen_scheiden Macro
'

'
Application.ScreenUpdating = False
    Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
        :=Array(Array(1, 4), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
        Array(7, 1), Array(8, 1), Array(9, 1)), TrailingMinusNumbers:=True
    Cells.Select
    With Selection.Font
        .Name = "Verdana"
        .Size = 9
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    Selection.ColumnWidth = 16.75
    Range("A1").Select
    Columns("A:A").ColumnWidth = 8.38
    Columns("A:A").ColumnWidth = 10.25
    Columns("B:B").ColumnWidth = 27.38
    Columns("C:C").Select
    Selection.EntireColumn.Hidden = True
    Columns("G:G").Select
    Selection.NumberFormat = "$#,##0.00_);[Red]($#,##0.00)"
    Columns("H:H").Select
    Selection.Insert Shift:=xlToRight
    Range("H2").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-2]=""bij"",RC[-1],-RC[-1])"
    Range("H2").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(ISBLANK(RC[-1]),"""",IF(RC[-2]=""bij"",RC[-1],-RC[-1]))"
    Range("H2").Select
    Selection.AutoFill Destination:=Range("H2:H102"), Type:=xlFillDefault
    Range("H2:H102").Select
    ActiveWindow.ScrollRow = 60
    ActiveWindow.ScrollRow = 59
    ActiveWindow.ScrollRow = 58
    ActiveWindow.ScrollRow = 57
    ActiveWindow.ScrollRow = 56
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 54
    ActiveWindow.ScrollRow = 53
    ActiveWindow.ScrollRow = 52
    ActiveWindow.ScrollRow = 51
    ActiveWindow.ScrollRow = 50
    ActiveWindow.ScrollRow = 48
    ActiveWindow.ScrollRow = 47
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 44
    ActiveWindow.ScrollRow = 43
    ActiveWindow.ScrollRow = 42
    ActiveWindow.ScrollRow = 41
    ActiveWindow.ScrollRow = 40
    ActiveWindow.ScrollRow = 39
    ActiveWindow.ScrollRow = 38
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 36
    ActiveWindow.ScrollRow = 35
    ActiveWindow.ScrollRow = 34
    ActiveWindow.ScrollRow = 33
    ActiveWindow.ScrollRow = 32
    ActiveWindow.ScrollRow = 31
    ActiveWindow.ScrollRow = 30
    ActiveWindow.ScrollRow = 29
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 27
    ActiveWindow.ScrollRow = 26
    ActiveWindow.ScrollRow = 25
    ActiveWindow.ScrollRow = 24
    ActiveWindow.ScrollRow = 23
    ActiveWindow.ScrollRow = 22
    ActiveWindow.ScrollRow = 21
    ActiveWindow.ScrollRow = 20
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 18
    ActiveWindow.ScrollRow = 17
    ActiveWindow.ScrollRow = 16
    ActiveWindow.ScrollRow = 15
    ActiveWindow.ScrollRow = 14
    ActiveWindow.ScrollRow = 13
    ActiveWindow.ScrollRow = 12
    ActiveWindow.ScrollRow = 11
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 9
    ActiveWindow.ScrollRow = 8
    ActiveWindow.ScrollRow = 7
    ActiveWindow.ScrollRow = 6
    ActiveWindow.ScrollRow = 5
    ActiveWindow.ScrollRow = 4
    ActiveWindow.ScrollRow = 3
    ActiveWindow.ScrollRow = 2
    ActiveWindow.ScrollRow = 1
    Columns("F:G").Select
    Selection.EntireColumn.Hidden = True
    Columns("E:E").Select
    Selection.EntireColumn.Hidden = True
    Columns("I:I").Select
    Selection.Insert Shift:=xlToRight
    Range("A2:K50").Select
    Selection.Copy
Application.ScreenUpdating = True
End Sub

Overigens, een zoek en vervang op de hele kolom werkt niet. Het bedrag krijg je door toepassing van:
Code: 
=WAARDE(DEEL(G12;2;VIND.SPEC(",";G12;1)-2)&","&DEEL(G12;VIND.SPEC(",";G12;1)+1;2))
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan