meerdere rijen tabbladen onder elkaar

[Merijnbosma]

Hallo,

Ik hou de urenregistratie bij op werk, en ik doe dat per project. Nu krijg ik inmiddels meer dan 15 werkbladen en ik vind het heel irritant om te scrollen met die balk.

Ik kan me herinneren gezien te hebben dat mensen in excel meerdere rijen tabbladen onder elkaar onder hun werkblad hebben staan.

Kan iemand mij vertellen hoe ik dit voor elkaar krijg? Of heb ik dit gedroomd


Alvast bedankt,

Mvg Merijn

 

[hoogteijling]

Standaard kan dit niet.
Misschien iemand die handig is met VBA het voor elkaar kan krijgen.

Groeten marcel

 

[Thoralf]

Als je onderaan bij de tabbladnamen kijkt zie je helemaal links een rijtje van 4 pijltjes. Ga er eens met de muis naar toe en klik op de rechter muisknop. misschien kun je hier iets mee. Ik manoeuvreer hiermee in een map met ruim 200 werkbladen.

 

[Niels28]

Merijn,

Ik gebruik dan meestal een overzichtslijst die dmv een macro naar de tabbladen gaat en terug, bijgevoegd een simpel voorbeeld.

Bekijk bijlage tabbladen.xls

Niels

 

[Merijnbosma]

Hey,

bedankt allemaal.

@ Niels
kun je me wat meer uitleggen over macro's? Ik heb daar helemaal geen ervaring mee.

Grtz

 

[Niels28]

Klik met rechtermuisknop op tabblad "lijst" => programmacode weergeven.
hier staat de code die aan dit blad hangt.
Als je in kolom A klik dan wordt de macro uitgevoerd en wordt het tabblad met
de naam die in de cel staat geactiveert.

Links in VBA zie je de namen van de tabbladen staan en er staat module1 onder.
Hierin staat de code die aan de knoppen hangt.

zo'n knop aanmaken is afhankelijk van je versie van excel, in excel2007 is het tabblad ontwikkelaars (deze moet je eerst aanzetten bij opties => populair).
invoegen => knop
knop tekenen
rechtermuisknop op de knop en dan macro toewijzen.

meer info:
http://gratiscursus.be/excel_2007/excelles081.htm


Niels

 

[Merijnbosma]

Hey Niels,

Bedankt. Ik ga hier van de week maar is mee stoeien

 

[Warme bakkertje]

Deze doet hetzelfde, maar dubbel zo snel (handiger bij grotere werkbladaantallen)

Sub Bladnamen()
For Each sh In Sheets
    If sh.Name <> "lijst" Then c0 = c0 & sh.Name & "|"
  Next
  Blad2.Cells(2, 1).Resize(Sheets.Count - 1) = WorksheetFunction.Transpose(Split(c0, "|"))
End Sub

 

[Merijnbosma]

Hey Rudi,

zou je me uit kunnen leggen hoe ik die code in kan passen?

Alvast bedankt.

Groeten Merijn

Ooh ik zie het al, dit is ook met die macro's toch?