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

Forumthread: führende 0 entfernen

führende 0 entfernen
29.11.2005 11:00:54
sven
Hallo,
möchte gerne in einer kompletten spalte alle führenden Nullen entfernen.
01887520
01887518
112158
01812163
ich könnte den string auch einfach um 1 stelle vorne abschneiden, nur leider geht ja dann auch bei zellen wo es keine führende 0 gibt eine stelle verloren,
deswegen bräuchte ich eine vba funktion die einen string auslesen kann und entscheiden kann anhand der 0 ob die 0 entfernt werden soll oder nicht.
mfg sven
Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: führende 0 entfernen
29.11.2005 11:02:47
Marc
Kannst Du nicht einfach diese Spalte in ZAHL formatieren. Dann macht Excel doch die Null eh weg, oder?
AW: führende 0 entfernen
29.11.2005 11:03:06
Dr.
Hi,
und wenn Du alle mit 1 multiplizierst?
AW: führende 0 entfernen
29.11.2005 11:04:37
haw
Hallo Sven,
am einfachsten wäre es m.E., die Werte in Zahlen zu verwandeln, dann sind führende Nullen automatisch weg.
Für dich als Excel-Profi sicher kein Problem.
Gruß
Heinz
Anzeige
AW: führende 0 entfernen
29.11.2005 11:04:49
heikoS
Hallo Sven,
wenn die Original-Daten verändert werden dürfen und es auch ohne vba sein darf, dann z.B. so:
Bereich markieren - ins Menü Daten - Text in Spalten - fertigstellen.
Gruß Heiko
AW: führende 0 entfernen
29.11.2005 11:05:16
Daniel
Hi,
stelle doch einfach das Zellenformat auf Zahl um!
mfg Daniel
PS: Funktioniert?
Anzeige
AW: führende 0 entfernen klappt jetzt
29.11.2005 11:18:27
sven
da ich die dateien importiert hatte, muss ich über das ausrufungszeichen gehen bei jeder zelle.
heisst ich markiere alle zellen und sage dann text in zahl umwandeln.
danke
AW: führende 0 entfernen
29.11.2005 11:10:18
Erich
Hallo Sven,
per Formel oder VBA-Funktion - wie du magst:
 
 ABC
1123123123
20123123123
30012301230123
Formeln der Tabelle
B1 : =WENN(LINKS(A1;1)="0";RECHTS(A1;LÄNGE(A1)-1);A1)
C1 : =EineNullWeg(A1)
 
Diagramm - Grafik - Excel Tabellen einfach im Web darstellen    Excel Jeanie HTML  3.0    Download  
Function EineNullWeg(xx) EineNullWeg = IIf(Left(xx, 1) = "0", Mid(xx, 2), xx) End Function
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
war nix - sollten ALLE Nullen sein... o.T.
29.11.2005 11:13:33
Erich
AW: führende 0 entfernen
29.11.2005 11:19:10
sven
hallo Erich,
das ist auch sehr nett von dir, werde ich mal für spätere verwendungen abspeichern.
mfg sven
AW: führende 0 entfernen
29.11.2005 11:56:08
nighty
hi ihr :)
dann noch ein makro was zur zeit spalte a korrigiert
gruss nighty
Sub suchen() Dim myZeilen As Long For myZeilen = 1 To Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1 If Mid(Cells(myZeilen, 1), 1, 1) = "0" Then Cells(myZeilen, 1) = Mid(Cells(myZeilen, 1), 2, Len(Cells(myZeilen, 1))) End If Next myZeilen End Sub
Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Führende Nullen in Excel Entfernen


Schritt-für-Schritt-Anleitung

Um in Excel führende Nullen zu entfernen, kannst du verschiedene Methoden anwenden. Hier sind einige einfache Schritte:

  1. Zellen formatieren:

    • Markiere die Spalte mit den Werten.
    • Klicke mit der rechten Maustaste und wähle „Zellen formatieren“.
    • Wähle das Format „Zahl“ aus. Dadurch werden die führenden Nullen entfernt.
  2. Text in Spalten:

    • Wähle die Zellen aus, die du bearbeiten möchtest.
    • Gehe zu „Daten“ und klicke auf „Text in Spalten“.
    • Folge den Anweisungen im Assistenten und klicke auf „Fertigstellen“.
  3. Formel nutzen:

    • Verwende die folgende Formel, um führende Nullen zu entfernen:
      =WENN(LINKS(A1;1)="0";RECHTS(A1;LÄNGE(A1)-1);A1)
    • Diese Formel überprüft, ob das erste Zeichen eine Null ist und entfernt es, wenn dies der Fall ist.
  4. VBA-Makro:

    • Wenn du mit VBA vertraut bist, kannst du folgendes Makro verwenden:
      Sub EntfernenFührendeNullen()
       Dim myZeilen As Long
       For myZeilen = 1 To Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row
           If Mid(Cells(myZeilen, 1), 1, 1) = "0" Then
               Cells(myZeilen, 1) = Mid(Cells(myZeilen, 1), 2)
           End If
       Next myZeilen
      End Sub

Häufige Fehler und Lösungen

  • Fehler: Die führenden Nullen werden nicht entfernt.

    • Lösung: Stelle sicher, dass die Zellen im richtigen Format sind. Überprüfe, ob sie als „Text“ formatiert sind.
  • Fehler: Nach der Umwandlung sind die Werte immer noch als Text gespeichert.

    • Lösung: Verwende die Funktion „WERT“ oder formatiere die Zellen erneut als Zahl.

Alternative Methoden

  • Power Query:

    • Du kannst auch Power Query verwenden, um führende Nullen zu entfernen. Importiere die Daten in Power Query und wende die Transformation „Trimmen“ an, um unerwünschte Nullen zu entfernen.
  • Kombination von Formeln:

    • Eine Kombination von WERT und TEXT kann ebenfalls hilfreich sein. Zum Beispiel:
      =WERT(A1)

Praktische Beispiele

  • Beispiel 1:

    • Ursprünglicher Wert: 01234
    • Nach der Anwendung der Formel: 1234
  • Beispiel 2:

    • Bei der Verwendung des VBA-Makros wird die Spalte A mit 00123, 00045 und 00078 in 123, 45, 78 umgewandelt.

Tipps für Profis

  • Sicherung der Daten: Bevor du Änderungen vornimmst, erstelle immer eine Sicherungskopie deiner Daten.
  • Automatisierung: Nutze VBA, um den Prozess der Null-Entfernung zu automatisieren, besonders bei großen Datenmengen.
  • Versteckte Formate: Achte darauf, dass die Zellen nicht versteckte Formatierungen haben, die das Entfernen der Nullen beeinflussen könnten.

FAQ: Häufige Fragen

1. Wie kann ich alle führenden Nullen in einer Spalte auf einmal entfernen? Um alle führenden Nullen in einer Spalte zu entfernen, kannst du die oben genannten Methoden wie „Text in Spalten“ oder das VBA-Makro verwenden.

2. Wird die Anzahl der Nullen in einer Zahl beeinflusst? Ja, wenn du führende Nullen entfernst, wird der numerische Wert geändert. Zum Beispiel wird 000123 zu 123.

3. Funktioniert das Entfernen führender Nullen auch in Excel Online? Ja, die meisten beschriebenen Methoden funktionieren auch in Excel Online, jedoch sind VBA-Makros nicht verfügbar.

4. Was passiert mit den Werten, wenn ich sie als Zahl formatiere? Wenn du die Zellen als Zahl formatierst, entfernt Excel automatisch alle führenden Nullen.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige