Makros verbinden
Max
ich wüßte gern, wie man 2 Makros so miteinander verbindet, daß sie über einen
CommandButton ablaufen. Es soll gedruckt werden und im gleichen Zug sollen
nicht mehr benötigte Blätter gelöscht werden.
Private Sub Löschen()
With ThisWorkbook.VBProject
.VBComponents.Remove .VBComponents("frmDruck") 'Formulare
On Error Resume Next
End With
Application.ScreenUpdating = False 'Tabellen
Application.DisplayAlerts = False
Sheets("Tabelle1").Visible = True
Sheets("Tabelle1").Delete
Sheets("Tabelle2").Visible = True
Sheets("Tabelle2").Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
MsgBox "Die Blätter wurden gelöscht!", vbInformation
End Sub
Private Sub CommandButton1_Click()
ActiveWindow.SelectedSheets.PrintOut from:=1, To:=8, Copies:=2, Collate _
:=True
Unload Me
End Sub
nach dem Druck häufig das Löschen (um die Datei zum Archivieren zu verkleinern)
bestimmter Blätter vergessen.
Daher sollte das in einer Routine ablaufen. Ob erst gedruckt wird und dann gelöscht
oder umgekehrt ist egal, da die zu löschenden Blätter nicht mit gedruckt werden.
Falls jemand eine Lösung hat, wäre ich dafür dankbar.
Gruss
Max