habe folgendes Makro geschrieben........
Private Sub CommandButton2_Click()
Application.ScreenUpdating = False
Rows("11:36").EntireRow.Hidden = True ' Abteilung 1 Ausblenden
Range("A8:AG258").PrintOut Copies:=1, Collate:=False ' Abteilung 2 Drucken
Rows("11:36").EntireRow.Hidden = False ' Abteilung 1 Einblenden
UserForm1.Hide
Application.ScreenUpdating = True
End Sub
.... warum wird die UserForm1 nicht geschlossen?Gruß Werner