Black Friday = Pricewatch Bekijk onze selectie van de beste Black Friday-deals en voorkom een miskoop.

[EXCEL] naam tabblad weergeven in Dashboard tab

Pagina: 1
Acties:

Vraag


  • Mike1994
  • Registratie: Februari 2018
  • Laatst online: 24-06-2020
Goedemorgen allemaal.

Ik loop tegen de volgende uitdaging aan binnen Excel. Ik heb een 'hoofd tabblad' waar al mijn informatie op verwerkt staat en meerdere week tabbladen. Voorbeeld: tab 1) Overview, tab 2) Week 6-2018, tab 3) Week 5-2018 etc etc

Nu wil ik op het hoofd tabblad de naam weergeven van de laatst toegevoegde week tab, welke dus direct rechts van het hoofd tabblad staat. Iemand enig idee hoe ik dit kan bewerkstelligen in formules of in VB?
...

Beste antwoord (via Mike1994 op 02-02-2018 09:20)


  • breew
  • Registratie: April 2014
  • Laatst online: 07:43
Het gaat dus altijd om de tweede sheet van het werkblad? De code is dan vrij eenvoudig:
Visual Basic:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Option Explicit

Sub naam()
  'declaratie
  Dim str As String
  
  'voor het huidige werkboek
  With ActiveWorkbook
    'bepaal de naam van het tweede werkblad
    str = .Sheets(2).Name
    'zet de waarde van deze naam in cel 1,1 (=A1) van het eerste werkblad
    .Sheets(1).Cells(1, 1).Value = str
  End With

'KOFFIE!!!

End Sub


Je kunt er uiteraard ook een custom functie van maken. Dat is nagenoeg dezelfde code.

[ Voor 53% gewijzigd door breew op 02-02-2018 09:22 . Reden: Code wat verfraaid ]

Alle reacties


Acties:
  • Beste antwoord

  • breew
  • Registratie: April 2014
  • Laatst online: 07:43
Het gaat dus altijd om de tweede sheet van het werkblad? De code is dan vrij eenvoudig:
Visual Basic:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Option Explicit

Sub naam()
  'declaratie
  Dim str As String
  
  'voor het huidige werkboek
  With ActiveWorkbook
    'bepaal de naam van het tweede werkblad
    str = .Sheets(2).Name
    'zet de waarde van deze naam in cel 1,1 (=A1) van het eerste werkblad
    .Sheets(1).Cells(1, 1).Value = str
  End With

'KOFFIE!!!

End Sub


Je kunt er uiteraard ook een custom functie van maken. Dat is nagenoeg dezelfde code.

[ Voor 53% gewijzigd door breew op 02-02-2018 09:22 . Reden: Code wat verfraaid ]


  • Mike1994
  • Registratie: Februari 2018
  • Laatst online: 24-06-2020
Thanks, lukt me alleen niet helemaal. Kun je aangeven hoe ik het in B6 weergeef?

//thanks voor je edit, gelukt

[ Voor 17% gewijzigd door Mike1994 op 02-02-2018 09:20 ]


  • breew
  • Registratie: April 2014
  • Laatst online: 07:43
Mike1994 schreef op vrijdag 2 februari 2018 @ 09:17:
Thanks, lukt me alleen niet helemaal. Kun je aangeven hoe ik het in B6 weergeef?
Zie het commentaar wat ik bij de code heb gezet (ik ga niet alles helemaal voorkauwen :+ ).
Als (1,1) gelijk is aan A1, wat zou je dan in moeten vullen voor B6?


Al gelukt zie ik. Mooi!

[ Voor 4% gewijzigd door breew op 02-02-2018 09:20 ]


  • Mike1994
  • Registratie: Februari 2018
  • Laatst online: 24-06-2020
Zag pas na het refreshen je edit.. :)