CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

Egonolsen Praktikant

07. januar 2017 - 23:17 Der er 2 kommentarer

Hjælp til at skjule data udfra en værdi

Hej alle,

Mit spørgsmål går meget enkelt ud på jeg har en masse data fra et spørgeskema, da jeg hiver det ned i Excel har den lagt lavet rækker til alt data selvom respondenten slet ikke skal svare på disse spørgsmål.

Så hvis jeg f.eks. har jeg en kolonne med værdier fra 1 til 4 på hver række og udfra den værdi, vil jeg gerne have vist nogen bestemte kolonner og skjult de andre kolonner.
Kan dette lade sig gøre??

Håber virkelig en kan hjælp mig.

Synes godt om

excelent Ekspert

08. januar 2017 - 08:41 #1

Hvis du selv indtaster tallene 1-4 i fx kolonne A så :
Højre klik på aktuel arkfane og vælg Vis Programkode. Indsæt kode der.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:A60")) Is Nothing Then Exit Sub
If Application.CountIf(Range("A1:A60"), 1) >= 1 Then Columns(4).Hidden = True Else Columns(4).Hidden = False
If Application.CountIf(Range("A1:A60"), 2) >= 1 Then Columns(6).Hidden = True Else Columns(6).Hidden = False
If Application.CountIf(Range("A1:A60"), 3) >= 1 Then Columns(8).Hidden = True Else Columns(8).Hidden = False
If Application.CountIf(Range("A1:A60"), 4) >= 1 Then Columns(10).Hidden = True Else Columns(10).Hidden = False
End Sub

Synes godt om

excelent Ekspert

08. januar 2017 - 08:43 #2

Anvend denne i stedet :

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:A60")) Is Nothing Then Exit Sub
If Application.CountIf(Range("A1:A60"), 1) >= 1 Then _
Columns(4).Hidden = True Else Columns(4).Hidden = False
If Application.CountIf(Range("A1:A60"), 2) >= 1 Then _
Columns(6).Hidden = True Else Columns(6).Hidden = False
If Application.CountIf(Range("A1:A60"), 3) >= 1 Then _
Columns(8).Hidden = True Else Columns(8).Hidden = False
If Application.CountIf(Range("A1:A60"), 4) >= 1 Then _
Columns(10).Hidden = True Else Columns(10).Hidden = False
End Sub

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

Excel kurser

Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Excel hjælp Af rudbech i Excel	6	12/09/202509:09	12/09/202510:52
VBA der vælger celler med værdi over 0 Af Excel Styrmanden i Excel	1	10/09/202510:07	10/09/202511:16
Hente data fra andet excelark VBA Af fajens i Excel	7	02/09/202511:29	03/09/202512:32
tæl sorteret data Af ABE15 i Excel	4	01/09/202521:04	04/09/202507:12
Gnidret graf Af mort1 i Excel	2	31/08/202513:18	31/08/202518:51

Se alle spørgsmål i kategorien Opret spørgsmål

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

Alle kategorier på Eksperten

Seneste artiklerRSS