Brauch Hilfe bei meinem Makro
11.08.2003 16:29:50
wang
Ich habe das Makro angewendet, es funktioniert. Aber eine Macke hat es:
Wenn ich im :Application.Dialogs(xlDialogSaveAs).Show auf Abbrechen klicke, dann existiert immer noch eine Arbeitsmappe2..100. Ich wollte es mal mit if ...then..exit
Sub versucht, aber habe nix zustande gebracht und komme nicht weiter.
Wer kann mir da weiterhelfen?
Sub CommandButton1_Click()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Sheets("stat").Select
Sheets("stat").Copy
Cells.Copy
Cells.PasteSpecial xlPasteValues
Application.Dialogs(xlDialogSaveAs).Show
ActiveWorkbook.Close True
Workbooks("exportieren.xls").Activate
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
Gruß
Wang