Aktív témák

• #319 matekmatika tag

  2006-05-24 17:20:25 #319

  Ö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

  

  matekmatika

  tag

  Újabb problémák, szinte szégyen ,de nem jövök rá hogyan dekraláljam a munkalap változót, hogy megegye.
  Sub x()
  i= 0
  For Each Worksheet In ActiveWorkbook.Worksheets
  Set nev = Worksheets(Worksheet.Name)
  If IsNumeric(Worksheet.Name) Then
  i= i + 1
  munkalap(i) = Worksheet.Name
  End If
  Next
  End Sub
  vagy tipemiccsmaccsol vagy runtimeerrorozik.
  Próbálkoztam már ilyenekkel, bár úgy tudtam itt nem kötelező deklarálni:
  Dim munkalap as integertől a variantig minden
  mégis annak hiányára vagy helytelenül megadására nyavajog.
  
  Ja próbáltam így is:
  munkalap(i) = cdec(Worksheet.Name)
  de ugyanaz.
  
  [Szerkesztve]

Aktív témák