Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: führende Nullen entfernen

führende Nullen entfernen
12.07.2008 22:31:00
bully
Hallo Leute,
ich habe ein Problem mit führenden Nullen die ich los werden möchte. In einer Standard formatierten Zelle stehen folgende Werte:
1234.ABC
0123.AB
0012.AB
0102.A2
Es kommt immer nur 1 Punkt vor, und vor dem Punkt sind immer nur Zahlen.
Kann mir nun jemand sagen, wie ich am einfachsten zu einer Darstellung ohne die führenden Nullen komme?
Gruss bully

Anzeige

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: führende Nullen entfernen
12.07.2008 22:44:46
Uwe
Hi bully,
falls der linke Teil immer numerisch ist sollte diese - zugegebenermaßen etwas umständliche Formel - klappen:

=TEXT(LINKS(A1;FINDEN(".";A1)-1);0)&TEIL(A1;FINDEN(".";A1);999)


Aber bestimmt gibt es da was eleganters.
Gruß
Uwe
(:o)

Anzeige
AW: führende Nullen entfernen
12.07.2008 23:02:00
bully
Hallo Uwe,
danke für die schnelle Antwort. Klar doch, es funktioniert.
Ich wollte mich kurz halten und habe dabei eine Information unterschlagen. Die Werte lese ich bereits per Makro aus einem anderen Blatt aus. Dort ist der Punkt ein Leerzeichen den ich mit folgender Code-Zeile ersetze:
wks.Cells(k, 6) = Replace(.Cells(i, 23), " ", ".")
Ideal wäre nun, wenn ich die Nullen im gleichen Makro los werden könnte. Ist das nicht möglich, kann ich es mit deiner Variante über eine Hilfsspalte lösen.
Gruss bully

Anzeige
AW: führende Nullen entfernen
12.07.2008 23:05:31
Gerd
Hallo Bully,
stehen die vier Zeichenfolgen deines Beispiels in einer oder in vier Zellen?
Gruß Gerd

AW: führende Nullen entfernen
12.07.2008 23:55:31
bully
Hallo Gerd,
auch für dich noch die Antwort auf deine Frage, obwohl die VBA Lösung von Tino für mich das optimum zu sein scheint. Die ganzen Werte stammen aus einer Zelle. Ich ersetze bloss einen Leerschlag mit dem Punkt.
Gruss bully

Anzeige
AW: führende Nullen entfernen
12.07.2008 23:10:50
Daniel
Hi
wenn es funktioniert, dann ist deine Frage doch beantwortet.
von Makros war in deiner ersten Frage keine Rede, also ist doch alle gut.
Gruß, Daniel

AW: führende Nullen entfernen
13.07.2008 00:01:00
bully
Hallo Daniel,
siehst du nun wieso die erste Lösung nicht immer die optimale Lösung sein muss? Mit der Formel wäre ich über einen Umweg auch zum Ziel gekommen, das stimmt. Aber wieso den Umweg gehen, wenn es einen direkten Weg gibt? Davon lebt doch das Forum, dass für ein Problem mehrere Lösungen möglich sind und jeder die für ihn passende Variante einsetzen kann.
Gruss bully

Anzeige
AW: führende Nullen entfernen
13.07.2008 00:11:24
Daniel
Hi
trotzdem sollte man schon möglichst alle Randbedingungen bekannt geben.
Ist schon ein Unterschied, ob du ne VBA-Lösung oder ne Formellösung haben willst.
Ich finde es halt immer enttäuschend, wenn man sich Gedanken um eine Lösung macht und dann kommt als Kommentar nur sowas in der Art "ist ja ganz nett, aber eigentlich brauche ich was ganz anderes".
Gruß, Daniel

Anzeige
AW: führende Nullen entfernen
12.07.2008 23:07:54
Tino
Hallo,
noch eine Möglichkeit
 AB
11234.ABC1234.ABC
20123.AB123.AB
30012.AB12.AB
40102.A2102.A2

Formeln der Tabelle
ZelleFormel
B1=--LINKS(A1;SUCHEN(".";A1)-1)&RECHTS(A1;LÄNGE(A1)-SUCHEN(".";A1)+1)
B2=--LINKS(A2;SUCHEN(".";A2)-1)&RECHTS(A2;LÄNGE(A2)-SUCHEN(".";A2)+1)
B3=--LINKS(A3;SUCHEN(".";A3)-1)&RECHTS(A3;LÄNGE(A3)-SUCHEN(".";A3)+1)
B4=--LINKS(A4;SUCHEN(".";A4)-1)&RECHTS(A4;LÄNGE(A4)-SUCHEN(".";A4)+1)

Gruß Tino

http://www.VBA-Excel.de


Anzeige
AW:mit VBA
12.07.2008 23:21:11
Tino
Hallo,
mit VBA, hier ein Beispiel.
Dim Wert As String
Wert = Replace(Cells(2, 1), " ", ".")
Cells(2, 1) = CLng(Left(Wert, InStr(Wert, ".") - 1)) & _
Right$(Wert, Len(Wert) - InStr(Wert, ".") + 1)
Gruß Tino

AW: AW:mit VBA
12.07.2008 23:52:00
bully
Hallo Tino,
super, deine VBA-Version ist genau das was ich gesucht habe. Nach einigen Anpassungen hats auf Anhieb geklappt.
Besten Dank
Gruss bully

Anzeige
AW: AW:mit VBA
12.07.2008 23:58:27
Tino
Hallo,
mit Anpassung kann eigendlich nur die Zelle gemeint sein. oder?
Gruß Tino

AW: AW:mit VBA
13.07.2008 00:10:00
bully
Hallo Tino,
ja natürlich. Ich musste aber die Wert-Zelle auswechseln. So wie du den Code gepostet hast, entsprach die Zeile
Wert = Replace(Cells(2, 1), " ", ".")
der Ursprunszelle. Ich habe sie durch die Zielzelle ersetzt, und so funktioniert es. Unten steht nun der Code wie ich ihn eingesetzt habe.
Wert = wks.Cells(k, 6)
wks.Cells(k, 6) = CLng(Left(Wert, InStr(Wert, ".") - 1)) & _
Right$(Wert, Len(Wert) - InStr(Wert, ".") + 1)
Danke nochmals und nen schönen Sonntag.
Gruss bully

Anzeige
AW: AW:mit VBA
13.07.2008 00:20:42
Tino
Hallo,
danke für die Rückmeldung.
Ich fragte noch mal nach, es hätte ja auch ein grundsätzlicher Fehler im Code sein können.
Gruß Tino und noch einen schönen Sonntag

http://www.VBA-Excel.de


;

Forumthreads zu verwandten Themen

Anzeige
Anzeige

Infobox / Tutorial

Führende Nullen in Excel Entfernen


Schritt-für-Schritt-Anleitung

Um führende Nullen in Excel zu entfernen, kannst Du verschiedene Methoden anwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung, die eine Formel und eine VBA-Lösung umfasst.

Methode 1: Mit einer Formel

  1. Angenommen, Deine Werte stehen in der Zelle A1. Füge in die Zelle B1 die folgende Formel ein:

    =TEXT(LINKS(A1;FINDEN(".";A1)-1);"0")&TEIL(A1;FINDEN(".";A1);999)

    Diese Formel entfernt die führenden Nullen, indem sie den numerischen Teil extrahiert und die Nullen vor dem Punkt löscht.

Methode 2: Mit VBA

  1. Öffne den VBA-Editor (Alt + F11).

  2. Füge ein neues Modul hinzu und kopiere den folgenden Code:

    Dim Wert As String
    Wert = Replace(Cells(2, 1), " ", ".")
    Cells(2, 1) = CLng(Left(Wert, InStr(Wert, ".") - 1)) & _
    Right$(Wert, Len(Wert) - InStr(Wert, ".") + 1)
  3. Passe die Zellreferenzen entsprechend an.


Häufige Fehler und Lösungen

Fehler 1: Formel funktioniert nicht

  • Lösung: Stelle sicher, dass die Werte in der Zelle als Text formatiert sind. Du kannst die Zellen formatieren, bevor Du die Formel anwendest.

Fehler 2: VBA-Code gibt Fehler aus

  • Lösung: Überprüfe, ob Du die richtigen Zellreferenzen verwendest. Der Code muss auf die korrekte Zielzelle zeigen, um die führenden Nullen zu entfernen.

Alternative Methoden

Neben den oben genannten Methoden gibt es auch andere Ansätze, um führende Nullen in Excel zu entfernen:

  1. Text in Spalten: Wähle die Zellen mit den führenden Nullen und gehe zu "Daten" > "Text in Spalten". Wähle "Getrennt" und klicke auf "Fertigstellen". Dies kann manchmal die Nullen entfernen.

  2. Suchen und Ersetzen: Drücke Strg + H, um das Suchen-und-Ersetzen-Fenster zu öffnen. Suche nach "0" (oder "00", "000", je nach Bedarf) und ersetze es durch nichts. Sei vorsichtig, dass Du keine wichtigen Nullen entfernst.


Praktische Beispiele

Hier sind einige praktische Beispiele, wie Du führende Nullen entfernen kannst:

  • Beispiel 1: In Zelle A1 steht "0123.AB". Mit der Formel =--LINKS(A1;SUCHEN("." ;A1)-1)&RECHTS(A1;LÄNGE(A1)-SUCHEN("." ;A1)+1) in Zelle B1 wird der Wert in B1 zu "123.AB".

  • Beispiel 2: Ein VBA-Skript könnte wie folgt aussehen:

    Dim Wert As String
    Wert = Cells(1, 1).Value
    Cells(1, 1).Value = CLng(Left(Wert, InStr(Wert, ".") - 1)) & _
    Mid(Wert, InStr(Wert, "."))

Tipps für Profis

  • Wenn Du oft mit führenden Nullen arbeitest, erstelle eine benutzerdefinierte Funktion in VBA, um die Nullen schnell zu entfernen.
  • Halte Deine Daten stets in einem sauberen Format, um Probleme mit führenden Nullen zu vermeiden.
  • Experimentiere mit den verschiedenen Methoden und finde die, die am besten zu Deinem Workflow passt.

FAQ: Häufige Fragen

1. Wie entferne ich führende Nullen aus mehreren Zellen gleichzeitig? Du kannst die Formel in eine Zelle eingeben und dann nach unten ziehen, um sie auf mehrere Zellen anzuwenden.

2. Funktioniert das Entfernen von führenden Nullen in allen Excel-Versionen? Ja, die genannten Methoden funktionieren in den meisten modernen Excel-Versionen, einschließlich Excel 2016 und höher.

3. Was ist, wenn ich nur die Nullen vor einer Zahl entfernen möchte? Du kannst die Formel anpassen, um nur die führenden Nullen zu entfernen, indem Du spezifische Textfunktionen verwendest, um den gewünschten Teil der Zelle zu isolieren.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige