0,18 => 0
ah, ja, das hatte ich nicht bedacht:
Sub nichtSogut()
Dim rngFund As Range
With ActiveSheet.Range("A:A")
Set rngFund = .Find("kW", LookIn:=xlValues, lookat:=xlPart, MatchCase:=True)
Do While Not rngFund Is Nothing
rngFund.Value = Val(Replace(Replace(rngFund.Value, ".", ""), ",", ".")) * 1000 & "W"
Set rngFund = .FindNext(rngFund)
Loop
End With
End Sub
Grüße, Ulrich
|