Excel : faneblad endrer seg etter celle verdi

[howerang]

Heisann !

 

 

Jeg har et lite problem.

 

Jeg skulle ha fått fanenavnet til å endre seg etter en celle verdi.

 

Altså slik at jeg skriver masse navn nerover i excel (a1:a5) så har jeg 5 faner bak det jeg jobber i, der hver fanebladsnavn skulle ha endret seg når jeg skifter navn i cellene.

 

 

Noen som kan hjelpe?, må vel kansje kode litt i VB (passe grønn i VB, hadde det litt på skolen for 2 år siden), så vis noen kan hjelpe meg så hadde jeg vært evig takknemmelig.

 

Takker for svar

[Harald Staff]

Hei

 

Høyreklikk arkfanen i skrive-navn-arket, velg Vis Kode, lim inn dette:

 

Private Sub Worksheet_Change(ByVal Target As Range)

Dim R As Long

On Error Resume Next

If Not Intersect(Target(1), Me.Range("A1:A5")) Is Nothing Then

R = Target(1).Row

Sheets(R + 1).Name = Target(1).Value

End If

End Sub

 

HTH. Beste hilsen Harald