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

Sjonne99 Nybegynder

01. juni 2015 - 11:42 Der er 3 kommentarer og
1 løsning

Vis skjulte Rækker i regneark hvis celle ændrer sig

Hej
Vil gerne oprette en makro så jeg kan få vist et bestemt antal skjulte rækker Afhængig af hvad der står skrevet i celle A1 i regnearket.

Jeg har i "A1" en dropdownboks med nogle navne og når jeg fx vælger Lotte så vises række "A2" til række "A20" osv.

Synes godt om

jens48 Ekspert

01. juni 2015 - 13:02 #1

Noget i denne stil vil kunne bruges:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
Range("A3:Y3").Select
Name = Range("A1")
Range("A2:A200").EntireRow.Hidden = True ' tilpas efter behow
Select Case Name
Case "Lotte"
Range("A2:A20").EntireRow.Hidden = False
Case "Mette"
Range("A21:A40").EntireRow.Hidden = False
Case "Nora"
Range("A41:A60").EntireRow.Hidden = False
Case "Olga"
Range("A61:A80").EntireRow.Hidden = False
Case Else
MsgBox ("Navn ukendt")
End Select

End If
End Sub

Synes godt om

jens48 Ekspert

01. juni 2015 - 13:19 #2

Du får en lidt bedre version. Tager ikke hensyn til om navnet er skrevet med stort, og viser alle linier, hvis A1 er tom.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
If Range("A1") = "" Then
Range("A2:A200").EntireRow.Hidden = False
Else
Name = Application.Proper(Range("A1"))
Range("A2:A200").EntireRow.Hidden = True ' tilpas efter behow
Select Case Name
Case "Lotte"
Range("A2:A20").EntireRow.Hidden = False
Case "Mette"
Range("A21:A40").EntireRow.Hidden = False
Case "Nora"
Range("A41:A60").EntireRow.Hidden = False
Case "Olga"
Range("A61:A80").EntireRow.Hidden = False
Case "Else"
Range("A81:A100").EntireRow.Hidden = False
Case Else
MsgBox ("Navn ukendt")
End Select
Range("A1").Select
End If
End If
End Sub

Synes godt om

Sjonne99 Nybegynder

01. juni 2015 - 13:24 #3

Fedt det virker :)
Mange tak for hjælpen, smid et svar så skal du få dine point

Synes godt om

jens48 Ekspert

01. juni 2015 - 13:32 #4

Du får et svar

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
lookup Af tjodense i Excel	5	08/07/202513:38	I går 09:27
Mellem tidspunkter Af nyhavn18 i Excel	3	02/07/202519:07	03/07/202506:29
Oversigt over antal feriedage Af AnjaJesse i Excel	8	02/07/202510:02	03/07/202509:11
Brugere må gerne redigere, men ikke overskrive default sortering eller filtrering Af mj72 i Excel	6	30/06/202516:17	04/07/202511:40
Scanning af stregkode til flere celler Af zekedk i Excel	1	26/06/202508:55	26/06/202510:26

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