Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Arrangementer   Opret ny bruger Opret ny bruger  Log ind Log ind


Emne lukketSkjule fane efter indhold i celle...
 Besvar Besvar
Forfatter
  Emne Søg Emne Søg  Emne funktioner Emne funktioner
kbno Se dropdown
Guld bruger
Guld bruger
Avatar

Medlem: 07.Feb.2011
Land: Danmark
Status: Offline
Point: 500 		Direkte link til dette indlæg Emne: Skjule fane efter indhold i celle...
    Sendt: 29.Apr.2013 kl. 09:02
Hej Forum

Kan man lave et script, eller formel der skjuler/viser en fane alt efter indholdet i en celle.

A1 "" = Fane 1 skjult
A1 "HEJ" = fane 1 vist

Håber nogen kan hjælpe.
Hygge - Kim
Excel 365 DK user
Til top



Til top
Allan Se dropdown
Forum Admin
Forum Admin
Avatar
Forum Admin

Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330 		Direkte link til dette indlæg Sendt: 29.Apr.2013 kl. 09:38
Hej Kim,
 
Det kan man sagtens, prøv denne lille kodestump som skal placeres under selve arket (Højreklik på fanen og indsæt programkode)
Du kan konfigurere koden ved at rette i InputCelle, MagiskOrd og ArkSomSkalSkjules.
 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Inputcelle, MagiskOrd, ArkSomSkalSkjules As String
 
Inputcelle = "$A$1"
MagiskOrd = "HEJ"
ArkSomSkalSkjules = "Ark2"
 
If Target.Address = Inputcelle Then
    If Target = MagiskOrd Then
        Worksheets(ArkSomSkalSkjules).Visible = True
    Else
        Worksheets(ArkSomSkalSkjules).Visible = False
    End If
End If
End Sub
 
MVH

Allan
Excel-regneark.dk - Gratis skabeloner til Excel
Få over 120 ekstra funktioner med Danmarks bedste add-in
Til top
kbno Se dropdown
Guld bruger
Guld bruger
Avatar

Medlem: 07.Feb.2011
Land: Danmark
Status: Offline
Point: 500 		Direkte link til dette indlæg Sendt: 29.Apr.2013 kl. 09:46
Hej Allan

Jeps den skjulte når jeg tastede HEJi cellen, meeen Tongue den skulle skjule fanen når cellen var tom og automatisk vise cellen når der var indtastet et navn i cellen. Navnet kan være vilkårligt.

Jeg har forsøgt at bytte rundt på true/false og virker som sådan også¨, bortset fra at jeg kun kan få det til at kører efter et specifikt navn. Dette skal helst kører efter en vilkårlig tekst.

Og så for lige at gører det mere besværligt - så er der 8 celler og 8 faner Wink
Hygge - Kim
Excel 365 DK user
Til top
Allan Se dropdown
Forum Admin
Forum Admin
Avatar
Forum Admin

Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330 		Direkte link til dette indlæg Sendt: 29.Apr.2013 kl. 11:20
Super, så prøver vi bare noget andet.
 
Du skriver at du har 8 celler og 8 faner... det forstår jeg ikke.
 
Spørgsmål 1:
Du står på Ark1.
Du sletter teksten i A1, hvad skal der så ske?
Skal Ark1 skjules, eller skal alle ark fra 1 - 8 skjules, eller er det blot Ark1 som skal skjules?
 
//Allan
 
 
Til top
kbno Se dropdown
Guld bruger
Guld bruger
Avatar

Medlem: 07.Feb.2011
Land: Danmark
Status: Offline
Point: 500 		Direkte link til dette indlæg Sendt: 29.Apr.2013 kl. 12:11
JEg har vedlagt et liell ark - nok nemmere i længden Tongue

uploads/183/test_8_faner.xlsx

Når der tastes et navn i en celle - skal den tilhørende fane skjules.

Så 8 individuelle funktioner. Jeg startede bare med at spørge om en da jeg så selv ville bygge den ud Wink
Hygge - Kim
Excel 365 DK user
Til top
Allan Se dropdown
Forum Admin
Forum Admin
Avatar
Forum Admin

Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330 		Direkte link til dette indlæg Sendt: 29.Apr.2013 kl. 13:12
OK, opgaven forstået Wink
 
 
//Allan
Til top
kbno Se dropdown
Guld bruger
Guld bruger
Avatar

Medlem: 07.Feb.2011
Land: Danmark
Status: Offline
Point: 500 		Direkte link til dette indlæg Sendt: 29.Apr.2013 kl. 13:28
Hej Allan

Lige nøjagtig - den driller dog stadig, og det fordi at i det virkelig ark er kolonnerne B+C flettet - dette bevirker at skjul funktionen ikke spiller.

Jeg har forsøgt at sige:
If Target.Column < 2 Or Target.Column > 3 Then Exit Sub

Men det hjalp desværre ikke.
Hygge - Kim
Excel 365 DK user
Til top
Allan Se dropdown
Forum Admin
Forum Admin
Avatar
Forum Admin

Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330 		Direkte link til dette indlæg Sendt: 29.Apr.2013 kl. 13:38
 
Lav linjen
If Not IsEmpty(Target) Then
om til
If Target.Text <> "" Then
 
//Allan
Til top
kbno Se dropdown
Guld bruger
Guld bruger
Avatar

Medlem: 07.Feb.2011
Land: Danmark
Status: Offline
Point: 500 		Direkte link til dette indlæg Sendt: 29.Apr.2013 kl. 13:47
Det virkede - men fandt alligevel en lille bøvs. Kan dog godt leve med den Wink

Bøvs = Skjul funktion dur kun hvis man sletter 1 celle af gangen, og ikke ved markering af flere og slet.

Men som sagt - kan snild leve med den Smile

TAKKER 1000
Hygge - Kim
Excel 365 DK user
Til top
Allan Se dropdown
Forum Admin
Forum Admin
Avatar
Forum Admin

Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330 		Direkte link til dette indlæg Sendt: 29.Apr.2013 kl. 14:05
Velbekomme Kim Smile
 
Men vi kan jo lige så godt lave den færdig og dermed fjerne 'bøvsen'
I denne version kan man også skjule flere faner af gangen.
 
//Allan
Til top
kbno Se dropdown
Guld bruger
Guld bruger
Avatar

Medlem: 07.Feb.2011
Land: Danmark
Status: Offline
Point: 500 		Direkte link til dette indlæg Sendt: 29.Apr.2013 kl. 14:15
Jamen du er GUD Wink Virker PERFEKT
Hygge - Kim
Excel 365 DK user
Til top
kbno Se dropdown
Guld bruger
Guld bruger
Avatar

Medlem: 07.Feb.2011
Land: Danmark
Status: Offline
Point: 500 		Direkte link til dette indlæg Sendt: 29.Apr.2013 kl. 14:18
Mens du er online - Jeg har i samme forbindelse denne funktion til en knap liggende:

    If Sheets("UC1").Visible <> xlSheetVisible Then Exit Sub
    Sheets("UC1").Select

Hvis du den istedet for at EXIT sub skal vælge en anden fane hvordan sættes denne så ind? Har virkelig forsøgt mange kombinationer uden held Cry
Hygge - Kim
Excel 365 DK user
Til top
Allan Se dropdown
Forum Admin
Forum Admin
Avatar
Forum Admin

Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330 		Direkte link til dette indlæg Sendt: 29.Apr.2013 kl. 14:39
Tak for tilbagemeldingen LOL
 
Jeg ville gøre det således:
 
If Sheets(Range("UC1").Text).Visible = True Then Sheets(Range("UC1").Text).Select
 
 
Til top
kbno Se dropdown
Guld bruger
Guld bruger
Avatar

Medlem: 07.Feb.2011
Land: Danmark
Status: Offline
Point: 500 		Direkte link til dette indlæg Sendt: 29.Apr.2013 kl. 15:14
Hej Allan

Den giver desværre fejl  Cry lige efter TRUE THEN
Hygge - Kim
Excel 365 DK user
Til top
Allan Se dropdown
Forum Admin
Forum Admin
Avatar
Forum Admin

Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330 		Direkte link til dette indlæg Sendt: 30.Apr.2013 kl. 11:09
Hej Kim,
 
Jeg vil gætte på at det er fordi at der ikke er noget ark som hedder det som står i cellen UC1.
 
//Allan
Til top
kbno Se dropdown
Guld bruger
Guld bruger
Avatar

Medlem: 07.Feb.2011
Land: Danmark
Status: Offline
Point: 500 		Direkte link til dette indlæg Sendt: 30.Apr.2013 kl. 11:15

Fanen UC1 er der og jeg har forsøt med at fanen er både synlig og skjult.

 
Jeg har modificeret den til følgende:

 If Sheets(Range("UC1").Text).Visible = False Then Sheets(Range("KOM-T_IQ3").Text).Select
 
Det er sådan knappen skal fungerer, Altså vilge fanen UC1 når fanen er synlig og når den er skjult skal den vælge KOM-T-IQ3.
 
Denne modificering fejler samme sted.
Hygge - Kim
Excel 365 DK user
Til top
Allan Se dropdown
Forum Admin
Forum Admin
Avatar
Forum Admin

Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330 		Direkte link til dette indlæg Sendt: 30.Apr.2013 kl. 11:33
Prøv at sætte denne stump kode ind i stedet for din linje:
 
Dim Sh As Worksheet
For Each Sh In ThisWorkbook.Worksheets
    If Application.Proper(Sh.Name) = Application.Proper(Range("UC1").Text) Then
        If Sheets(Range("UC1").Text).Visible = False Then Sheets("KOM-T_IQ3").Select
        shExist = True
    End If
Next Sh
If shExist <> True Then MsgBox "Fanen '" & Range("UC1").Text & "' eksisterer ikke", vbCritical
Til top
kbno Se dropdown
Guld bruger
Guld bruger
Avatar

Medlem: 07.Feb.2011
Land: Danmark
Status: Offline
Point: 500 		Direkte link til dette indlæg Sendt: 30.Apr.2013 kl. 17:55
Den ender ud med at fanen ikke eksisterer uanset kombination Cry
Hygge - Kim
Excel 365 DK user
Til top
Allan Se dropdown
Forum Admin
Forum Admin
Avatar
Forum Admin

Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330 		Direkte link til dette indlæg Sendt: 30.Apr.2013 kl. 18:38
Så kan du være sikker på at navnet som står i UC1 ikke er mage til navnet på din fane.
Måske et mellemrum eller et ugyldigt bogstav eller tegn er årsagen.
 
//Allan
 
Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

© 2010 - 2024 Dansk Regneark Forum - en del af Excel-regneark.dk