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

Zweiten EINZELwert aus String extrahieren

Forumthread: Zweiten EINZELwert aus String extrahieren

Zweiten EINZELwert aus String extrahieren
14.10.2003 00:57:42
Thorsten
Hallo Excelfans,

ich möchte unter VBA die Einzelwerte eines Strings nacheinander auf "IsNumeric" überprüfen, leider liefert Right(Bereich, 2) nicht den zweiten, sondern die beiden Werte von rechts. Wie kommt man ohne größere Verrenkungen an z.B. den zweiten EINZELWert von rechts?

Danke für Eure Hilfe
Thorsten
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Left(Right(Bereich, 2), 1)
14.10.2003 01:12:57
Boris
Grüße Boris
AW: Vielen Dank Euch Dreien! oT
14.10.2003 11:13:02
Thorsten
.
AW: Vielen Dank Euch Dreien! oT
14.10.2003 11:13:10
Thorsten
.
Anzeige
AW: Zweiten EINZELwert aus String extrahieren
14.10.2003 01:20:11
PeterW
Hallo Thorsten,

als Beispiel mal eine Prüfung jedes Zeichens eines Strings in A1:

Sub Einzelwerte()
Dim iCount As Integer
For iCount = 1 To Len(Cells(1, 1))
If IsNumeric(Mid(Cells(1, 1), iCount, 1)) Then
MsgBox "die " & iCount & ". Stelle ist eine Zahl"
End If
Next
End Sub


Gruß
Peter
Anzeige
AW: Zweiten EINZELwert aus String extrahieren
14.10.2003 01:22:14
chris
Hallo Thorsten

mit mid

x = Mid(Cells(1, 1), Len(Cells(1, 1)) - 3, 2) 'liefert aus abcdefgh -> ef
x = Mid(Cells(1, 1), Len(Cells(1, 1)) - 2, 1) 'liefert aus abcdefgh -> f
x = Mid(Cells(1, 1), Len(Cells(1, 1)) - 1, 1) 'liefert aus abcdefgh -> g

Gruß
Christian
Anzeige

Forumthreads zu verwandten Themen

Anzeige