Werte eines Textes extrahieren
21.06.2006 09:50:59
Anton
ich extrahiere aus einem Text alles was nach dem Bindestrich folgt.
Das wurde bisher als Text extrahiert.
In Wirklichkeit sind dies aber Zahlen,
die ich später mit Sverweis vergleichen und ändern lassen will.
Sverweis findet aber nur Werte (Zahlen).
In meinem Makro möchte ich nun den Wert [ActiveCell.FormulaR1C1 = "=VALUE(RC[-1])"]
einbauen und weis nicht wie.
Sub I_CodeSerparatStellen()
Dim Lrow As Long, i As Long
Lrow = Cells(Rows.Count, 2).End(xlUp).Row
For i = Lrow To 2 Step -1
If Cells(i, 2).Value Like "*Activity Name & ID*" Then
Cells(i, 3).FormulaR1C1 = "=MID(RC[-1],FIND("" - "",RC[-1])+3,4)"
'=TEIL([Such-Zelle];FINDEN(" _ ";[Such-Zelle])+3;4)
End If
Next i
End Sub
Wer kann mir bitte bei meinem Code weiterhelfen?
Mein Dank geht schon jetzt in Eure Richtung.
Servus,
Anton