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