Verzoek om optie om bestandsnaam op eender werkblad bovenaan te tonen in Excel

Hello, beste Xavier D en Riny

Helaas is dat probleem nog niet opgelost. Heel vervelend voor mij?

Helaas ook kan ik, zo ver ik weet, geen printscreen hier opzenden waar het probleem zeer duidelijk op te merken is. Hebben jullie mijn mail-adres om dit naar jullie op te sturen?

Je stelt voor bv. in cel A1 de formule =CELL("filename") te plaatsen, maar dat is gigantisch werk voor mijn 100de bestanden.

Volgens Copilot AI is er een oplossing om dit automatisch te laten doen op een nieuw en bestaand document. Indien er gegevens staan in A1 zou er een rij extra komen om de gegevens niet verloren te laten gaan. Maar helaas ondanks verschillende pogingen is het me niet geslaagd om dit in te voeren met volgende formule van AI (correct of niet):

Public WithEvents App As Application

Private Sub App_WorkbookOpen(ByVal Wb As Workbook)

**On Error Resume Next**

**Dim ws As Worksheet**

**For Each ws In Wb.Worksheets**

    **If ws.Range("A1").Value <> "" Then**

        **ws.Rows(1).Insert**

    **End If**

    **With ws.Range("A1")**

        **.Formula = "=RECHTS(CEL(""bestandsnaam""),LENGTE(CEL(""bestandsnaam""))-VIND.SPEC(""]"";CEL(""bestandsnaam"")))"**

        **.Font.Bold = True**

        **.Font.Size = 14**

        **.Interior.Color = RGB(0, 112, 192)**

        **.Font.Color = RGB(255, 255, 255)**

        **.HorizontalAlignment = xlCenter**

    **End With**

**Next ws**
```**End Sub**

 Weet jullie hierover meer? Zijn hiervoor instructies in de help functies van Excel? Na verschillende niet geslaagde pogingen vraagt AI om: «*Wil je dat ik **live meekijk** terwijl je de grote macro in Module1 plakt?*» is dit te betrouwen?

Een reactie verwachtend, sluit ik,

met de vriendelijke groet

@Leo Buntinx

Kijk even of je de laatste algemene interfaceoptie hebt aangevinkt (zie het plaatje hieronder). Dan wordt die lelijke grote zoekbalk beperkt worden tot een klein zoekpictogram aan de rechter kant van "werkbalk snelle toepassingen". Nu zul je de gehele bestandsnaam zien.

Disclaimer: Houd er rekening mee dat de verstrekte informatie is vertaald met behulp van automatische vertaaltools. Hoewel we streven naar nauwkeurigheid, is het mogelijk dat de vertalingen niet perfect de betekenis, context of oorspronkelijke bedoeling van de brontekst weergeven. 

Houd er rekening mee dat ons forum een ​​openbaar platform is; wij zullen uw vraag aanpassen om uw persoonlijke gegevens in de beschrijving te verbergen. Zorg er bij een volgende keer dat u een foutmelding of andere details plaatst voor dat u persoonlijke of organisatorische informatie zelf afschermt, ter bescherming van persoonsgegevens.

Hallo Leo Buntinx

Bedankt dat u het probleem zo duidelijk hebt uitgelegd.

Ik begrijp dat afgekorte bestandsnamen het lastig kunnen maken om vergelijkbare werkmappen van elkaar te onderscheiden wanneer ze naast elkaar worden weergegeven.

Excel 2024 maakt gebruik van een vernieuwde Office-interface. Er lijkt geen instelling beschikbaar te zijn waarmee u de titelbalkindeling van Excel 2019 kunt herstellen of de pictogrammen Zoeken en Account afzonderlijk kunt verbergen om meer ruimte voor de bestandsnaam vrij te maken.

Als tijdelijke oplossing kunt u de naam van de huidige werkmap in een zichtbare cel weergeven door de volgende formule in te voeren:

=CELL("filename")

Hiermee worden het volledige pad, de bestandsnaam en de naam van het actieve werkblad weergegeven nadat het bestand is opgeslagen. U kunt de formule bovenaan elk werkblad plaatsen, zodat u de werkmap gemakkelijker kunt herkennen.

Omdat de gewenste weergave van de titelbalk momenteel niet als gebruikersinstelling beschikbaar is, raad ik u aan deze suggestie in Excel in te dienen via Help > Feedback. Hierdoor wordt uw verzoek ter overweging voor een toekomstige update naar het Excel-productteam gestuurd.

Bedankt dat u de tijd hebt genomen om deze gedetailleerde en praktische suggestie te delen.

U kunt gerust op dit bericht reageren en mij op de hoogte houden van dit probleem. Ik help u graag verder.