Blatt kopieren ohne cmd-Button
05.03.2004 09:51:35
Rico
das folgende Makro kopiert mir ein Blatt aus der aktuellen Mappe in eine (noch geschlossene) Mappe und ersetzt die dort vorhandene.
Sub MontagekalenderIntern()
Workbooks.Open FileName:= _
"C:\Dokumente und Einstellungen\RS\Desktop\Montagekalender.xls"
ActiveWindow.WindowState = xlMinimized
Windows("AVOR.xls").Activate
ActiveWindow.WindowState = xlMaximized
Sheets("Montage-Kalender").Select
Sheets("Montage-Kalender").Copy After:=Workbooks("Montagekalender.xls"). _
Sheets(2)
ActiveWindow.SmallScroll Down:=30
Sheets("Montage-Kalender (2)").Select
ActiveWindow.SelectedSheets.Delete
End Sub
Leider kopiert es auch den cmd-Button den ich aus der Formularwekzeugliste mit dem Makro verknüpft habe mit auf das neue Blatt.
Kann ich das mit einem Code ergänzen damit das nicht passiert?
Merci für die sicher hilfreichen Tips
Rico