möchte u. stehendes Makro (steht derzeit unter "dieseArbeitsmappe") einen Button zuordnen. Könnt Ihr mir bitte mitteilen, was ich wo ändern muss?
Vielen Dank
Gruß
Juergen
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Dieses Blatt Nicht löschen!").Select
Range("H2").Select
Sheets("Tabelle1").Select
Range("H26").Select
ActiveWorkbook.Save
Saved = True
With Workbooks("MNW_Drucken.xlsm")
With .Sheets(3)
.Range("a8:a9").Copy .Range("o19:o20")
End With
.Save
End With
Workbooks("Abrufkunden.xlsm").Close True
Saved = True
If Workbooks.Count = 1 Then ' diese Datei
Application.Quit
End If
End Sub