Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
920to924
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
920to924
920to924
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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


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

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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige