ich habe von meinem Vorgangänger nachstehendes Makro "geerbt".
wenn der Button "Nein" in der MsgBox gedrückt wird, bricht das Makro auch ab, aber die am Anfang eingeblendeten Sheets werden nicht ausgeblendet.
Die Sheets müssen wieder ausgeblendet werden und das weitere Makro "Löschen" darf auf keinen Fall angestossen werden.
Wer kann mir bitte helfen. Ich habe schon so vieles versucht aber nix fruchtet.
Private Sub Abschluss()
If InputBox("Bitte Paßwort eingeben", "Abfrage") = "test" Then
'Einblenden
Sheets("Kunden").Visible = True
Sheets("Gesamt").Visible = True
End If
Dim strFrage, strNam As String
Dim datJahr As Date
On Error Resume Next
If CDate(Year([B1]) < Year(Date)) Then
Range("A1").Select
Exit Sub
End If
strFrage = MsgBox("Soll ein Wechsel durchgeführt werden ?" & Chr(13) & Chr(13) _
& "Vorsicht, es werden alle Einträge gelöscht !", vbYesNo, "Jahreswechsel")
If strFrage = 6 Then
ActiveWorkbook.Save
Application.ScreenUpdating = False
Application.Run "Löschen"
End If
Cells(1, 1).Activate
Application.ScreenUpdating = True
End Sub
Vielen Dank im voraus
Gruß
Tom