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
Margrethe Vestager ramte ikke Google der, hvor det for alvor gør ondt. Men hun kan nå det endnu
ComputerViews: Googles aktionærer havde blot et skuldertræk til overs for EU's rekordstore bøde på 32 milliarder kroner. Her er en række bud på, hvad EU kan gøre, hvis Google og andre tech-giganter skal rammes, hvor det for alvor gør ondt.
Computerworld
Google svarer igen på Vestagers rekordbøde: Truer med at tage betaling for Android
Google kan begynde at tage penge for Android, der indtil nu har været gratis. Den trussel kommer fra Google i kølvandet på selskabets 32 milliarder-store bøde fra EU.
CIO
Henrik Jeberg om at arbejde i Silicon Valley: "Er du dygtig nok får du tilbud der får en til at falde ned af stolen."
Henrik Jeberg bor i San Francisco og er direktør i Hampleton Partners, der rådgiver om opkøb med særligt fokus på teknologi. Hør ham fortælle om forskellen på Danmark og Silicon Valley - og om nogle af de vilde forhold der hersker i verdens ubestridte tech-hovedstad.
Job & Karriere
KMD opsagde tryghedsaftaler med medarbejderne få måneder før 300 medarbejdere blev outsourcet til IBM
KMD har i løbet af foråret opsagt to såkaldte tryghedsaftaler med en del af selskabets medarbejdere. Når aftalerne stopper ved udgangen af 2018, er de pågældende medarbejdere ikke længere berettiget til særlig godtgørelse. Det kan få konsekvenser, hvis IBM som forventet skærer i antallet af de 300 KMD-medarbejdere, som selskabet overtager.
White paper
Fire trin til øget cybersikkerhed på den digitale arbejdsplads
Organisationer af enhver størrelse er i konstant risiko for at blive udsat for cyberangreb, som potentielt kan ende med at koste millioner af kroner. I de kommende år vil reguleringer, som den nye EU-persondataforordning, kunne straffe virksomheder med gigantiske bøder, for utilstrækkelig sikring af deres systemer og data. Hvordan dette kan undgås, kan du læse mere om i dette whitepaper.