hat jemand eine Formel parat, welche mir in einem
markierten Bereich bei den Zahlen alle am Schluß stehenden
Nullen entfernt?
Danke und Gruß
Walter
Option Explicit
Sub Main()
Dim rngRange As Range
For Each rngRange In Selection
While Right(rngRange, 1) = 0
rngRange = Left(rngRange, Len(rngRange) - 1)
Wend
Next rngRange
End Sub
Eventuell auch per Formel oder Zahlenformat. Vielleicht hat da noch jemand eine Idee. ;-)=SUMMENPRODUKT((0&TEIL(SUMMENPRODUKT((0&TEIL(A1;ZEILE($1:$16);1))*10^(ZEILE($1:$16)-1));ZEILE($1:$16) ;1))*10^(ZEILE($1:$16)-1))
Gruess Hansueli=SUMMENPRODUKT((0&TEIL(SUMMENPRODUKT((0&TEIL(A1;ZEILE($1:$16);1))*10^(ZEILE($1:$16)-1));ZEILE($1:$16) ;1))*10^(ZEILE($1:$16)-1))
Gruess Hansueli=WECHSELN(A1/10^15;",";) *1
vorziehen, um die Längeneinschränkung auf 6 Nullen etwas aufzuweichen. Und natürlich muss auch hier wieder darauf verwiesen werden, dass das Dezimalzeichen länderspezifisch ggf. angepasst werden muss ; -) .... Schweizer und so ....;-) =TEIL(--("0,"&A1);3;16)
wenn als zahl benötigt:
=--TEIL(--("0,"&A1);3;16)
=LINKS(A1;MAX(WENN(ZEILE($Z$1:$Z$99)"0"; ZEILE($Z$1:$Z$99)))))
(länge hier auf 99 begrenzt, kann aber bei Bedarf angepasst werden (dann dauert die Berechnung halt länger)
=LINKS(A1;VERWEIS(9;1/(-TEIL(A1;SPALTE(1:1);1)
Gruß Werner