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

• #47641 ReSeTer senior tag

  Új Válasz 2021-10-25 09:12:12 #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