Hallo Uwe,
 

Sub Nummernkombi()
Const Trenner = "|"
Dim found As Variant, zeile As Long, erg As String, nummer As String
  With ActiveSheet
    Set found = .Cells.Find(what:="NVE", LookIn:=xlValues, lookat:=xlWhole)
    If found Is Nothing Then
      MsgBox "Text NVE nicht im ARbeitsblatt enthalten"
      Exit Sub
    End If
    zeile = 1
    Do
      nummer = found.Offset(zeile, 0)
      erg = erg & IIf(erg <> "", Trenner, "") & Mid(nummer, 3, Len(nummer) - 3)
      zeile = zeile + 1
    Loop Until found.Offset(zeile, 0) = ""
    found.Offset(zeile, 0) = erg
  End With
End Sub

entfernt auch den Apostroph hinter der Nummer und setzt das ERgebnis in die erste freie Zelle der Spalte.

Gruß der AlteDresdner