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ß WernerUm Nullen am Ende von Zahlen in Excel zu entfernen, kannst du folgende Methoden anwenden:
VBA-Makro:
Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
Klicke auf Einfügen > Modul, um ein neues Modul zu erstellen.
Füge den folgenden Code ein:
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
Schließe den VBA-Editor und markiere die Zellen, in denen du die Nullen entfernen möchtest.
Führe das Makro aus, indem du ALT + F8 drückst und das Makro auswählst.
Formel:
Verwende die folgende Formel, um Nullen am Ende zu entfernen:
=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))
Ersetze A1 durch die Adresse der Zelle, die die Zahl enthält.
Fehler: Das Makro funktioniert nicht.
Fehler: Die Formel gibt nicht das erwartete Ergebnis zurück.
Zahlenformat: Du kannst auch das Zahlenformat verwenden, um Nullen am Ende zu ignorieren. Wähle die Zellen aus, gehe zu Format Cells und wähle Custom. Gib ein Format wie 0.### ein, um nur die signifikanten Ziffern anzuzeigen.
Ersatz durch Text: Wenn du die Nullen durch ein anderes Zeichen ersetzen möchtest, kannst du die WECHSELN-Funktion verwenden:
=WECHSELN(A1; "0"; "")
3155400 hast, wird sie durch das VBA-Makro zu 31554.1,00 die Zahl 1.Verwendung von Matrixformeln: Für komplexere Anforderungen kannst du Matrixformeln verwenden. Eine Matrixformel, die alle Nullen entfernt, könnte so aussehen:
=LINKS(A1;MAX(WENN(ZEILE($Z$1:$Z$99)"0"; ZEILE($Z$1:$Z$99))))
Denke daran, die Formel mit STRG + SHIFT + ENTER einzugeben.
Automatisierung: Überlege, dein Makro zu automatisieren, indem du es an einen Button bindest, um es einfacher zugänglich zu machen.
1. Wie entferne ich Nullen am Anfang einer Zahl in Excel?
Du kannst die Funktion =WERT(A1) verwenden, um führende Nullen zu entfernen.
2. Was passiert, wenn ich die Nullen in einem Textfeld habe?
Für Textfelder kannst du die WECHSELN-Funktion verwenden, um alle Nullen zu entfernen oder durch ein anderes Zeichen zu ersetzen.
3. Kann ich alle Nullen in einer Spalte gleichzeitig entfernen?
Ja, markiere die gesamte Spalte und führe das VBA-Makro oder die Formel auf den markierten Bereich an, um alle Nullen auf einmal zu entfernen.
4. Wie viele Nullen kann ich mit einer Formel entfernen?
Die meisten Formeln in Excel sind auf 15 signifikante Stellen begrenzt; daher kann es zu Rundungsfehlern kommen, wenn du sehr große Zahlen hast.
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