Zweiten EINZELwert aus String extrahieren

• Zweiten EINZELwert aus String extrahieren von Thorsten vom 13.10.2003 22:57:42
  • Left(Right(Bereich, 2), 1) - von Boris am 13.10.2003 23:12:57
    • AW: Vielen Dank Euch Dreien! oT - von Thorsten am 14.10.2003 09:13:02
    • AW: Vielen Dank Euch Dreien! oT - von Thorsten am 14.10.2003 09:13:10
  • AW: Zweiten EINZELwert aus String extrahieren - von PeterW am 13.10.2003 23:20:11
  • AW: Zweiten EINZELwert aus String extrahieren - von chris am 13.10.2003 23:22:14

Betrifft: Zweiten EINZELwert aus String extrahieren
von: Thorsten
Geschrieben am: 13.10.2003 22:57:42
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

Betrifft: Left(Right(Bereich, 2), 1)
von: Boris
Geschrieben am: 13.10.2003 23:12:57
Grüße Boris

Betrifft: AW: Vielen Dank Euch Dreien! oT
von: Thorsten
Geschrieben am: 14.10.2003 09:13:02
.

Betrifft: AW: Vielen Dank Euch Dreien! oT
von: Thorsten
Geschrieben am: 14.10.2003 09:13:10
.

Betrifft: AW: Zweiten EINZELwert aus String extrahieren
von: PeterW
Geschrieben am: 13.10.2003 23:20:11
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

Betrifft: AW: Zweiten EINZELwert aus String extrahieren
von: chris
Geschrieben am: 13.10.2003 23:22:14
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

Excel-Beispiele zum Thema " Zweiten EINZELwert aus String extrahieren"
Modul in einer zweiten Arbeitsmappe löschen	Den vorhergehenden Zellwert in einer zweiten Zelle zeigen
In einem zweiten Tabellenblatt vorgegebene Zeilen beschriften	Zeilen eines zweiten Blattes im ersten über Drehfeld anzeigen
Tabellenzeilen in Abhängigkeit einer zweiten Tabelle einblenden	Werte jeder zweiten Spalte in zwei Stufen dividieren
Zelleinträge den Werten in einer zweiten Zelle hinzuaddieren	Einen Wert in einem zweiten Blatt einer Kalenderwoche zuordnen
Nach Textimport Strings in Zahlen wandeln	Textstring in berechenbare Formel umwandeln