navn fra faneblad til celle

Læg denne funktion i et modul. Hvis du så skriver =Fane() i en celle, skriver den navnet på fanen.

Function Fane()
    Application.Volatile
    Fane = ActiveSheet.Name
End Function

Lægger du nedenstående kode på arkets kodeark, vil du opnå det modsatte, at når du skriver i A1, ændres fanebladet til det, du skriver i cellen:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target = Range("A1") Then
        ActiveSheet.Name = ActiveSheet.Range("a1").Value
    End If
End Sub

Jeg tror ikke at du kan opnå begge dele på samme tid, da det er to helt forskelllige funktionaliteter.

Tak for hjælpen

Velbekomme.