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





Computerworld
Med ny iOS-opdatering vil du selv kunne slå udskældt batterifunktion fra på din iPhone
Apple har sænket ydeevnen på ældre iPhones for at få batteriet til at holde længere, men nu fortæller Tim Cook, at du i fremtiden selv kan slå funktionen fra.
CIO
Vestas’ CIO stopper: Torben Bonde trækker sig efter 19 år på posten
Interview: Torben Bonde har været CIO i Vestas i de seneste 19 år og har været øverste chef for mange hundrede it-medarbejdere i en global it-organisation, men nu er det slut. Her fortæller Torben Bonde om fremtidsplanerne.
Comon
Microsofts Surface Book 2 kan nu købes i Danmark - men prisen er høj
Microsofts egen hybrid-computer med et dedikeret grafikkort kan nu købes i Danmark, men særligt den store 15 tommer-model får også en høj pris.
Job & Karriere
Dansk it-virksomhed indførte fire-dages arbejdsuge: I dag er sygefraværet rekord-lavt og direktøren har tabt sig 13 kilo
Interview: Great Place To Work kategori-vinderen IIH Nordic har indført en fire-dages arbejdsuge og taget et opgør med forstyrrende storrums-kontorer og en frustrerende mailkultur. I dag er medarbejderne gladere end nogensinde før.
White paper
Mobility - her er de aktuelle udfordringer
Hvad med sikkerheden? Mobility-bølgen fejer igennem danske virksomheder, og der er masser af muligheder og faldgruber. Sikkerheden halter, men det kan der gøres noget ved. Produceret af Computerworld.dk i oktober 2014.