wer kann mir bei folgendem Problem helfen:
wie ereiche ich, dass wenn u.g. 1.Bedingung erfüllt ist, direkt bei Marke 12 weitergemacht wird ? Sicher muss GoTo an die 1. Bedingung drangehangen werden, aber wie ??? Oder bin ich komplett auf dem Holzweg ???
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Worksheets("Start").Visible = True Then ActiveWorkbook.Saved = True
GoTo 12
Dim wks
Worksheets("Start").Visible = True
For Each wks In ActiveWorkbook.Sheets
If wks.Name = "Start" Then
wks.Visible = True
Else
wks.Visible = xlVeryHidden
End If
Next
12 If Workbooks.Count = 1 Then Application.Quit
If Workbooks.Count > 1 Then ThisWorkbook.Close
End Sub