Tabblad - titel vanuit cel naar werkblad

Docecomo · 22 mei 2019

Graag zou ik willen weten of het mogelijk is om de inhoud van een cel, middels een formule, te kopiëren naar de de titel van het werkblad (tabblad). Ik heb tot nu toe alleen oplossingen gezien waaruit de titel van een werkblad gekopieerd wordt naar een cel. Aan welke combinatie moet ik denken?

loek010 · 22 mei 2019

Om het blad de naam van een cel te geven (ik neem aan dat je dat bedoelt) heb je VBA nodig.
Onderstaande code, in de module van ThisWorkbook, zorgt er bijvoorbeeld voor dat,
zodra je in A1 van een willekeurig werkblad iets zet, het blad de naam krijgt van de waarde in A1.
Dit alleen als er nog niet een blad is met de betreffende naam.

Code:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Target.Address = "$A$1" And Len(Target) > 0 Then
        If Not SheetExists(Target.Value) Then
            Sh.Name = Target
        Else
            MsgBox "De bladnaam '" & Target & "' bestaat al"
            Application.EnableEvents = False
            Application.Undo
            Application.EnableEvents = True
        End If
    End If
End Sub
 
Function SheetExists(strNaam As String)
    Dim a As Variant
    On Error Resume Next
    a = Sheets(strNaam).Range("A1")
    SheetExists = (Err = 0)
End Function

Hierbij ook een voorbeeld

Tabblad - titel vanuit cel naar werkblad

Docecomo

Gebruiker

loek010

Gebruiker

Bijlagen

Nieuwste berichten

Wij waarderen jouw privacy