Kopier del af en celle

=strReverse(left(strReverse;5))

Jeg har fundet en anden løsning, men nok ikke den mest effektive. I kan se den nedenstående. Hvis nogen har input til at bedre løsning er jeg meget åben for det :) Tak!

Sub faktura()
Dim endrow As Integer, hej As String
Application.ScreenUpdating = False

endrow = Range("D" & Application.Rows.Count).End(xlUp).Row
Range("D2").Select
For i = 1 To endrow
If ActiveCell Like "*Delivery note*" Then
hej = ActiveCell.Value
hej = Replace(hej, "Delivery note", "")
ActiveCell = hej
ActiveCell.Offset(1, 0).Activate
Else
If ActiveCell Like "*Invoice*" Then
hej = ActiveCell.Value
hej = Replace(hej, "Invoice", "")
ActiveCell = hej

ActiveCell.Offset(1, 0).Activate
Else
If ActiveCell Like "*Credit note*" Then
hej = ActiveCell.Value
hej = Replace(hej, "Credit note", "")
ActiveCell = hej
ActiveCell.Offset(1, 0).Activate
Else
ActiveCell.Offset(1, 0).Activate
End If
End If
End If
Next i

End Sub

Måske kan denne give dig lidt inspiration:

Sub InvoiceNo()
Dim C As Range
Dim L, X As Integer
For Each C In Range("D1:D100")
L = Len(C)
For X = L To 1 Step -1
If (Mid(C, X, 1)) = " " Then
C.Offset(0, -3) = Mid(C, X, 999)
GoTo A:
End If
Next
A:
Next
End Sub

Når der nu er "åbnet" for VBA som løsningsmulighed, er det meget simpelt at isolere det sidste ord i en celle:

Function SidsteOrd(ps As String) As String
  SidsteOrd = Mid(ps, InStrRev(ps, " "))
End Function

Skal f.eks. så bare kaldes med formlen "=SidsteOrd(d3)"
Hvis feltet skal være numerisk, skal det være "=SidsteOrd(d3)+0"