Hej
Försöker byta ut kommatecken i ett excelark mot punkt.
arket skall sedan sparas ner till namn.csv fil.

Programmet som skall ta emot filen kräver punkt i stället för komma.

Mitt problem är att jag inte riktigt får min kod att fungera.


'Har även försökt med som format
Columns("K:K").Select
Selection.NumberFormat = "General"
Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=True
Selection.NumberFormat = "0.00"

Är det någon som har någon annan lösning som fungerar.

//PA

Ett sätt att lösa detta på är att skapa ett macro som löser problemet. Tryck alt + F11 för att få upp macroeditorn. Infoga en modul och klistra in följande kod:

Sub ReplaceComma()
Range("K2").Select
Do While ActiveCell.Value <> ""
ActiveCell.Value = "'" & Replace(ActiveCell.Value, ",", ".")
ActiveCell.Offset(1, 0).Select
Loop
End Sub

Range("K2") betyder att den startar i cell K2. Byt till den cell du vill starta i, eller ta bort den raden och se till att den cell du vill starta från är markerad. Kör sedan macrot. Det fortsätter nedåt så länge det står något i cellen.

Mvh. Roffe

Hej
Kanon.
Äntligen fungerar det!! Tack

/Per Arne

Fast det där känns väldigt ineffektivt.
Skulle köra med excels inbyggda replace istället, precis som Per Arne gjorde från början.

Eventuellt något sånt här alltså:

<code>
With Columns("K:K")
.NumberFormat = "@"
.Replace(",", ".")
.NumberFormat = "0.00"
End With
</code>

Har inte excel här, så jag har inte testat...