Einzelne Ziffern einer Zahl zurückgeben

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Renée,
wider Erwarten kann das "selbst wenn es als Text formatiert ist" stimmen:
Gib mal in eine Standardformat-Zelle eine Zahl ein und formatier die Zelle dann als Text.
Flugs sieht das Ganze wie ein Text aus (linksbündig), in der Zelle steht aber nach wie vor eine Zahl,
und Characters... führt zu einem Fehler.
Hi Jürgen,
"Characters" hat einen anderen Zweck als den, den du verfolgst.
Du solltest mit Left, Mid und Right arbeiten, dafür sind diese Funktionen da.
Dann ist auch egal, ob in einer Zelle Text oder Zahl steht - Zahl wird automatisch in Text konvertiert.
Wenn du etwa die 3. Stelle von A1 brauchst: Mid(range("A1),3,1)
Hi Tino,
IsNumeric hilft hier nicht. IsNumeric prüft nicht, ob etwas eine Zahl ist,
sondern ob sich etwas in eine Zahl umwandeln lässt.
IsNumeric(Range("A1")) ist True, wenn in A1 der Text "123" steht.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Hallo Tino,
wie hast du Spalte B ermittelt?
Hier mal ein paar Beispiele, an denen man sehen kann, dass die Excel-Fkt. ISTZAHL und ISTTEXT
verlässlich ausgeben, was in einer Zelle steht.
IsNumeric liefert in Zeile 3 ein WAHR. Das heißt aber nur,
dass der Inhalt von A3 in eine Zahl umgewandelt werden kann.
In A3 steht ein Text mit drei Zeichen, aber keine Zahl.

	A	B	C	D	E	F
1	Eingabe	ISTTEXT	ISTZAHL	IsNumeric	Characters	Format
2	1a2	WAHR	FALSCH	FALSCH	a	Standard
3	123	WAHR	FALSCH	WAHR	2	A2 war vor Eingabe der 123 als Text formatiert
4	132	FALSCH	WAHR	WAHR	Fehler	A3 wurde nach Eingabe der 123 als Text formatiert
5	123	FALSCH	WAHR	WAHR	Fehler	Standard

Formeln der Tabelle

Zelle	Formel
B2	=ISTTEXT(A2)
C2	=ISTZAHL(A2)

Die Werte in den Spalten D und E wurden so ermittelt:


Sub numerisch()
Dim zz As Long
On Error Resume Next
For zz = 2 To 5
Cells(zz, 4) = IsNumeric(Cells(zz, 1))
Cells(zz, 5) = Cells(zz, 1).Characters(2, 1).Text
If Err > 0 Then Cells(zz, 5) = "Fehler": Err = 0
Next zz
End Sub

Und hier die Mappe zum Spielen:
https://www.herber.de/bbs/user/50315.xls
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Beliebteste Forumthreads (12 Monate)

	A	B
1	546874A1256	ist Text
2	05468741256	ist Zahl

Einzelne Ziffern einer Zahl zurückgeben

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Einzelne Ziffern einer Zahl zurückgeben

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread