Zahl als Text mit führender Null formatieren
09.04.2013 11:52:37
Jörg
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