makro vypíše časť textu Vyřešeno

[maraga]

Ahoj,

chcel by som vás poprosiť o pomoc.

Mám názvy, ktore sa mení a počet znakov môže byť rôzny:
napr.:
A-CDCA-EDO
A-BB-EOU-EDO
A-CBCC_ESFF-EDO
A-EDO

A-.....-EDO sú v názve vždy, ak by to malo pomôcť.

Moja otázka:
dalo by sa aby mi makro vypísalo text medzi A- a -EDO???
Ak je hodnota A-EDO vráti tú istú hodnotu, čiže A-EDO


ďakujem za pomoc

[Reklama]

[lubo.]

Musí do být makro? Pokud je to v listu, stačí vzorec.

Public Function xxx(text As String) As String
If Len(text) <= 6 Then
xxx = text
Else
xxx = Mid(text, 3, Len(text) - 6)
End If
End Function