Sub t()
Dim rng As Range
For Each rng In Selection
If IsNumeric(rng) And rng "" Then rng = rng * 1
Next rng
End Sub
Sub t()
Dim rng As Range
For Each rng In Selection
While Left(rng, 1) = 0
rng = Right(rng, Len(rng) - 1)
Wend
Next rng
End Sub
Um führende Nullen in einem markierten Bereich über VBA zu entfernen, kannst du die folgenden Schritte ausführen:
Excel öffnen: Starte Excel und öffne die Arbeitsmappe, in der du die führenden Nullen entfernen möchtest.
Entwicklertools aktivieren: Wenn der Reiter "Entwicklertools" noch nicht sichtbar ist, aktiviere ihn über Datei > Optionen > Menüband anpassen und aktiviere das Kästchen "Entwicklertools".
VBA-Editor öffnen: Klicke auf "Visual Basic" im Reiter "Entwicklertools".
Modul einfügen: Gehe zu Einfügen > Modul, um ein neues Modul zu erstellen.
Code einfügen: Füge den folgenden Code ein, um führende Nullen zu entfernen:
Sub RemoveLeadingZeros()
Dim rng As Range
For Each rng In Selection
If IsNumeric(rng) And rng <> "" Then
rng = rng * 1
End If
Next rng
End SubMakro ausführen: Schließe den VBA-Editor, wähle den Bereich aus, aus dem du die Nullen entfernen möchtest, und führe das Makro über Entwicklertools > Makros aus.
Fehler: Nullen werden nicht entfernt
Fehler: Makro funktioniert nicht
Falls du keine VBA-Lösungen verwenden möchtest, kannst du auch Power Query nutzen, um führende Nullen zu entfernen:
Daten > Daten abrufen > Aus Tabelle/Bereich.Transformieren > Text > Text trimmen, um die führenden Nullen zu entfernen und die Spalte in das gewünschte Format zu bringen.Beispiel 1: Entfernen von führenden Nullen in einer Liste Angenommen, du hast die Werte "000123", "00456" und "0789". Nach dem Ausführen des VBA-Codes werden diese Werte zu "123", "456" und "789".
Beispiel 2: Mit Power Query Wenn du die Werte in Power Query bearbeitest, kannst du auch andere Transformationen vornehmen, wie das Konvertieren von Text in Zahl, was ebenfalls führende Nullen entfernt.
1. Wie kann ich führende Nullen in Excel ohne VBA entfernen? Du kannst Power Query verwenden, um die Werte zu transformieren und führende Nullen zu entfernen.
2. Was passiert, wenn ich eine Zelle mit Text bearbeite? Der VBA-Code entfernt nur führende Nullen aus numerischen Werten. Bei Text bleibt der Inhalt unverändert.
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