21. marts 2008 - 12:37Der er
12 kommentarer og 1 løsning
Opdatere mit sheet name når en værdi ændrer sig
Hej igen.
Jeg har i en celle C2 en slå.op værdi der viser resultatet - fx "MARTS"
I programkoden til det aktuelle sheet (højreklikker på fanebladet og vælger vis programkode), har jeg følgende kode:
Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next ActiveSheet.Name = Range("C2").Value End Sub
Den gør det at den ændrer mit sheet navn til den værdi der står i C2.
Problemet er så, at når værdien i C2 bliver ændret, bliver sheet navnet ikke ændret automatisk. Jeg skal lige klikke på C2, trykke F2 og trykke enter, så bliver sheet navnet også ændret.
Kan det ikke gøres automatisk, så når celleværdien i C2 bliver ændret, bliver sheet navnet også ændret med det samme?
Denne side indeholder artikler med forskellige perspektiver på Identity & Access Management i private og offentlige organisationer. Artiklerne behandler aktuelle IAM-emner og leveres af producenter, rådgivere og implementeringspartnere.
du skal nok fange den på det X du skriver i B kolonnen, den fanger IKKE at en formel ændrer sig.
Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Not Intersect(Target, Range("B1:B12")) Is Nothing And UCase(Target) = "X" Then ActiveSheet.Name = Range("C2").Value End If End Sub
Jeg kan ikke få den til at virke. Sheet2 - er det navn der har programkoden, og derfor det navn der skal ændres.
Sheet1 har jeg E11:E21 hvor jeg kan sætte et X. Men i din programstump er der ikke nogen henvisning til sheet1 - hvordan gør man det, så den ved hvorfra den skal kigge i E11:E21?
Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Not Intersect(Target, Range("B1:B12")) Is Nothing And UCase(Target) = "X" Then Sheets(2).Name = Range("C2").Value End If End Sub
Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Not Intersect(Target, Range("E1:E12")) Is Nothing And UCase(Target) = "X" Then Sheets(2).Name = Range("C2").Value End If End Sub
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.
