Hoe voert u een macro uit op basis van de waarde die u selecteert in een keuzelijst in Excel?
Het uitvoeren van macro’s door op een opdrachtknop te klikken, is een veelvoorkomende taak in Excel. Maar hebt u ooit geprobeerd een macro automatisch te starten op basis van de waarde die u selecteert in een keuzelijst? Zodra u een item kiest, wordt de bijbehorende macro direct uitgevoerd. In dit artikel vindt u een handige code om deze taak eenvoudig te realiseren.
Macro uitvoeren op basis van een waarde uit een keuzelijst met VBA-code
Macro uitvoeren op basis van een waarde uit een keuzelijst met VBA-code
Er is geen directe manier om deze taak uit te voeren, maar met de volgende VBA-code lukt het wel. Volg deze stappen:
1. Maak eerst een keuzelijst zoals u die nodig hebt. Zie de afbeelding hieronder:
2. Klik vervolgens met de rechtermuisknop op het werkbladtabblad dat de gewenste keuzelijst bevat en kies Code weergeven in het contextmenu. Plak in het geopende venster van Microsoft Visual Basic for Applications de volgende code in de lege module:
VBA-code: Macro uitvoeren op basis van een waarde uit een keuzelijst:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E1")) Is Nothing Then
Select Case Range("E1")
Case "Insert Blank rows": Macro1
Case "Hide All Sheets": Macro2
Case "Convert to Date": Macro3
End Select
End If
End Sub
Opmerking: In de bovenstaande code is E1 de cel met de keuzelijst. Pas de macronamen en de waarden in de keuzelijst aan naar wens.
3. Sluit het codovenster daarna met Opslaan en sluitenVanaf nu wordt Macro1 automatisch uitgevoerd zodra u het item „Invoegen Lege rijen” selecteert in de keuzelijst, enzovoort…
Gerelateerde artikelen:
Hoe voert u een macro uit zodra de celwaarde in Excel verandert?
Hoe voert u een macro uit op basis van een celwaarde in Excel?
Hoe voert u automatisch een macro uit vóór het afdrukken in Excel?
Hoe voert u een macro uit door op hyperlinks te klikken in Excel?
Hoe voert u een macro uit wanneer een werkblad wordt geselecteerd uit een werkmap?
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