07. oktober 2006 - 10:02Der er
6 kommentarer og 1 løsning
Arkfanefarne på endnu ikke kendte/oprettede arkfaner
I en brugerapplikation, oprettes nye arkfaner på baggrund af en fast skabelon ...
Denne skabelon indeholder denne kode :
Private Sub Worksheet_Change(ByVal Target As Range) If Range("A1").Value = 0 Then ActiveWorkbook.Sheets("Skabelon").Tab.ColorIndex = 4 Else ActiveWorkbook.Sheets("Skabelon").Tab.ColorIndex = 6 End If End Sub
Denne kode skulle de nye arkfaner gerne arve, så den reagerer arkfanefarven skifter, men på på baggrund af den nye arfane´s resultater i Range("A1")
Arkfanen navngives på baggrund af brugerens indtastning i en Inputbox
Jeg er på vej ud af døren, men du skal igang med noget VBE.Project.... for at koden denne slags. Måske er der en der kan hjælpe med at finde noget kode til dig.
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then If Range("A1").Value = 0 Then ActiveWorkbook.ActiveSheet.Tab.ColorIndex = 4 Else ActiveWorkbook.ActiveSheet.Tab.ColorIndex = 6 End If End If End Sub
Ok, so far so good ... benyttede bak´s forslag ( troede kun at Me kunne benyttes i Access :o) ... )
Modellen består af en række arkfaner som alle summerer til en rekap, som også gerne skulle skifte arkfane efterhånden som de underliggende bliver grønne/er afstemt, således at rekappen også skifter når alle underliggende stemmer ..
Pt. kan jeg kun få den til at gøre dette, ved at aktivere arkfanen, men dette er ikke hensigtsmæssigt/brugervenligt ... nogle gode forslag
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.
