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

• #24762 Thrawnad senior tag

  Új Válasz 2014-12-29 12:28:44 #24762

  Ú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

  

  Thrawnad

  senior tag

  Szerintetek ez miért szál el hibával ahol értéket akarok adni a tömb elemnek?

  Dim Nap As Integer
  Dim Unnep(1 To 31) As String
  
  Nap = 1
  While Nap < 31
  Unnep(Nap) = Workbooks(File_nev).Worksheets("Adatok").Cells(3, (Nap * 2) + 3) 'Itt szál el
  If (Unnep(Nap) = "ü") Or (Unnep(Nap) = "Ü") Then
  Unnep(Nap) = "1"
  Else
  Unnep(Nap) = " "
  End If
  Nap = Nap + 1
  Wend

  Ez a hiba:

  Run-time error "9":
  Subscript out of range

  Köszi a segítséget!
  Thrawnad

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