KutoolsforOffice — Eén oplossing, vijf krachtige tools.Meer bereiken met minder moeite.

Hoe kunt u alle geopende werkmappen weergeven en moeiteloos schakelen tussen werkmappen in Excel?

AuteurSiluvia Wijzigingsdatum

Microsoft Excel stelt u in staat om meerdere werkmappen tegelijkertijd te openen, maar het is niet eenvoudig om te schakelen tussen alle geopende werkmappen. Daarom wilt u mogelijk alle geopende werkmappen in een lijst weergeven om gemakkelijk te kunnen schakelen tussen die werkmappen in Excel. In dit artikel laten we u zien hoe u alle geopende werkmappen kunt weergeven voor eenvoudige navigatie in Excel.

Alleen alle geopende werkmappen weergeven met VBA
Alle geopende werkmappen weergeven en eenvoudig naar een werkmap schakelen met VBA
Alle geopende werkmappen weergeven en eenvoudig naar een werkmap schakelen met een geweldige tool

Alleen alle geopende werkmappen weergeven met VBA

In deze sectie leert u hoe u met VBA-code alle geopende werkmappen in Excel weergeeft.

1. Druk op Alt+F11 om het venster Microsoft Visual Basic for Applications te openen. Klik in het venster Microsoft Visual Basic for Applications op Invoegen > Module.

klik Invoegen > Module

2. Kopieer en plak daarna de onderstaande VBA-code in de code-editor.

VBA: alle geopende Werkboeknaam weergeven in Excel

Sub ListWorkbooks()
	Dim Rng As Range
	Dim WorkRng As Range
	On Error Resume Next
	xTitleId = "KutoolsforExcel"
	Set WorkRng = Application.Selection
	Set WorkRng = Application.InputBox("Out put to (single cell)", xTitleId, WorkRng.Address, Type: = 8)
	Set WorkRng = WorkRng.Range("A1")
	xNum1 = Application.Workbooks.Count
	For i = 1 To xNum1
		xNum2 = Application.Workbooks(i).Sheets.Count
		WorkRng.Offset(i - 1, 0).Value = Application.Workbooks(i).Name
		For j = 1 To xNum2
			WorkRng.Offset(i - 1, j).Value = Application.Workbooks(i).Sheets(j).Name
		Next
	Next
End Sub

3. Voer de VBA-code uit door op de toets F5 te drukken. Geef in het dialoogvenster Kutools for Excel een cel op waarin de lijst met werkmappen moet worden geplaatst, en klik op de knop OK. Zie screenshot:

vba-code om een cel op te geven voor het plaatsen van de werkmaplijst

Vervolgens worden alle geopende werkmappen met hun bijbehorende werkbladen weergegeven.

Moeite met VBA-code? Geen probleem! U kunt dit ook eenvoudig doen via de derde methode met slechts enkele muisklikken.

Alle geopende werkmappen weergeven en eenvoudig naar een werkmap schakelen met VBA

Als u alle werkmappen wilt weergeven om eenvoudig te kunnen schakelen tussen werkmappen, probeer dan de volgende VBA-code:

1. Druk op Alt+F11om het venster Microsoft Visual Basic for Applicationste openen. Klik in het venster Microsoft Visual Basic for Applicationsop Invoegen>Module.

klik Invoegen > Module

2. Kopieer de volgende VBA-code en plak deze in het geopende modulevenster.

VBA-code: alle geopende werkmappen weergeven en naar een werkmap schakelen

Sub SelectWB()
	Dim xWBName As String
	Dim xWb As Workbook
	Dim xSelect As String
	For Each xWb In Application.Workbooks
		xWBName = xWBName & xWb.Name & vbCrLf
	Next
	xTitleId = "KutoolsforExcel"
	xSelect = Application.InputBox("Enter one of the workbooks below:" & vbCrLf & xWBName, xTitleId, "", Type: = 2)
	Application.Workbooks(xSelect).Activate
End Sub

3. Druk op de toets F5 om de code uit te voeren. Er verschijnt dan een dialoogvenster Kutools for Excel met een lijst van alle geopende werkmappen. Als u naar een bepaalde werkmap wilt schakelen, typt u de werkboeknaam in het vak en klikt u op de knop OK. Zie screenshot:

alle geopende werkmappen worden weergegeven in het dialoogvenster; voer de naam van de werkmap in waarnaar u wilt gaan

Alle geopende werkmappen weergeven en eenvoudig naar een werkmap schakelen met een geweldige tool

Kutools voor Excelbiedt meer dan 300 geavanceerde functies om complexe taken te stroomlijnen, waardoor creativiteit en efficiëntie worden verhoogd.Geïntegreerd met AI-mogelijkheden, automatiseert Kutools taken met precisie, zodat databeheer moeiteloos verloopt.Gedetailleerde informatie over Kutools voor Excel...         Gratis proefversie...

Met de Navigatie van Kutools voor Excel worden alle geopende werkmappen automatisch weergegeven in een deelvenster, zodat u moeiteloos kunt schakelen tussen al uw openstaande bestanden. Klik gewoon op een werkmap en u wordt direct daarheen genavigeerd.

alle geopende werkmappen worden weergegeven in het navigatiedeelvenster

Wilt u een gratis proefversie (30 dagen) van deze tool gebruiken?Klik dan hier om deze te downloaden en volg daarna bovenstaande stappen om de bewerking toe te passen.

Beste Office-productiviteitshulpmiddelen

🤖KUTOOLS AI Assistant: Revolutioneer Data-analyse op basis van:Intelligente uitvoering   |  Genereer code|  Maak aangepaste formules  |  Analyseer gegevens en genereer grafieken|  Roep Verbeterde functies aan…
Populaire functies:Zoeken, markeren of Dubbele waarden markeren   |  Verwijder lege rijen   |  Kolommen samenvoegen of cellen zonder gegevensverlies   |   Afronden zonder formule...
Super ZOEKEN:VLookup met meerdere criteria  |  VLookup met meerdere waarden  |   VLookup over meerdere werkbladen   |   Fuzzy Match....
Geavanceerde keuzelijst:Snel een keuzelijst maken   |  Afhankelijke keuzelijst   |  Keuzelijst met meervoudige selectie....
Kolombeheerder:Voeg een specifiek aantal kolommen toe|Verplaats kolommen|Wissel zichtbaarheidsstatus van verborgen kolommen|Vergelijk bereiken en kolommen...
Uitgelichte functies:Rasterfocus   |  Ontwerpweergave   |Verbeterde formulebalk   | Werkmap- en bladbeheerder   |  Bronnenbibliotheek(Automatische tekst)|  Datumkiezer   |  Werkbladen samenvoegen  |  Versleutelen/Cellen decoderen   | E-mails verzenden op basis van lijst   |  Superfilter   |   Speciaal filter(Filter cellen met vetgedrukt lettertype/cursief/doorgestreept...) ...
Top 15 gereedschapssets:12 Teksthulpmiddelen(Tekst toevoegen,Specifieke tekens verwijderen, ...)|   50+Grafiektypen(Gantt-diagram, ...)|   40+ Praktische formules(Leeftijd berekenen op basis van geboortedatum, ...)|   19 Invoeghulpmiddelen(QR-code Invoegen,Afbeelding invoegen vanaf pad, ...)|   12 Conversiehulpmiddelen(Omzetten naar woorden,Wisselkoersconversie, ...)|   7 Samenvoegen en splitsenhulpmiddelen(Geavanceerd samenvoegen van rijen,Cellen splitsen, ...)|... en meer
Gebruik Kutools in uw voorkeurstaal – ondersteunt Engels, Spaans, Duits, Frans, Chinees en 40+ andere talen!

Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...

Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger

  • Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
  • Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!

Alle Kutools-add-ins in één installatieprogramma.

Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.

ExcelWordOutlookTabsPowerPoint
  • Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
  • Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
  • Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
  • 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
  • Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins