Workbook before close
Kirsche
nachdem ich den ganzen tage recherchiert habe und nicht wirklich weiter gekommen bin, baue ich auf eure hilfe.
ich habe eine datei, welche beim schließen auf die tabelle "Start" zurück springen soll, dann soll in der tabelle "Start" in H65535, C25, C26 der wert gelöscht werden. zum schluß sollen alle anderen tabellen ausgeblendet werden.
leider funzt mein makro nicht, woran könnte das liegen?
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim objWS As Worksheet
Sheets("Start").Select
Call SchutzAus_Start
hier springt der debugger an Sheets("Start").Range("C25:C26,H65535").Value = ""
Call SchutzEin_Start
For Each objWS In ThisWorkbook.Worksheets
If objWS.Name "Start" Then
objWS.Visible = xlSheetHidden
End If
Next
ThisWorkbook.Save
ThisWorkbook.Close
diese zeilen habe ich deaktiviert, weil excel sonst abstürzt
'If Workbooks.Count = 1 Then
' Application.Quit
'Else
' ThisWorkbook.Close True
'End If
End Sub
https://www.herber.de/bbs/user/66091.xls
gruß dörte