Avatar billede cpccorp Juniormester
17. januar 2019 - 09:22

Find rækkenummer i lukket regneark

Jeg prøver på at finde rækkenummeret i et andet regenark, hvor værdien af cellen er lige med et bestemt ord

Har rodet lidt rundt med denne kode:

Dim wkb As Workbook
Dim a As Range
    Dim clientwks As Worksheet
    Dim listrange As String
  Dim foundValue As Range
  Dim fundet As Integer
  Dim clientlist As Range
  Dim listen As Range
 
  Set wkb = Workbooks.Open("Q:\KUNDER\PROJEKTER\HPG\HPG_DB.xlsx")
    Set clientwks = wkb.Sheets("Template_0")
    Set clientlist = clientwks.Range("A1")
    listrange = "PRO123456"
    Set listen = Range("A1", Range("A1").End(xlDown))
For Each a In listen
  Set foundValue = clientlist.Cells.Find(listrange)
  If Not foundValue Is Nothing Then
    a.Offset(0, 0).Value = foundValue.Row
  End If
  Next a
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester