Ich habe eine Liste, in der die Zahlen durch Punkte getrennt sind. Ich möchte diese Punkte durch normale Kommes ersetzen. Wie würde dazu der Makro Code aussehen?
Grüße
M.Slansky
Sub Makro1()
Cells.Replace What:=".", Replacement:=":", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub
Sub PunktDurchKomma()
Dim Zelle As Range, Bereich as Range
Set Bereich = Selection
For Each Zelle In Bereich
If Not IsEmpty(Zelle) Then
Zelle.Value = Replace(Zelle.Value, ".", ",") * 1
' Zelle.Value = Application.WorksheetFunction.Substitute(Zelle.Value, ".", ",") * 1 'für ältere Excelversionen z.B. Excel 97
End If
Next Zelle
End Sub