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

Warum funktioniert er Code nicht

Forumthread: Warum funktioniert er Code nicht

Warum funktioniert er Code nicht
N.
Hallo allerseits,

Sub KDNR_in_Text()
Dim c As Range
Range("A1").CurrentRegion.CreateNames Top:=True, Left:=False, Bottom:=False, Right:=False
For Each c In Range("KDNR")
c = Format(CStr(c), "00000")
Next c
End Sub

Code läuft ohne Laufzeitfehler durch, wandelt ab Zellinhalte nicht in Text um. Ich weiß nicht, warum ?
Gruß
Norbert
Anzeige
AW: Warum funktioniert er Code nicht
Nike
Hi,
weil Text das Format @ hat
c = Format(Format(CStr(c), "00000"),"@")
Bye
Nike
AW: Warum funktioniert er Code nicht
N.
Hallo Nike,
danke Dir...funktioniert aber immer noch nicht....
Gruß
Norbert
AW: Warum funktioniert er Code nicht
Nike
Hi,
na, ich hab geschlafen,
man muss das Zellformat umstellen - peinlich ;-)

Sub test()
Dim c As Range
For Each c In Range("A1:B2")
c.NumberFormat = "@"
c = Format(CStr(c), "00000")
Next c
End Sub

Bye
Nike
Anzeige
nun klappt's Danke Nike
N.
AW: nun klappt's Danke Nike
Hans
Nur mal so aus Interesse!
Und was ist damit geholfen?
Wäre da net ein Benutzerdefiniertes Format sinnvoller, oder hab ich da was verpasst?
Gruß HW
AW: nun klappt's Danke Nike
N.
Hallo Hans,
wenn Zahlen in einer Spalte stehen, kannst Du das Format der Spalte auf Text einstellen -die Zahlen bleiben aber weiter in einer numerischen Formatierung vorhanden. Wenn Du die Zahlen definitiv als String haben willst, mußt Du sie z.B. wie beschrieben umformatieren.
Gruß
Norbert
Anzeige
AW: nun klappt's Danke Nike
Hans
Ja das würde ich ja gerade gerne wissen.
Was ist der tiefere Sinn, die Zahlen als Text vorzulegen?
Einer XL-Anwendung kann das eigentlich egal sein?
Gruß HW
AW: nun klappt's Danke Nike
N.
Hallo HW,
der Vorgang hängt damit zusammen, daß ich die so umgewandelte Datei für eine weitere Verwendung als dbf-Datei abspeichere. In diesem Fall gehen Excel-Formate, wie z.B. PLZ, verloren - Stichwort: führende 0. Hier ist dann z.B. die Umwandlung in Text eine Lösung.
Gruß
Norbert
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

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