upravil jsem trochu to makro. Číslo v buňce C1 označuje pozici znaku "," v části textu po mezeře po očištění od ".".
Takže pro formát #.###.###,## se jedná o 8. pozici v řetězci #######,##.
Chce si to pohrát s tou podmínkou:
Kód: Vybrat vše
If (Left(txt, 1) = "," And Len(strng) = Pos) Then GoTo lbl2