Macro voor het verwijderen van een Sheet

[Cmwdekorte]

Goedemiddag,

Ik ben aan het tobben met het verwijderen van een sheet.

Het probleem:
'Ik wil een sheet verwijderen op basis van de geselecteerde cel. Wanneer ik cel A1 selecteer en in cel A1 staat "Test" moet de macro de sheet met de naam "Test" verwijderen.'

Tevergeefs is dit mij nog niet gelukt, voornamelijk het definiëren van de sheet die verwijderd moet worden.

Graag hulp!

Bij voorbaat dank,

Christian

 

[edmoor]

Worksheets(Range("A1").Value).Delete

 

[gast0660]

Hoi bij deze een vbtje
Ik denk dat je zoiets zoekt
kies een werkblad en zet daar test in A1 , ga dan naar werkblad macro , druk het knopje en uw proleem is verdwenen
off topic @ Edmoor

Hiroshima..45…….. Tjernobil..86…….. Windows..10….

Ben je geen stukje Japan vergeten
Greetz

 

[edmoor]

off topic @ Edmoor
Ben je geen stukje Japan vergeten

Da's het stukje waar ik niet geweest ben

 

[VenA]

Jouw vraag is voor mij niet helder en dus verschillend te interpreteren.

For each sh in sheets
if sh.[A1] = "Test" then sh.delete

?

Even wat aan het rommelen geweest met een combobox. Kies in de keuzelijst de tab die je wil verwijderen en deze is definitief weg.

Wat het moet worden dat lezen we wel. Een eigen voorbeeldje wordt ook op prijs gesteld.

 

[Cmwdekorte]

Wat precies de bedoeling is, is dat ik een random cel selecteer, waar dan bijvoorbeeld een tekst in staat. De cel is wel altijd in dezelfde kolom, maar niet niet dezelfde rij.

Dus stel ik selecteer B3, of B7, of B12. En er staat een naam in, bijvoorbeeld Aap, noot of mies. Maakt niet uit wat er staat, maar er bestaat dan een sheet van al. Dan moet de macro deze sheet verwijderen.

Dus, als ik B3 selecteer en druk op de knop om de sheet te verwijderen dan zou de macro de sheet met de naam aap moeten verwijden, idem voor elke andere cel.

Wat duidelijker zo?

Mvg

Cmwdekorte

 

[Leotaxi]

zoiets dan

Sub test()
Application.DisplayAlerts = False
Sheets(ActiveCell.Value).Delete
Application.DisplayAlerts = True
End Sub

mvg
Leo

 

[Haije]

probeer deze eens...

Worksheets(Activecell.Value).Delete

 

[Cmwdekorte]

Thanks Leotaxi en Haije, zelfde idee in de macro zie ik.

Ik heb de macro van Leotaxi gebruikt en deze werkt! Bedankt !

Met vriendelijke groet,

Cmwdekorte

 

[VenA]

Om te toetsen of een blad wel bestaat kan je deze gebruiken

Application.DisplayAlerts = False
    If Not IsError(Evaluate(ActiveCell.Value & "!A1")) Then Sheets(ActiveCell.Value).Delete
Application.DisplayAlerts = True

 

[Leotaxi]

als er bladnamen zijn die enkel uit getallen bestaan.

Sub test()
Dim blad_naam As String
blad_naam = ActiveCell.Value
Application.DisplayAlerts = False
Sheets(blad_naam).Delete
Application.DisplayAlerts = True
End Sub

mvg
Leo