|
Hallo an alle! Ich habe ein Problem seit dem neuen Update von Excel.
Ich möchte ein Komma durch einen Punkt ersetzen, damit aus dem Text eine Zahl wird
zB. 1,2 (String) --> 1.2 (Zahl)
Ich habe bereits mit Makros einiges ausprobiert, und im Debugger hat es auch funktioniert, aber im Gesamtcode übergeht er den Codeschnipsel dann.
Ich habe es versucht mit:
Dim Zelle As Range
Dim SuchenNach As String
Dim ErsetzenDurch As String
SuchenNach = ","
ErsetzenDurch = "."
For Each Zelle In ActiveSheet.UsedRange
Zelle.Value = Application.Substitute(Zelle.Value, SuchenNach, ErsetzenDurch)
Next Zelle
Sowie mit:
Dim rng As Range
Set rng = ActiveSheet.Range("A2:G350").Find(",")
If rng Is Nothing Then
Else
Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
End If
als auch mit:
Columns("B:B").Select
Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
Application.CutCopyMode = False
Für meinen Code ist es notwendig, dass ein Punkt als Komma dient und ein Komma, um 1000er zu trennen, deshalb kann ich es nicht einfach unter Optionen ändern. Es funktioniert auch nicht, das Numberformat= "0.00" umzustellen.
Vielen Dank für jede Hilfe!
|