Pop-UP Meldungen im Makro unterdrücken
25.06.2007 13:02:30
sascha76er
wie kann ich in meinem folgendem Makro folgende Pop-Up Meldungen unterdrücken bzw. automatisch jeweils mit "Nein" bestätigen.
1. Sollen Ihre Änderungen in 'I_Zwischenrechnung.xls' gespeichert werden?
2. Es befindet sich eine große Menge von Informationen in der Zwischenablage. Wollen Sie diese Informationen später in andere Programme einfügen?
Hier mein Makro:
Sub I_Export_einspielen()
' I_Export_einspielen Makro
' Makro am 25.06.2007 von Sascha Nolden aufgezeichnet
Workbooks.Open Filename:= _
"S:\verwaltung\Export\Daten_fuer_Marge_BEK\I_Zwischenrechnung.xls"
Application.Run "I_Zwischenrechnung.xls!I_Export_berechnen"
Columns("A:L").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Marge BEK.xls").Activate
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Marge Bek_export1.txt").Activate
ActiveWindow.Close
Windows("I_Zwischenrechnung.xls").Activate
ActiveWindow.Close
Range("A1").Select
Application.Run "'Marge BEK.xls'!III_ZeilenKiller"
End Sub
Vorab vielen Dank für Eure Unterstützung
Gruß
Sascha