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

Flere spørgsmål fra Excel kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Nul efter forreste tal Af Marting i Excel	1	I går 21:50	I går 22:46
Fjerne tomme celler i kolonne Af torben lind i Excel	4	I går 19:15	I går 20:28
Markere dubletter ud fra reference felt. Af jthyge i Excel	9	I går 08:46	I dag 11:58
Flytte indhold fra en celle til en anden Af torben lind i Excel	8	01/05/202414:34	I går 10:46
Splitte tal og tekst Af HHA i Excel	11	30/04/202411:52	30/04/202415:14

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