*

Help!

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

Hulp bij posten

Recente topics

Pagina's: [1]   Omlaag

Auteur Topic: Blad verwijderen mbv. een macro  (gelezen 5075 keer)

0 leden en 1 gast bekijken dit topic.

Offline EricV

  • Volledig lid
  • **
  • Berichten: 138
  • Oplossing.be
Blad verwijderen mbv. een macro
« Gepost op: 22 augustus 2006, 19:23:13 »
In een bepaalde werkmap heb ik een macro gemaakt.
Een van de dingen die er in deze macro moet gebeuren is het verwijderen van een werkblad (tabblad).
Dit gaat goed, behalve een ding:
ik klik met de rechter muisknop op het te verwijderen tabblad en dan komt de vraag Verwijderen.
Dit gedeelte staat middenin de macro dus ik moet steeds "enteren" om de macro verder te kunnen laten gaan.
Ik heb al een regel toegevoegd: Application.Sendkeys={"(Enter)"}, maar helaas lukt dit niet.

Wie kan mij aub. verder helpen.

Alvast bedankt voor jullie hulp.

Eric
Gelogd
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.

Offline LucHeyndrick

  • Volledig lid
  • **
  • Berichten: 217
  • Oplossing.be
Re:Blad verwijderen mbv. een macro
« Reactie #1 Gepost op: 22 augustus 2006, 19:59:29 »
Hallo Eric,

Application.DisplayAlerts = False
'Delete worksheet
Application.DisplayAlerts = True

mvg,

Luc
Gelogd
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.

Offline EricV

  • Volledig lid
  • **
  • Berichten: 138
  • Oplossing.be
Re:Blad verwijderen mbv. een macro
« Reactie #2 Gepost op: 23 augustus 2006, 00:03:10 »
Luc,

Bedankt voor je snelle reactie.
Zou je aub. een klein voorbeeld-bestandje mee kunnen sturen zodat ik kan zien hoe de oplossing van jou toegepast moet worden ?

Bedankt

Eric
Gelogd
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.

Offline LucHeyndrick

  • Volledig lid
  • **
  • Berichten: 217
  • Oplossing.be
Re:Blad verwijderen mbv. een macro
« Reactie #3 Gepost op: 23 augustus 2006, 07:55:34 »
Maak een module (In de VBA Editor: Invoegen => Module)
En plak daarin volgende code:

Sub VerwijderWerkblad()
Application.DisplayAlerts = False
Worksheets(Worksheets.Count).Delete
Application.DisplayAlerts = True
End Sub

Deze macro zal steeds het laatste werkblad verwijderen uit je bestand.  Loopt natuurlijk fout als er slechts één werkblad is.

mvg,
Luc
Gelogd
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.

Offline jpvs

  • Lid
  • *
  • Berichten: 33
  • Geslacht: Man
  • Oplossing.be
Re:Blad verwijderen mbv. een macro
« Reactie #4 Gepost op: 23 augustus 2006, 15:37:30 »
Of het geselecteerde is misschien veiliger?
Kan natuurlijk ook het laatste blad zijn? ::)

Sub DeleteSelectedSheet()
   Application.DisplayAlerts = False
      ActiveSheet.Delete
   Application.DisplayAlerts = True
End Sub

Pierre
Gelogd
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.

Offline EricV

  • Volledig lid
  • **
  • Berichten: 138
  • Oplossing.be
Re:Blad verwijderen mbv. een macro
« Reactie #5 Gepost op: 23 augustus 2006, 19:31:12 »
Luc en Pierre,

Bedankt voor jullie reacties.
Mijn probleem is opgelost.

Gr.
Eric
Gelogd
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.
Pagina's: [1]   Omhoog
 


www.combell.com