Commandbutton_click aufrufen
25.08.2017 14:40:02
UweD
habe im Codebereich von Tabelle2 einen Code auf einem Button liegen
Private Sub CommandButton1_Click() '*** Generieren
'mache alles mögliche
end sub
Mein Gedanke war.
ich rufe das aus der "Workbook_BeforeClose" auf
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error GoTo Fehler
Cancel = True
With TB2
' mache alles möglich
CommandButton1_Click
End With
Application.EnableEvents = False
ThisWorkbook.Close
'*** Fehlerbehandlung
Err.Clear
Fehler:
Application.EnableEvents = True
If Err.Number 0 Then MsgBox "Fehler: " & _
Err.Number & vbLf & Err.Description: Err.Clear
End Sub
meckert immer "Sub oder Function nicht definiert" und die Zeile ist gelb markiert
Hab auch schon Call oder Run versucht.
Wie führe ich das makro vor dem Schließen nochmal aus?
LG UweD
Anzeige