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

• #21818 bagira82 csendes tag Delila_1 #21817

  Új Válasz 2014-05-30 10:23:26 #21818

  Ú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

  

  bagira82

  csendes tag

  válasz Delila_1 #21817 üzenetére

  Szia,

  A megoldásodat az alábbira formáltam. Hogyan tudnám meghatározni, hogy mennyi ilyen Tomb változó keletkezett? A lényege az egésznek az lenne, hogy a vesszőig beolvasott karaktereket az "a"változóban tárolnám, addig, amig egy másik munkalapon megkeresem az "a" változóban lévő értéket. Utána jöhet a következő vessző előtti 10 vagy 11 karakter, amit szintén "a" váltzóban tárolnám, és ez az egész addig megy, amíg el nem fogynak a karakterek a cellában.

  Do

  lep = ActiveSheet.Cells(i, 4).Value

  Dim Tomb
  Tomb = Split(ActiveSheet.Cells(i, 4).Value, ",")

  Do
  a = Tomb(j)
  j = j + 1
  Loop Until Tomb(j) = Empty ' HIBAÜZENET ITT (subscript out of range)

  i = i + 1

  Loop Until lep = Empty

  Köszi

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