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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen