Exstrakt af data i text

Sub opdeling()
Dim temp As Variant
Dim tegnFoerFirkant As Integer
Dim venstre As Variant
Dim hoejre As Variant

'Din tekst står i A1
temp = Trim(Range("a1")) 'mellemrum før og efter fjernes
temp = Right(temp, Len(temp) - Len("Kat:")) '"Kat:" fjernes
tegnFoerFirkant = InStr(1, temp, "#") - 1 'antal tegn før firkant tælles
venstre = Trim(Left(temp, tegnFoerFirkant)) 'venstre side af #, mellemrum før og efter fjernes
hoejre = Trim(Right(temp, Len(temp) - (tegnFoerFirkant + 1))) 'højre side af #, mellemrum før og efter fjernes
MsgBox venstre & " " & hoejre 'her vises resultat.

End Sub

strord = "Kat:Text 1 # text 2"
Text1 = Trim(Split(Replace(strord, ":", "#"), "#")(1))
Text2 = Trim(Split(Replace(strord, ":", "#"), "#")(2))

Skal du ikke lukke spørgsmålet, emanuel?