Sheetname weergeven in een cel

[whisper90]

Hallo,

Is er een bepaalde manier om de naam van een werkblad, vb "werkblad 1", in cel A1 weer te geven ?

Thx

 

[ExcelAmateur]

whisper90,

Zet de code achter het blad.
Als je de 1 na To weg haal en de ' dan laat hij alle namen zien.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  For i = 1 To 1 'Sheets.Count
    Cells(i, 1).Value = Sheets(i).Name
  Next i
End Sub

Of
Sheets(1) het nr geeft aan van welk blad.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Range("B1") = Sheets(1).Name
End Sub

 

[E v R]

of in A1:

=DEEL(CEL("bestandsnaam";A1);VIND.SPEC("]";CEL("bestandsnaam";A1))+1;256)

 

[E v R]

Nog een methode:

Voeg middels Invoegen, naam definieren een Naam toe (bijv Sheet) vul in bij verwijst naar:
=SUBSTITUEREN(DOCUMENT.LEZEN(76);"["&DOCUMENT.LEZEN(68)&"]";"")
en druk op Ok

Vul nu in Cel A1 op een willekeurig werkblad =sheet

 

[Warme bakkertje]

Of met een UDF

Function SheetName(rCell As Range, Optional UseAsRef As Boolean) As String
    Application.Volatile
    SheetName = IIf(UseAsRef = True, "'" & rCell.Parent.Name & "'!", rCell.Parent.Name)
End Function

In cel A1 van elk werkblad =SheetName(A1)

 

[Superzeeuw]

Of je typt hem gewoon over.