Komma verwijderen en bestand versturen

[martijnbos]

Ik heb twee kleine problemen met Excel

1. Ik heb een getal waar de komma uit moet. Dit doe ik dmv onderstaande macro.

Columns("A:A").Select
    Selection.Replace What:=",", Replacement:="", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False
    Selection.NumberFormat = "0.00"

Het originele getal is bijvoorbeeld 40553,4988135417.00. Het getal moet worden405534988135417.00

Maar nadat bovenstaande macro gedraaid heeft, komt er onderstaande waarde uit.
405536164878472,00

Iemand enig idee wat er fout staat in de macro?

2. Ook draait er een macro die automatisch het bestand moet emailen. Hier gebruik ik deze macro

 Dim wb As Workbook
    Set wb = ActiveWorkbook
    
If Val(Application.Version) >= 12 Then
        If wb.FileFormat = 51 And wb.HasVBProject = True Then
            MsgBox "There is VBA code in this xlsx file, there will be no VBA code in the file you send." & vbNewLine & _
                   "Save the file first as xlsm and then try the macro again.", vbInformation
            Exit Sub
        End If
    End If
 
    On Error Resume Next
        wb.SendMail "edi+14811.mike@####", _
              Sheets("blad1").Range("b2")
    
    On Error GoTo 0

    End If
End Sub

In office2003 ging dit altijd prima, maar in office 2010 blijft het bestandje in de map Postvak uit staan. Het originele bestand heeft gewoon als extensie .xls

Hoop ook dat iemand deze vraag kan beantwoorden

 

[Haije]

Martijn,

zou je (een deel van) het bestand waar dit in staat eens kunnen posten?
Uiteraard ontdaan van evt "gevoelige" info

 

[martijnbos]

Sheet

Haije,


Hierbij de sheet.

 

[Haije]

Martijn,

mbt vraag 1
volgens mij heeft dit te maken met het feit dat het genoemde getal ontstaat uit een formule en o.a. de actuele tijd bevat.

Die actuele tijd wijzigt constant.

mbt vraag 2:
omdat ik nog werk met 2003, kan ik daar geen zinnig antwoord op geven.

 

[martijnbos]

Haije,

punt 1: klopt. De cel wordt opgebouwd aan de hand van een formule.
Maar op een gegeven moment kopieert de macro het getal als waarde.
Dus daar kan het volgens mij niet aan liggen

 

[robdgr]

Gokje

Martijn,

Vraag 1: volgens mij wordt die komma veroorzaakt door

Selection.NumberFormat = "0.00"

Zet daar eens een ' voor en kijk wat er gebeurt of wijzig in

Selection.NumberFormat = "0,00"

.

 

[martijnbos]

beste allemaal,

Het is opgelost. Het probleem dat de EDI server(waar dit bestand heen gaat) het niet accepteerde was dat kolom A 18 karakters was. Het probleem was dus niet de komma.

Het dit opgelost door het getal via functie midden terug te brengen naar het juiste aantal posities.

Maar bedankt voor het meedenken.