Tabblad verwijderen via macro

[Marco]

Ik heb een macro opgenomen waarbij ik bij een bestaande werkmap 1 tabblad
wil verwijderen. Ik krijg echter de volgende melding:
"De bladen die zijn geselecteerd om te worden verwijdered, bevatten mogelijk
gegevens. Als u de gegevens permanent wilt verwijderen,
klikt u op verwijderen." Hoe zorg ik er voor dat het tabblad wordt
verwijderd zonder tussenkomst van deze vraag?
Het stukje macro wat er nu staat is:
Sheets("Ratefixinput").Select
ActiveWindow.SelectedSheets.Delete


Nog een ander vraagje.
Ik heb in dezelfde macro het volgende autofilter staan:
Selection.AutoFilter Field:=9, Criteria1:="10-06-2005"
Dit filter komt drie keer terug, waarbij de datum op drie verschillende
tabbladen 7 dagen, 1 maand en twee maanden na systeemdatum is.
Waar vervang ik 10-06-2005 door om te filteren op resp. 7 dagen, 1 maand en
twee maanden na systeemdatum. Het formaat is "d/mm/yyyy".
Ik ben aan het stoeien geweest met een eerdere oplossing van Ingrid, maar
kom er niet uit.
Date + 7

DateSerial(Year(Date), Month(Date) + 1, Day(Date))

DateSerial(Year(Date), Month(Date) + 2, Day(Date))



Marco

[Cobbe]

Met deze code in je macro vang je dit op:

Application.DisplayAlerts = False

Voor het tweede probleem:

=ZELFDE.DAG(A1;1) ----------= datum + 1 maand
=ZELFDE.DAG(A1;2) -----------= datum + 2 maand

Cobbe

[Cobbe]

Sorry,
Ik heb nog een gedeelte vergeten:
Voor de datum + 7 dagen:
= datum +7
bv In A1 staat de systeemdatum dan =A1+7

Cobbe

Post by Cobbe
Application.DisplayAlerts = False
=ZELFDE.DAG(A1;1) ----------= datum + 1 maand
=ZELFDE.DAG(A1;2) -----------= datum + 2 maand
Cobbe

[Amedee Van Gasse]

Post by Cobbe
Application.DisplayAlerts = False

Voor de volledigheid: zet achteraan de macro

Application.DisplayAlerts = True

Meestal is het strikt genomen niet nodig, maar het staat wel "netjes".
--
Amedee Van Gasse using XanaNews 1.17.3.1
If it has an "X" in the name, it must be Linux?

How To Ask Questions The Smart Way
http://www.catb.org/~esr/faqs/smart-questions.html
How to Report Bugs Effectively
http://www.chiark.greenend.org.uk/~sgtatham/bugs.html
Only ask questions with yes/no answers if you want "yes" or "no" as the
answer.
http://homepages.tesco.net/~J.deBoynePollard/FGA/questions-with-yes-or-n
o-answers.html