MS Excel

Téma: Kod vba pro nalezeni textu

Zaslal/a PavDD 21.2.2024 15:24

Potřeboval bych prosím vyextrahovat z textu :
objednávky činí 921,49 CZK bez DPH (1 115,00 CZK s DPH).

zprava jen tu cenu 1 115,00 .
tzv zleva od závorky po mezeru před CZK.
Děkuji

Zaslat odpověď >

elninoslov(21.2.2024 16:18)#056210

Dim Text As String, Cena As Double

Text = "objednávky činí 921,49 CZK bez DPH (1 115,10 CZK s DPH)."
Cena = Val(Replace(Split(Split(Replace(Text, " ", ""), "(")(1), "CZK")(0), ",", "."))citovat

PavDD(21.2.2024 17:23)#056211