Hoe kunt u alle opmerkingen in het huidige werkboek naar een nieuw werkblad of een nieuwe werkmap in Excel exporteren?
Als uw werkmap te veel opmerkingen bevat en u wilt alle opmerkingen exporteren naar een nieuw werkblad of een nieuwe werkmap om ze te controleren, hoe doet u dat dan? De volgende methoden helpen u snel alle opmerkingen van een werkblad of werkmap naar een nieuw werkblad of een nieuwe werkmap in Excel te exporteren.
Gebruik VBA-code om alle opmerkingen in de Huidig werkboek naar een Nieuw werkblad weer te geven
Gebruik VBA-code om alle opmerkingen in de Huidig werkboek naar een Nieuw werkblad weer te geven
De volgende VBA-code toont alle opmerkingen in het huidige werkboek op een nieuw werkblad. Op dit nieuwe werkblad worden alle opmerkingen uit de gehele werkmap weergegeven in een lijst met werkbladnaam, celadres, opmerkingstekst en celnaam. Volg deze stappen om deze methode toe te passen:
1. Klik op 'Ontwikkelaar' > 'Visual Basic'. Het venster 'Microsoft Visual Basic for Applications' verschijnt. Klik vervolgens op 'Invoegen' > 'Module' en plak de volgende VBA-code in de module.
VBA: toont alle opmerkingen in een nieuw werkblad.
Sub ShowCommentsAllSheets()
'Update 20140508
Dim commrange As Range
Dim rng As Range
Dim ws As Worksheet
Dim newWs As Worksheet
Set newWs = Application.Worksheets.Add
newWs.Range("A1").Resize(1, 4).Value = Array("Sheet", "Address", "Value", "Comment")
Application.ScreenUpdating = False
On Error Resume Next
For Each ws In Application.ActiveWorkbook.Worksheets
Set commrange = ws.Cells.SpecialCells(xlCellTypeComments)
If Not commrange Is Nothing Then
i = newWs.Cells(Rows.Count, 1).End(xlUp).Row
For Each rng In commrange
i = i + 1
newWs.Cells(i, 1).Resize(1, 4).Value = Array(ws.Name, rng.Address, rng.Value, rng.Comment.Text)
Next
End If
Set commrange = Nothing
Next
newWs.Cells.WrapText = False
Application.ScreenUpdating = True
End Sub
2. Klik vervolgens op de 
-knop om de code uit te voeren. U krijgt dan een nieuw werkblad met alle opmerkingen uit het huidige werkboek. Zie de schermafbeelding:
Gebruik Kutools voor Excel om alle opmerkingen in de Huidig werkboek naar een Nieuw werkblad of werkmap weer te geven
Met de functie 'Opmerkingenlijst maken' van Kutools voor Excel exporteert u in een handomdraai alle opmerkingen naar een nieuw werkblad.
Kutools voor Excel: meer dan 300 handige Excel-add-ins, gratis en volledig bruikbaar gedurende 30 dagen.Download nu.
1. Als u Kutools voor Excel hebt geïnstalleerd, klikt u op **Kutools** > **Meer** > **Maak opmerkingenlijst**.
2. In het dialoogvenster 'Maak opmerkingenlijst':
- Selecteer het bereik waarvan u de opmerkingen wilt weergeven: kies tussen ‘Huidig werkblad’ of ‘Alle werkbladen’.
- Geef vervolgens op waar u de lijst met opmerkingen wilt plaatsen: in een nieuw werkblad of in een bestaand werkblad. Zie de schermafbeelding:
3. Klik daarna op de knop **Maken**. Er wordt een nieuw werkblad toegevoegd met alle opmerkingen van het actieve werkblad, inclusief details zoals de werkbladnaam, celverwijzingen, rij en kolom. Zie de schermafbeelding:
Voor meer informatie over „Maak opmerkingenlijst", bezoekt u de functiebeschrijving van Maak opmerkingenlijst.
Gerelateerde artikelen:
- Wijzig alle opmaakinstellingen van opmerkingen in cellen
- Wijzig de auteursnaam van alle opmerkingen
- Zoeken en Vervangen-tekst binnen opmerkingen
- Toon of verberg alle opmerkingen en opmerkingsindicatoren in Excel
- Zet celinhoud om naar opmerkingen in Excel
- Zet opmerkingen om naar celinhoud in Excel
Beste Office-productiviteitshulpmiddelen
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.
- 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