Immer noch nicht so richtig klar was du vor hast, da du Begriffe (Zelle, Spalte, Zeile) durcheinander haust. Weiterhin ist nicht klar was in welcher Zeile steht.
Daher allgemein mal:
If Cells(2, "R").Value = "10-A200" Then
Dim vntValue As Variant
vntValue = Cells(2, "V").Value
vntValue = Left(vntValue, InStrRev(vntValue, ":"))
Cells(2, "V").Value = vntValue
End If
Schaut in Zelle R2 nach dem Inhalt. Ist der Inhalt "10-A200", dann wird der Wert aus V2 genommen. Dieser Wert nach dem ":" abgeschnitten und wieder zurück in die Zelle V2 geschrieben.
Stand in V2 also "Link: Blatt 24", wird daraus zum Schluss "Link:".
|