Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

BuchstabenRaus

Forumthread: BuchstabenRaus

BuchstabenRaus
06.11.2007 09:20:58
Ernst
Guten Tag Forum
Habe einen mangelhaften Code, welcher Buchstaben von Zahlen trennt, jedoch ignoriert er den Dezimalpunkt.
z.B. aus: nach unten 0.13
Ergebnis: 0.13
Der Code unten liefert als Ergebnis 13 und nicht 0.13
Was stimmt da nicht?
Bitte um Hilfe
mfg
Ernst Dunkel

Function BuchstabenRaus(rng As Range)   Dim intZ As Integer
For intZ = 1 To Len(rng)
Select Case Asc(Mid(rng, intZ, 1))
Case 46 To 57
BuchstabenRaus = Val(BuchstabenRaus & Mid(rng, intZ, 1))
End Select
Next intZ
End Function


Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: BuchstabenRaus
06.11.2007 09:29:04
Andi
Hi,
das Problem dürfte das unterschiedliche Dezimaltrennzeichen in VBA (Punkt) bzw im deutschen Excel (Komma) sein. Nimm das Val raus, dann müsste es gehen:
BuchstabenRaus = BuchstabenRaus & Mid(rng, intZ, 1)
Schönen Gruß,
Andi

AW: BuchstabenRaus
06.11.2007 09:34:02
Ernst
Hallo Andi
Funktioniert, vielen Dank für Deine Hilfe.
Gruss
Ernst Dunkel

Anzeige
Gern geschehen... (ot)
06.11.2007 09:48:19
Andi
.
;

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