Schaltfläche inativieren
05.09.2021 21:45:50
Basti
ich habe mehrere Tabellen-Blätter in einem Programm.
Wenn ich Tabelle1 namens "Rechnung" bearbeitet habe, klicke ich auf eine verschiebbare Schaltfläche "Rechnungspeichern",
(in dessen Textfeld "Rechnungsspeichern" steht),
sodass diese Tabelle1 in eine extra Datei "Rechnung-xyz" gespeichert wird,
in der ich eine andere Schaltfläche mit der Inschrift "neues Blatt" aus der Quelldatei wiedersehe.
Ich muss diese Schaltfläche in der Datei "Rechnung-xyz" aber automatisch während des Speichern inaktivieren bzw unsichtbar machen.
Was genau macht der folgende Code, ggf genau das was ich haben möchte?
Sub rechnungspeichern()
Dim TB As Worksheet
Dim dName$
Set TB = ActiveWorkbook.Worksheets(5)
dName = ThisWorkbook.Path & "\Rechnungen\" & TB.Range("k19") & ".xls"
ActiveSheet.Copy
ActiveSheet.Buttons(1).Delete
ActiveWorkbook.SaveAs dName
ActiveWorkbook.Close savechanges:=False
End Sub
