Auteur Topic: Meerdere werkbladen (gelezen 10216 keer)

JosPat · « **Gepost op:** 04 mei 2006, 22:42:43 »

Beste,

ik heb een werkmap met een 50tal werkbladen, nu heb ik de waarde van één cel nodig van ieder werkblad (B47). Heb het geprobeerd door op een blad een verwijzing in te voeren ('Blad1!'B47) en dan deze doorvoeren maar dat lukt niet. Iemand hier heeft er vast een oplossing voor ! Merci op voorhand.

WG · « **Reactie #1 Gepost op:** 05 mei 2006, 00:21:10 »

Zie bijlage JosPat voor de structuur van hoe je het kan oplossen.

WG

JosPat · « **Reactie #2 Gepost op:** 05 mei 2006, 09:59:13 »

Merci voor je hulp WG, nu ben ik echter zo slim geweest om elk werkblad te voorzien van een naam (naam van werknemer) dus niet Blad1, Blad2, etc ... dus een vraag, is hier een formule voor of kan ik beter mijn werkbladen hernoemen ? thanks

WG · « **Reactie #3 Gepost op:** 05 mei 2006, 15:22:33 »

Zet in C45 de naam van een werknemer, dan gebruik je de formule:

=INDIRECT(C45&"!B47")

Zou moeten lukken.

JosPat · « **Reactie #4 Gepost op:** 07 mei 2006, 18:27:02 »

Thanks voor de info WG, de tweede oplossing heb ik nog niet echt aan het werk gekregen maar de eerste werkt 'als een droom' dus ik ben een gelukkig mens.

Tot mijn volgend probleem !

WG · « **Reactie #5 Gepost op:** 07 mei 2006, 19:56:41 »

Citaat van: JosPat op 07 mei 2006, 18:27:02

de tweede oplossing heb ik nog niet echt aan het werk gekregen

Vraag maar als je wil.

Citaat van: JosPat op 07 mei 2006, 18:27:02

Tot mijn volgend probleem !

Afgesproken!

edwardo · « **Reactie #6 Gepost op:** 10 april 2013, 20:34:40 »

Geachte,

Ik lees hier dat er een bijlage was als voorbeeld.
Hoe kan ik de bijlage in mijn bezit krijgen,want ik ben op zoek naar dezelfde oplossing.

Bedankt,

SoftAid · « **Reactie #7 Gepost op:** 10 april 2013, 21:44:14 »

Hallo edwardo,

spijtig genoeg hebben we wegens plaatsgebrek op de server een deel van de bijlagen die ouder waren dan 5 jaar verwijderd.

Ik heb echter, wegens mijn interesse in Excel een deel bewaard. Ik denk niet dat de werkmap in bijlage dezelfde is als door WG gebruikt werdt, maar het heeft toch ongeveer dezelfde functie.

Als je een lijst hebt van de namen van de tabbladen, dan kan je de waarde van elke zelfde cel in elk tabblad ophalen met volgende formule:

Code: [Selecteer]

=INDIRECT("'"&A1&"'!A1")
Zie bijlage van Luc Hendrickx: indirect.xls

Hoop dat dit is wat je zoekt.

SoftAid

edwardo · « **Reactie #8 Gepost op:** 11 april 2013, 05:27:37 »

Dat is inderdaad wat ik zocht !
Bedankt voor de snelle reactie.
Denk dat ik op dit forum nog veel oplossingen zal vinden

edwardo · « **Reactie #9 Gepost op:** 16 april 2013, 11:34:41 »

Ik had graag geweten of er een macro bestaat die een range van tabladen kan oplijsten.

Ik leg het simpel uit.
Ik heb een overzichtstabblad dat op de 3de plaats staat en dit tabblad noemt "totaal".
Daarna heb ik tabbladen volgens het aantal klanten,elk met zijn eigen naam.
Op mijn "Totaal" blad wil ik een lijst met namen van al mijn tabbladen van mijn klanten,dus met uitzondering van de tabbladen "totaal","template" en "boekjaar".
Op die manier word mij kolom gevuld met namen van de tabbladen en zal mijn indirect functie van hierboven automatisch de juiste info weergeven van betreffende tabbladen.

Ik had al iets gevonden op het net,maar die macro deed een oplijsting van al zijn tabbladen,inclusief zichzelf (Totaal) en dan krijg je kringverwijzigen enz.

Dus kort gezegd.
Op mijn Tabblad "Totaal" (3de tabblad) wil ik vanaf cel B5 een oplijsting van alle tabladen die NA het tabblad "Totaal" aanwezig zijn.
1ste tabblad noemt "Template",2de tabblad noemt "Boekjaren" en 3de tabblad noemt "Totaal",deze mogen dus niet in de oplijsting zitten.

Alvast bedankt !

SoftAid · « **Reactie #10 Gepost op:** 16 april 2013, 19:49:07 »

Hallo edwardo:

even zonder veel poespas korte code die laat zien hoe je het aantal "sheets" kan opvragen en hoe je
die naam in een cel kan plaatsen:

Code: [Selecteer]

Sub Theo()
Dim aantal As Integer
Dim naam As Variant
Dim a As Integer

aantal = Sheets.Count     'Dit telt het aantal "sheets" in je werkboek.
MsgBox aantal  '"controle": mag weg
        'Hiermee kan je een For-Next loop maken van blad 4 tot aantal sheets, iets in de aard van:
For a = 4 To aantal               'blad1, 2 en 3 overslaan
        'do this
        'do that
Next

naam = Blad1.Name
Range("A1").Value = naam  'geef de naam van Blad 1 weer in de range A1
MsgBox naam   '"controle": mag weg
End Sub

Citaat

Ik had al iets gevonden op het net,maar die macro deed een oplijsting van al zijn tabbladen,inclusief zichzelf (Totaal) en dan krijg je kringverwijzigen enz.

Kan je die code eens posten (of het adres van die website meegeven?)

SoftAid

edwardo · « **Reactie #11 Gepost op:** 16 april 2013, 21:02:21 »

https://www.worksheet.nl/forumexcel/afgehandelde-vragen/66015-namen-van-werkbladen-lijst-weergegeven.html

edwardo · « **Reactie #12 Gepost op:** 16 april 2013, 21:17:24 »

Mijn code werkt met onderstaande code:

Sub NaamTabblad()
Columns("B:B").Clear
Range("B5").Select
Dim blad As Worksheet
For Each blad In ThisWorkbook.Worksheets
If blad.Name <> "Totaal" OR "Template" OR "Boekjaar" Then
ActiveCell = blad.Name
ActiveCell.Offset(1, 0).Select
End If
Next blad
Range("B5").Select
End Sub

SoftAid · « **Reactie #13 Gepost op:** 16 april 2013, 22:09:49 »

Hallo edwardo,

werkt niet voor mij...

Ik krijg een foutmelding "Typen komen niet overeen" op de lijn:

Code: [Selecteer]

If blad.Name <> "Totaal" OR "Template" OR "Boekjaar" Then
Maar ik krijg het ook niet verbeterd..

Groeten,

SoftAid

edwardo · « **Reactie #14 Gepost op:** 16 april 2013, 23:01:34 »

Ik had met 1 naam getest en het werkte,vandaar dat ik dacht dat het met een paar OR functies ook zou lukken.
Maar het moeten AND functies zijn voor alle tabbladen die je er niet bij wil.
Deze werkt correct bij mij

Private Sub ListBox1_Click()
Worksheets(ListBox1.Value).Select
End Sub

Sub NaamTabblad()
Columns("B:B").Clear
Range("B5").Select
Dim blad As Worksheet
For Each blad In ThisWorkbook.Worksheets
If blad.Name <> "Totaal" And blad.Name <> "Template" And blad.Name <> "Boekjaren" Then
ActiveCell = blad.Name
ActiveCell.Offset(1, 0).Select
End If
Next blad
Range("B5").Select
End Sub

Help!

Menu

Hulp bij posten

Zoeken

Recente topics