Új hozzászólás Aktív témák

• #25426 Fferi50 Topikgazda Delila_1 #25423

  Új Válasz 2015-02-12 15:18:02 #25426

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fferi50

  Topikgazda

  válasz Delila_1 #25423 üzenetére

  Szia!

  Ha már makró, próbáljuk meg tömbfüggvénnyel:

  Function szetszedo(ByRef cl As Range)
  alap = cl.Value
  alap = alap & String(2 - UBound(Split(cl.Value, "*")), "*")
  szetszedo = Split(alap, "*")
  End Function

  Kijelölöd a 3 cellát vizszintesen, ahová az eredményt szeretnéd kapni.
  Ezután beírod =szetszedo(A1) , ha a "szétdobandó" szám az A1 cellában van.
  Tömbképletként (shift+Ctrl+Enter) beviszed.

  Üdv.

Új hozzászólás Aktív témák