Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
320to324
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
320to324
320to324
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zweiten EINZELwert aus String extrahieren

Zweiten EINZELwert aus String extrahieren
13.10.2003 22: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

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

Betreff
Datum
Anwender
Anzeige
Left(Right(Bereich, 2), 1)
13.10.2003 23:12:57
Boris
Grüße Boris
AW: Vielen Dank Euch Dreien! oT
14.10.2003 09:13:02
Thorsten
.
AW: Vielen Dank Euch Dreien! oT
14.10.2003 09:13:10
Thorsten
.
AW: Zweiten EINZELwert aus String extrahieren
13.10.2003 23: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
AW: Zweiten EINZELwert aus String extrahieren
13.10.2003 23: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

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige