Hallo Sabi,
ich würde ein solches Makro niemals auf meine Daten loslassen:
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(rngFund.Value) * 1000 & "W"
Set rngFund = .FindNext(rngFund)
Loop
End With
End Sub
aber das musst du selbst wissen.
Was passiert eigentlich, wenn jemand in deine Zelle folgendes schreibt:
42 ist kWasi meine Lieblingszahl
;-)
Im Ernst: Meiner Meinung nach gehören Zahlen und Einheiten nicht in die gleiche Zelle. Mit Zahlen will ich rechnen (evtl. nicht jetzt sofort, dafür aber vielleicht später mal) und das kann ich nur, wenn die Zelle ausschließlich die Zahl beinhaltet. (Ja, man kann die Zelle auch so formatieren, dass die Einhait angezeigt wird, jedoch der Zellwert weiterhin die Zahl ist. Das finde ich auch ok). Excel ist doch zum Rechnen da, sonst kann man das auch mit paint machen ;-).
Grüße, Ulrich
|