Mit unteren Code lösche ich nach erstellen einer neuen Datei den Button "Neues Personalblatt erstellen"
Der Button ruft eine UF auf.
Wäre es möglich die ganze UF zusätzlich zu löschen ?
Die UF hat den Namen "frmTextUebertragen"
Call WochenendeWeg(True)
ActiveWorkbook.SaveAs ThisWorkbook.Path & "/" & "Vorlage Stundenaufzeichnung " & Range("B3") _
& ".xls"
ActiveSheet.Shapes(Application.Caller).Delete 'Löscht den Button Neues Personalblatt _
erstellen
Unload Me
ActiveSheet.Protect Password:="Test"
End Sub
Eventuell auch das "basMain" Modul
Das die UF aufruft
Sub CallForm()
frmTextUebertragen.Show
End Sub
Gruß Heinz