Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 08:56:18
Textbox in Tabellenblatt ohne Bestätigung in Zelle eintragen
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
404to408
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
404to408
404to408
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
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
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
Anzeige
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
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

301 Forumthreads zu ähnlichen Themen

Zellen kopieren (mit Formatierung)
Yves

Hallo zusammen,
ich möchte Daten von einem Tabellenblatt (Tabelle2) in ein anderes Tabellenblatt (Tabelle1) kopieren.
Habe dies bis anhin so gelöst:
sheets("Tabelle1").cells(1,1).value = sheets("Tabelle2").cells(5,1).value
Somit wurden einfach nur die Werte 'kopiert'. Nun würde...
08.08.2008 14:09:18
Thread-ID: 1000289
8 Beiträge
Anzeige
SVERWEIS funktioniert nicht
sascha76er

Hallo,
hoffentlich kann mir jemand hier helfen, bei mir funktionieren die SVERWEISE für die Spalten
AI, AQ, AR, AS
nicht.
Leider ist meine Liste größer wie 300 kb, deshalb musste ich die Liste bei einem 1Klickhoster bereitstellen.
Liste: http://www.mediafire.com/?oxyk0vmb21x...
08.10.2008 11:23:24
Thread-ID: 1014967
7 Beiträge
SVERWEIS geht nicht
gio

Hallo Profis,
brauche Eure Hilfe.
Ich erstelle mir in einer Zelle über eine Formel eine 3stellige Zahl oder Buchstabenkombination.
=(LINKS(A1;3)) ergibt z.B. 123 oder abc
Das passt soweit.
Über Sverweis suche ich mir dann zu 123 oder abc dazugehörige Daten.
Das funzt nic...
29.10.2008 09:54:21
Thread-ID: 1020154
5 Beiträge
Anzeige
SVERWEIS mit Text funktioniert nicht
sascha76er

Hallo,
komme einfach nicht weiter bei meinem Sverweis, vielleicht kann sich jemand mal meine Beispieldatei angucken?
Beispiel: https://www.herber.de/bbs/user/56594.xls
Vorab vielen Dank
Sascha
07.11.2008 13:38:00
Thread-ID: 1022656
5 Beiträge
SVERWEIS geht nicht
Schmidt

Guten Tag
In der Tabelle komm ich mit der Funktion SVERWEIS nicht weiter.
Würde mir bitte jemand helfen.
Danke im Voraus
https://www.herber.de/bbs/user/56652.xls
10.11.2008 15:44:06
Thread-ID: 1023236
7 Beiträge
Filtern, Sverweis geht wohl nicht?
Angela

Hallo,
Habe im Tab 1 eine sehr lange Liste, ca von B5:C5000.
Nun möcht ich gern auf Tab 2 eine neue Liste erstellen, ausgehend von Tab 1 B5:B5000 über Combobox oder anders eben.
Es soll auf Tab 2 durch selektion Daten ausgewählt werden und in Tab2 geschrieben werden.
Angenommen...
17.01.2009 21:29:04
Thread-ID: 1041000
25 Beiträge
Warum funktioniert das Verknüpfen nicht ?
TomTom


Hallo,
also, ich möchte per Makro eine andere Datei in mein Excel Sheet als Symbol einbinden. Also das Gleiche, was man über EINFÜGEN / OBJEKT / AUS DATEI ERSTELLEN (als Symbol) macht :
Dateiname = Application.GetOpenFilename _
("Micrsoft Excel-Dateien (*.xls),*.xls")
If D...
01.02.2009 22:58:20
Thread-ID: 1046037
3 Beiträge
warum funktioniert dieses makro nicht?
Emil

Hallo zusammen
Also, ich möchte, wenn der Togglebutton betätigt wird, dass alle Sheets welche mit Tag* beginnen, eingeblendet werden. Wenn ich ihn nochmals drücke, dann sollen alle ausgeblendet werden. Ist ganz einfach, aber ich kriegs irgendwie nicht hin..Hier mein bisheriges Makro:
...
03.04.2009 13:45:04
Thread-ID: 1066669
9 Beiträge

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
7
2
6
4
4
4
6
24
2
8
2
1
2
5
3
4
12
1
16
3
3
2
2
2
5