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
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.