2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    PROHARDVER!

    A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
    Kérdés felvetése előtt olvasd el, ha még nem tetted.

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

  • #47641 ReSeTer senior tag
    Új Válasz #47641
    Ú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

    ReSeTer

    senior tag

    Helló!

    Egyszerűen nem tudok rájönni, hogy miért működik első ciklusban az egész, majd amikor az első ismétlés elkezdődik, hibára fut:

      holkeressen = "A1:A1000"
        
      For megintismetel = 1 To 3
      talalatsorszama = Application.Match(munkaszam, Range(holkeressen), 0)
        holkeressen = "A" & talalatsorszama + 1 & ":A1000"
    If VarType(talalatsorszama) = vbError Then
        MsgBox " nincs talalat", vbInformation, "Hiba"
     Else
      MsgBox "cella tartalmának sorszáma az A oszlopban: " & talalatsorszama, vbInformation, "Eredmény üzenet"
      End If
    On Error GoTo
    Egyéb kód itt
    Next megintismetel

    A cél az, hogy addig ismételje, amíg van találat, de próbaképp csak 3x akarom ismételni, majd később átírom. De így se fut le. Elvileg át kellene írnia mindig a keresési tartomány elejét az "előző találat+1"-re, hogy ne számolja bele az előbbi találat.

    Hibaüzenet: Runtime error '13'
    Type Mismatch

    Amikor debug módban rámutatok egérrel a talalatsorszama-ra akkor: Error 2042 az értéke

    Mi lehet a probléma?

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