Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: Een object permanent verwijderen, zonder melding  (gelezen 25114 keer)

0 leden en 1 gast bekijken dit topic.

Offline jandewijn

  • Nieuw lid
  • Berichten: 3
  • Geslacht: Man
  • Oplossing.be
Een object permanent verwijderen, zonder melding
« Gepost op: 25 juli 2019, 09:12:25 »
In een macro (in Excel 2007)
 heb ik, voor het uitvoeren van een controle, een vijftal werkbladen gemaakt, als vijf deel-problemen.
In deze werkbladen wordt een controle gemaakt, waarbij de (fout)resultaten visueel worden weergegeven.
Als er geen fouten in het gecontroleerde werkblad worden gevonden, kan het werkblad verwijderd worden en een boodschap getoond worden. bij voorbeeld "Correcte gegevens"
Ik gebruik daarvoor onderstaande sub-routine:
'-------------------------------------------------------------------
Sub Verwijderwerkbladen()
'-------------------------------------------------------------------
    Sheets("Diagram_1").Select:     ActiveWindow.SelectedSheets.Delete

'   en nog diagrammen 2,3,4 en 5
End Sub
====
Er bestaat een opdracht : Object.Delete True , die het object permanent verwijdert, zonder melding/waarschuwing.
Maar bij ActiveWindow werkt deze constructie niet.

Wie kan mij een goede constructie aan de hand doen?

Offline Ex-lid

  • Oplosser
  • ****
  • Berichten: 670
  • Geslacht: Man
  • dit lid is verbannen
Re: Een object permanent verwijderen, zonder melding
« Reactie #1 Gepost op: 25 juli 2019, 09:50:18 »
Bedoel je dit?
Sheets("Diagram_1").Delete

Offline jandewijn

  • Nieuw lid
  • Berichten: 3
  • Geslacht: Man
  • Oplossing.be
Re: Een object permanent verwijderen, zonder melding
« Reactie #2 Gepost op: 25 juli 2019, 11:45:08 »
Dank je wel Dotchiejack!
Uw oplossing is inderdaad simpeler dan de mijne, maar kampt wel met hetzelfde probleem....
.. Er wordt een msgbox getoond die een antwoord vraagt.
Ik wil graag een oplossing die niets vraagt, maar wel delete.
De toevoeging van de TRUE-optie wordt niet geaccepteerd als geldig commando.

Graag meer van het goede.....

Offline Ex-lid

  • Oplosser
  • ****
  • Berichten: 670
  • Geslacht: Man
  • dit lid is verbannen
Re: Een object permanent verwijderen, zonder melding
« Reactie #3 Gepost op: 25 juli 2019, 11:55:11 »
Zo dan?
Sub test()
Application.DisplayAlerts = False
   Sheets("Diagram_1").Delete
Application.DisplayAlerts = True
End Sub

Offline jandewijn

  • Nieuw lid
  • Berichten: 3
  • Geslacht: Man
  • Oplossing.be
Re: Een object permanent verwijderen, zonder melding
« Reactie #4 Gepost op: 25 juli 2019, 12:11:02 »
Dotchiejack!
Uw bent een KEI!
Dank voor uw meedenken.
Werkt perfect...
Groetjes
Jan de Wijn

Offline Ex-lid

  • Oplosser
  • ****
  • Berichten: 670
  • Geslacht: Man
  • dit lid is verbannen
Re: Een object permanent verwijderen, zonder melding
« Reactie #5 Gepost op: 25 juli 2019, 12:12:50 »
Graag gedaan, dank voor de terugkoppeling. :thumbsup:

 


www.combell.com