17. september 2014 - 15:06Der er
4 kommentarer og 1 løsning
Skjul fane ud fra en celleværdi
Jeg har et oversigtsark over en masse lejenr. Hver lejenr. har en fane for sig i samme regneark, som alle ser ens ud. Fanerne har navne efter lejernr. som vist nedenfor. Nogle af disse lejenr./faner er inaktive og skal derfor skjules. I mit oversigtsark har jeg en kolonne, der viser om fanen er aktiv eller passiv. Kan jeg ud fra dette ark - ud fra aktiv/passiv kolonnen, styre om fanen bliver skjult eller vist?
Lejernr. Aktiv 6012 Passiv 44012 Aktiv 45012 Passiv
Mød TrackMan og Veo på Computerworld Cloud & AI Festival og hør, hvordan tech ændrer måden, vi træner og udvikler talent – fra skolebold til The Masters.
Højreklik på oversigtsarkets fane og vælg Vis programkode. Indsæt nedenstående makro Når du ændre status på oversigtsarket i kolonne B udføres makroen.
Kræver at din Excel er indstillet til makroer.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 Then checkVisningAfArk End If End Sub Private Sub checkVisningAfArk() Dim antalRæk As Integer, ræk As Integer, arkNavn As String For ræk = 2 To ActiveCell.SpecialCells(xlLastCell).Row arkNavn = Range("A" & ræk) If LCase(Range("B" & ræk)) = "aktiv" Then ActiveWorkbook.Sheets(arkNavn).Visible = True Else If LCase(Range("B" & ræk)) = "passiv" Then ActiveWorkbook.Sheets(arkNavn).Visible = False End If End If Next ræk End Sub
Fint og selv tak. Hvis du vil give point - så Accepter mit svar i #2.
Synes godt om
Ny brugerNybegynder
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.