Avatar billede MSR Juniormester
08. november 2021 - 15:03

Indsætning af loop indtil tom kolonne

Jeg har fået følgende til at virke:
Set rInputTable = Range("A7").CurrentRegion
arInput = rInputTable.Value
Set rInputTable = Nothing

ReDim arOutput(1 To UBound(arInput), 1 To UBound(arInput, 2))
For lRow = 1 To UBound(arInput)
  If arInput(lRow, 1) Like vPattern Then
      lCount = lCount + 1
      For lCol = 1 To UBound(arInput, 2)
        arOutput(lCount, lCol) = arInput(lRow, lCol)
      Next
  End If
Next
Jeg vil dog gerne at "arInput(lRow, 1)" løber hele arket igennem og ikke kun 1. kolonne som nu, men jeg kan ikke lure hvordan jeg skal flettes loopet ind?
jeg tænker det kan være arInput(lRow, xcol) og at xcol så +1 til sidst?

Ligeledes kunne det være fedt hvis det kunne løbe alle ark igennem og ikke kun current, men det er mindre vigtigt.
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

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





CIO
Sådan tager top-CIO Pernille Geneser livtag med 40 år gamle it-systemer i Stark Group med 10.000 medarbejdere