Right Funktion
30.03.2006 16:32:23
Veneno
habe ein problem mit der right funktion.
Will nur die Werte aus einer Spalte wiedergeben die nach dem "/" stehen.
GWN.840/40421 => 40421
MANDT100.100/7020 => 7020
Mein code sieht so aus, liefert mir aber nur einstellige Werte.
Mit der varibalen mypos will ich die position vom "/" in der Zeichenfolge bestimmen. Mit der right Funktion alle Werte rechts vom "/" wiedergeben.
Sub SupplierNr()
Dim imypos As Integer
iZeile = 29
iEndzeile = Sheets("PVO").Cells(Rows.Count, 5).End(xlUp).Row
Do Until iZeile = iEndzeile + 1
If iZeile = iEndzeile + 1 Then GoTo Finish
imypos = InStr(1, Sheets("PVO").Cells(iZeile, 5), "/")
Sheets("PVO").Cells(iZeile, 5) = Right(imypos, 10)
iZeile = iZeile + 1
Loop
Finish:
End Sub
Für Tips und Lösungsansätze wäre ich sehr dankbar.
Grüsse
Stefan
Anzeige