Punt naar komma werkt niet, voor de opname wel

[ExcelTonnie]

Ik wil data met een punt omzetten naar een komma.

Wanneer ik dit in een tabblad via het menu, vervangen doe . naar , dan werkt dit prima.
Dan moet ik nogmaals veranderen van komma naar komma.
Na de opname wil deze makro niet werken.

    Cells.Replace What:=".", Replacement:=",", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Cells.Replace What:=",", Replacement:=",", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

 

[AccessGuru]

Dan moet ik nogmaals veranderen van komma naar komma.

Dat snap ik niet. Wellicht een voorbeeldbestandje? Volgens mij vervangt-ie in één keer de punten correct. Dus hoef je 'm niet twee keer te doen. Hooguit zit je met de uitlijning van de cellen.

    With Selection
        .Replace What:=".", Replacement:=",", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
        .NumberFormat = "General"
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlTop
    End With

 

[ExcelTonnie]

Het bestand is te complex om even een deel ervan eruit te halen als voorbeeld.

Misschien zegt dit jullie iets.

Een meetapparaat genegeerd een getal met komma en 2 decimalen als ik dit in een excelblad laten plaatsen.
Echter wanneer ik het apparaat het getal laten zetten via een txtbox in een userform dan plaats die hetzelfde getal echter met een punt i.p.v. een komma.
Hoe kan ik zorgen dat hij ook een komma genereerd.

ws1.range("A1").value=txtmeting1

 

[edmoor]

Zet de regionale instellingen in Windows op Nederlands.

 

[ExcelTonnie]

Zet de regionale instellingen in Windows op Nederlands.

Daar staat die op.

 

[edmoor]

Kijk dan in de geavanceerde opties van Excel hoe dit is ingesteld:

 

[snb]

Simpul zó:

ws1.cells(1)=replace(txtmeting1,".",",")

 

[JEC.]

Een punt in een punt veranderen kan hier ook helpen. Klinkt gek, maar het werkt

Sub jec()
Sheets(1).UsedRange.Replace ".", "."
End Sub

 

[AccessGuru]

Klinkt gek, maar het werkt

Werkt zelfs beter, omdat je dan ook gelijk de uitlijning van de cellen op orde hebt.

 

[ExcelTonnie]

Dank voor jullie hulp echter heb ik iets veranderd waardoor de invoer ook gelijk veranderd van punt naar komma.

Range("W16:CN16").Value = Range("W16:CN16").Value