Worksheet_BeforeSave will nicht gehen?! Fehler?
31.08.2004 09:56:23
Markus
Schön das es noch hilfsbereite Menschen gibt, von denen man noch was lernen kann. Ich frag mich nur wieso folgendes Listing nicht funktioniert. Könnt ja mal nene kurzen Blick drauf werfen?!
Es soll bewirken, daß bevor die Datei gespeichert wird (also über Speichern unter) die angegebenen Zellen auf Inhalt geprüft werden sollen.
Die Datei darf unter keinen Umständen gespeichert werden, wenn zu dem eingefügten Datum der dazu passende Name in der Zelle darunter fehlt.
Unter http://msd2004.tripod.com/ohne_daten.zip findet ihr ne Demo
und hier ein Bild http://msd2004.tripod.com/vba.htm.
Vielen Dank. Gruss Markus
vor dem before_beforesave ist noch ein Worksheet_Change. Ich denke dass dies die Funktion von Change nicht beeinflusst.
'
Private Sub Worksheet_Change(ByVal Target As Range)
' Inhalt
Private Sub Worksheet_BeforeSave(ByVal SaveAsUi As Boolean, Cancel As Boolean)
Application.EnableEvents = False
Select Case Target.Address
Case Cells(81, 17).Address
Cells(81, 28).Address
Cells(81, 39).Address
Cells(81, 50).Address
Cells(83, 6).Address
Cells(83, 17).Address
Cells(83, 28).Address
Cells(83, 39).Address
Cells(83, 50).Address
If Cells.Value = Date And Cells(Target.Row - 1, Target.Column) = " " Then
MsgBox "Arbeitsmappe kann nicht gespeichert werden! "
Cancel = True
Else
Cancel = False
End If
End Select
Application.EnableEvents = True
End Sub