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

• #16499 m.zmrzlina senior tag

  Új Válasz 2013-01-28 11:30:13 #16499

  Ú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

  

  m.zmrzlina

  senior tag

  Egy fix szélességű de változó hosszúságú tömböt szeretnék létrehozni és azt feltölteni adattal. (kb tíz sor és néhányszor tíz oszlop).

  Sub test()
  Dim intVmax As Integer
  Dim intS As Integer
  Dim intO As Integer
  Dim tomb1() As Variant
  
  intVmax = 1
  ReDim Preserve tomb1(1 To intVmax, 1 To 50)
  For intS = 1 To 5
  
  For intO = 1 To 50
  tomb1(intS, intO) = intS * intO
  Next
  
  intVmax = intVmax + 1
  ReDim Preserve tomb1(1 To intVmax, 1 To 50)
  
  Next
  
  End Sub

  A problémám a tömb ReDim parancsánál van. Itt <Subscript out of range> hiba adódik. Nyilván keverem a sort és az oszlopot de nem tudom hogy hol.
  Minden segítséget előre is köszi.

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