jensen363 Seniormester
14. november 2017 - 12:06 Der er 1 kommentar og
1 løsning

Mindst 7 sammenhængende kolonner med resultater

Jeg har et regneark bestående af en kalender med 365 dage i kolonner ( fra kolonne D til ND )

En række kan bestå af enten en talværdi eller en blank værdi

Jeg har behov for en formel som pr. række angiver om der mindst er 7 eller flere sammenhængende kolonner der ikke er brudt af et blankt felt.
jens48 Ekspert
14. november 2017 - 13:09 #1
Nedenstående makro checker om der er min. 7 sammenhængende celler i de enkelte rækker. Der bliver skrevet "7 i Række" i kolonne C eller kolonne NE hvis 7 sammenhængende celler findes.
Husk at slette 2 linjer i makroen, så data kun bliver skrevet ind i den ønskede kolonne (C eller NE)
Den registrerer ikke hvor mange sammenhængende celler der er, hvis der er flere end 7

Sub Raekke()
Dim LastRow, x, y As Integer
Application.Calculation = xlCalculationManual
LastRow = ActiveSheet.UsedRange.Rows.Count
Range("C3:C" & LastRow).ClearContents ' sletter gammel data i kolonne C
Range("NE3:NE" & LastRow).ClearContents ' sletter gammel data i kolonne NE
For x = 3 To LastRow
For y = 4 To 362
If WorksheetFunction.CountIf(Range(Cells(x, y), Cells(x, y + 6)), ">0") = 7 Then
Cells(x, 3) = "7 i række" ' skriver tallet ind i kolonne C
Cells(x, 369) = "7 i række" ' skriver tallet ind i kolonne NE
End If
Next
Next
Application.Calculation = xlCalculationAutomatic
End Sub
jensen363 Seniormester
14. november 2017 - 14:31 #2
Tusinde tak :-)
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

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





Premium
Frank Rasmussen nægter at afvise Hopper stjæler data fra Saphe: "Vi har masser af servere, så jeg ved ikke, hvad det er, jeg skal afvise"
Interview: Telerigmanden Frank Rasmussen tager endnu en gang til genmæle over for konkurrenten Saphe, der beskylder ham for at stjæle data. Han nægter dog at afvise, at det rent faktisk sker. "Vi har masser af servere, så jeg ved ikke, hvad det er, jeg skal afvise," lyder det.
Computerworld
Windows 10's katastrofe-update: Derfor begyndte den pludseligt at slette brugernes filer
Den seneste Windows 10 opdatering kunne i værste fald slette vigtige filer. Microsoft sætter tal på hvor mange der er berørt af den katastrofale fejl.
CIO
Forleden reparerede en mekaniker min bil: Det kostede 4.200 kroner, som min hjerne snød mig til at betale med et smil
De rationelle it-beslutninger du træffer er måske en illusion. Det lærte jeg da min bil gik i stykker og min hjerne snød mig til at tro, at alt var fint. Til gengæld fandt jeg tre fælder dine it-beslutninger kan falde i.
Job & Karriere
Her er syv job-annoncer der overrasker med helt usædvanlige overskrifter
Der er mange ledige it-job i øjeblikket. It-jobbank har her fundet syv spændende stillinger, der har det til fælles, at annoncen har en utraditionel overskrift.
White paper
Stor undersøgelse: Mange SMB virksomheder er langt fra at realisere deres potentiale, i forhold til digital transformation
35% af de adspurgte medarbejdere fra små- og mellemstore virksomheder mener, at deres virksomhed vil falde bagud inden for fem år, hvis de ikke investerer i ny teknologi. En undersøgelse blandt 3.600 medarbejdere i 23 lande viser, at selvom medarbejderne er åbne for og interesserede i den digitale arbejdsplads, så mener mange ikke, at de er klædt godt nok på til at drage de fulde fordele af de nye værktøjer og muligheder. Download rapporten for at blive klogere på nogle af fordelene og processerne omkring den digitale arbejdsplads.