Makro funktioniert nicht richtig
Franz
habe folgendes Makro im Einsatz:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Aktionen vor dem Schliessen der Datei
Dim sMsgTxt As String, vOption, vFileName, sCopyName As String
sMsgTxt = "Was möchten Sie jetzt machen?" & vbLf & vbLf _
& "1 = Datei speichern und schließen" & vbLf & vbLf _
& "2 = Datei speichern und schließen (Kopie für Mitarbeiter wird angelegt anlegen)" & vbLf & _
vbLf _
& "3 = Änderungen verwerfen und Datei schließen" & vbLf & vbLf _
& "4 = in der Datei weiter arbeiten"
Input_box2:
vOption = InputBox(Prompt:=sMsgTxt, Title:="Datei Schliessen", Default:=1)
Select Case vOption
Case "1"
ThisWorkbook.Save
Case "2"
ThisWorkbook.Save
Sheets(1).Copy
ActiveSheet.Unprotect ("franz")
ActiveSheet.Range("A1:AA500").Locked = True
ActiveWorkbook.UpdateLinks = xlUpdateLinksNever
Set Bereich = ActiveSheet.Range("F3:Y9")
For Each zelle In Bereich
If zelle.Value = "K" Or zelle.Value = "KB" Then zelle.Value = ""
Next zelle
Range("a1").Select
ActiveSheet.Protect ("franz"), DrawingObjects:=True, Contents:=True, Scenarios:=True, _
AllowFiltering:=True
ActiveSheet.EnableSelection = xllockedcells
sCopyName = "C:\Dokumente und Einstellungen\franz\Eigene Dateien\" _
& "Kopie von Testdatei 2011.xls"
ActiveWorkbook.SaveCopyAs Filename:=sCopyName
ActiveWorkbook.Close savechanges:=False
ThisWorkbook.Saved = True
Case "3"
ThisWorkbook.Saved = True 'verhindert das Sicherheitsmeldung von Excel angezeigt wird
Case "4", "" ' "" = Abbrechen wurde gewählt
Cancel = True
Case Else
GoTo Input_box2
End Select
' End If
End Sub
Der fettmarkierte Teil funktioniert nicht - jedenfalls wird kein Buchstabe gelöscht. Lasse ich das Makro über Sub laufen, funktioniert es.Woran kann es liegen?
Franz