Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1304to1308
1304to1308
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zahl als Text mit führender Null formatieren

Forumthread: Zahl als Text mit führender Null formatieren

Zahl als Text mit führender Null formatieren
09.04.2013 11:52:37
Jörg
Hallo,
ich habe folgendes Problem:
In einer Tabelle habe ich in Spalte A ab Zelle A4 fünf und sechtsstellige Kontonummern. Diese Tabelle wird monatlich immer wieder neu durch einen Export aus einer Anwendung erzeugt. Es handelt sich um Zahlen die als Text formatiert sind und auch Text bleiben müssen, weil aus einer anderen Tabelle, auf die ich keinen Einfluss habe, über einen SVERWEIS auf die exportierte Tabelle zugegriffen wird.
Ich brauche Hilfe bei der Erstellung des VBA-Codes, der folgendes macht:
- Ab Zelle A4 wird geprüft, ob die Länge der Kontonummer fünfstellig ist
- Ist dies der Fall, wird der Text mit einer führenden Null zurückgeschrieben.
Vielleicht ist es mit entsprechenden VBA-Kenntnissen auch möglich bzw. einfacher auf eine Schleife zu verzichten, den gesamten Kontenbereich zu markieren und auf das Text-Format '000000' zu setzen(die Konten sind in der Tabelle durchgängig aufgeführt, d. h. keine Leerzeilen).
Da ich VBA im Wesentlichen nur als Makrorekorder nutze, kann ich das Problem selber
nicht lösen. Ich habe zunächst im Forum gesucht, aber die Beiträge mit 'führenden Nullen' die ich gefunden haben, schreiben jeweils eine Zahl und keinen Text zurück. Wie bereits erwähnt, muss bei mir aber im Ergebnis eine als Text formatierte Zahl stehen. Oder sie greifen nicht auf Zellwerte zu.
Ich habe einen Ausschnitt der relevanten Tabelle hochgeladen:
https://www.herber.de/bbs/user/84798.xlsx
Herzlichen Dank für die Unterstützung.
Jörg

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zahl als Text mit führender Null formatieren
09.04.2013 12:04:33
Ludicla
Hallo Jörg,
und warum nicht =WENN(LÄNGE(A4)kleiner 6;VERKETTEN("0";A4);A4)
Gruss Ludicla

AW: Zahl als Text mit führender Null formatieren
09.04.2013 12:15:34
Jörg
Hallo Ludicla,
vielen Dank für die rasche Reaktion.
Ich möchte das Thema über VBA lösen, weil ich damit die Möglichkeit habe, das Problem automatisiert zu lösen. Die späteren Anwender kennen sich nicht ausreichend mit Excel aus und sollen später nur eine Schaltfläche klicken.
Zudem ist die exportierte Tabelle noch in weiteren Punkten formatierungstechnisch anzupassen (konnte ich über Makrorekorder lösen).
Auf Basis einer Excelfunktion würde mich sonst auch TEXT(A4;"00000#") zum Ziel führen
Danke & Gruß
Jörg

Anzeige
dann nimm doch meinen Code. owT
09.04.2013 12:54:31
Rudi

AW: Zahl als Text mit führender Null formatieren
09.04.2013 12:12:03
Rudi
Hallo, 
Sub aaa()
Dim arr, i As Long
arr = Range(Cells(4, 1), Cells(4, 1).End(xlDown))
For i = 1 To UBound(arr)
arr(i, 1) = Right("000000" & arr(i, 1), 6)
Next
With Cells(4, 1).Resize(UBound(arr))
.NumberFormat = "@"
.Value = arr
End With
End Sub

Gruß
Rudi

Anzeige
AW: Zahl als Text mit führender Null formatieren
09.04.2013 13:15:02
Jörg
Hallo Rudi,
mit deinem Code funktioniert es.
Herzlichen Dank für die rasche Unterstützung.
Jörg
;

Forumthreads zu verwandten Themen

VBA für Zahlen mit drei Nullen
Jeron

Hallo zusammen,
ich bräuchte bitte ein Makro für folgenden Fall: in meiner Spalte liegen drei Sorten von Zahlen vor
1) 0001234 : In Zeile 1) und 2) stehen die gleichen Zahlen, ich brauch aber nur die Zahl aus Zeile 2)
2) 1234 : " " Zeile 1) muss gelöscht werden
3) 00012...
07.04.2009 16:27:50
Thread-ID: 1067456
4 Beiträge
Formelergebnis mit führender Null
Josef

Hallo!
Ich habe z.B. in A1 die Zahl 01 stehen.
Wenn ich jetzt die Formel : =A1+1 in die ZelleA2 schreibe so erhalte ich zwar 2, jedoch ohne führende Null.
Wie müßte die Formel bitte lauten, damit auch die führende Null eingetragen ist?
Danke
Josef
08.07.2009 10:44:25
Thread-ID: 1087112
7 Beiträge
Zahlen mit führenden Nullen in TextBox
Josef

Hallo!
Ich möchte, wenn ich z. B. die Zahl 25 in eine Textbox in einer UF eingebe, dass in der TextBox die Zahl mit führenden Nullen eingegeben wird: 0025.
Wie würde hier bitte eine VBA Lösung lauten?
Danke
30.03.2010 14:51:59
Thread-ID: 1149374
3 Beiträge
Anzeige
VBA Autofilter und führende Nullen
Joachim

Wer hat eine Lösung?
Eine Spalte ist als Texte formatierte Spalte enthält 4-ziffrige Zahlen (0001 bis 9999).
Es sollen nun alle Zeilen gefiltert werden die nicht ="0010"sind. Selection.AutoFilter Field:=3, Criteria1:="0001", Operator:=xlAnd
bzw. als flexible Variante Zahl="0001" Se...
03.11.2010 23:59:34
Thread-ID: 1185073
5 Beiträge
Anzeige
Zahlen im Sonderformat mit führenden Nullen
giovane293

Hallo Zusammen,
ich hoffe mein Betreff ist nicht zu irreführend. Ich habe folgendes Problem.
Ich habe eine Tabelle, da sollen Zahlen als Sonderformat mit führenden Nullen dargestellt werden. Über die Fromatierung funktioniert das nicht. Die ersten 23 Zeilen sind noch korrekt, dort sind...
04.11.2013 11:45:26
Thread-ID: 1337039
7 Beiträge
Länge von Zahlen mit vorangestellter Null
Zahlen

Moin zusammen,
ich benötige mal wieder Eure Hilfe Bei folgendem Problem:
Ich möchte die Länge (Anzahl von Zeichen) von Zellen einer Spalte ermitteln. Diese Spalte enthällt auch Zahlen mit ein bis drei vorangestellten Nullen, die mitgezählt werden sollen.
Beispiel:
00025 Länge =...
30.10.2016 14:38:33
Thread-ID: 1522290
11 Beiträge
Zahl mit vorangestellten Nullen als String
Constantin

Hallo,
ich habe eine Mappe mit einem Listenfeld, welches drei Werte zur Auswahl hat (ABC, 004711 und H089). Nun möchte ich bei Aktivierung der Tabelle1, dass - wenn ABC voreingetragen ist, dieser Inhalt durch 004711 ersetzt wird. Leider waren meine Versuche erfolglos bisher. Es wurde immer...
23.03.2017 20:17:59
Thread-ID: 1549118
7 Beiträge
Zahl aus String filtern mit fuehrender Null
Torsten

Hallo Leute,
kleines Problemchen. Eigentlich funktioniert folgendes.
Ich filtere einen String aus einer Formel. Dieser heisst dann z.B. "Week09".
Aus diesem String filtere ich dann die Zahl, um diese zu aendern.
Mit der hier gefundenen Funktion wird mir aber die fuehrende 0 nich...
21.03.2019 14:54:14
Thread-ID: 1682591
4 Beiträge
Zahlen mit führenden Nullen darstellen
Fritz
Hallo Excelfreunde,
ich habe in der Spalte A eine Liste mit Zahlen mit unterschiedlich viel, jedoch maximal 6 Stellen also z.B.
267, 123451, 3411, 23052, 100120 usw.
Ich möchte nun in der Spalte B, die jeweilige Zahl aus Spalte A immer sechstellig angezeigt bekommen, d.h. dass diejenigen Z...
08.10.2003 17:24:31
Thread-ID: 320717
5 Beiträge
Splaten Zahlen mit Nullen auffüllen
Susanne
Hallo,

ich habe eine Spalte mit verschiedenen Zahleninhalten
12345
324567
132
4444

jetzt möchte ich das die zahlen mit Nullen aufgefüllt werden und z.B insgesamt 9 Stellen aufweisen.

So sollte es aussehen:

000012345
000324567
000000132
000004444
02.12.2003 12:13:57
Thread-ID: 346233
3 Beiträge
Zahlen mit vorangestellten Nullen darstellen
roland
Hallo,
gibt es in excel die möglichkeit, das ergebnis einer formel
mit einer vorgegebenen anzahl von stellen vor (evtl. auch nach)
dem komma darzustellen - also auch mit führenden nullen?
bitte keine lösungen über "zellen formatieren" anbieten,
da das ergebnis in dem ich die nullen...
25.02.2004 12:55:19
Thread-ID: 388587
6 Beiträge
Zahlenformat mit Vorzeichen(positiv, negativ,null)
C.B

Hallo,
wie kann ich ein benutzedefiniertes Zahlenformat eingeben, welches mit noch für Null "±0,00" gibt ?
MfG
Christian
30.03.2004 17:13:49
Thread-ID: 406535
4 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Zahl als Text mit führender Null formatieren

Schritt-für-Schritt-Anleitung

  1. Öffne deine Excel-Datei und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Klicke auf Einfügen und wähle Modul, um ein neues Modul zu erstellen.

  3. Kopiere den folgenden VBA-Code in das Modul:

    Sub aaa()
   Dim arr, i As Long
   arr = Range(Cells(4, 1), Cells(4, 1).End(xlDown))
   For i = 1 To UBound(arr)
       arr(i, 1) = Right("000000" & arr(i, 1), 6)
   Next
   With Cells(4, 1).Resize(UBound(arr))
       .NumberFormat = "@"
       .Value = arr
   End With
End Sub

  4. Schließe den VBA-Editor und gehe zurück zu Excel.

  5. Um den Code auszuführen, drücke ALT + F8, wähle aaa aus der Liste und klicke auf Ausführen.

Dieser Code prüft die Kontonummern in Spalte A ab Zelle A4 und ergänzt sie mit führenden Nullen, falls sie weniger als sechs Stellen haben. So kannst du sicherstellen, dass die Zahlen als Text formatiert bleiben.

Häufige Fehler und Lösungen

  • Fehler: "Laufzeitfehler 9: Index außerhalb des gültigen Bereichs"

    • Lösung: Stelle sicher, dass deine Daten ab Zelle A4 beginnen und dass die Spalte nicht leer ist.

  • Fehler: "Typkonflikt"

    • Lösung: Überprüfe, ob in der Spalte A nur Zahlen als Text vorhanden sind. Leere Zellen oder andere Datentypen können diesen Fehler verursachen.

Alternative Methoden

Wenn du keine VBA-Lösungen verwenden möchtest, kannst du auch die Excel-Funktion TEXT nutzen:

  1. Gehe zu Zelle B4 und gebe die folgende Formel ein: 
    =TEXT(A4; "000000")
  2. Ziehe die Formel nach unten, um sie auf alle relevanten Zellen anzuwenden.

Diese Methode ist einfach, erfordert jedoch manuelles Eingreifen und gibt dir nicht die Möglichkeit, die Formatierung automatisiert durchzuführen.

Praktische Beispiele

  • Beispiel 1: Wenn in Zelle A4 die Zahl 12345 steht, wird sie durch den VBA-Code in 012345 umgewandelt.
  • Beispiel 2: Bei der Verwendung der TEXT-Funktion wird die Eingabe 567 in 000567 umgewandelt.

Diese Beispiele zeigen, wie du in Excel führende Nullen in Text umwandeln kannst. Beide Methoden helfen dir, die Kontonummern korrekt darzustellen.

Tipps für Profis

  • Automatisierung: Du kannst den VBA-Code anpassen, sodass er bei jedem Öffnen der Datei automatisch ausgeführt wird.
  • Schaltfläche erstellen: Füge eine Schaltfläche in Excel hinzu, um den VBA-Code mit einem Klick auszuführen. Gehe dazu auf Entwicklertools > Einfügen > Schaltfläche.

FAQ: Häufige Fragen

1. Wie kann ich sicherstellen, dass die Nullen immer vorangestellt werden? Wenn du den VBA-Code verwendest, wird dies automatisch für alle Kontonummern im definierten Bereich erledigt.

2. Was passiert, wenn ich die Daten später in eine andere Anwendung exportiere? Stelle sicher, dass die Daten als Text formatiert bleiben. Der VBA-Code stellt sicher, dass Excel die Zahlen als Text behandelt und die führenden Nullen beibehält.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige