ich bin am verzweifeln... ich hoffe ihr könnt mir helfen.
1. Ich möchte einen Code erstellen, welcher vor dem Speichern einer Arbeitsmappe, den Inhalt mehrerer Zellen in vier Tabellenblättern überprüft.
Dabei muss bei einer "1" in allen Zellen ein Speichern möglich sein, wenn alle oder einige Zellen dagegen leer sind, muss ein Speichern der Arbeitsmappe verhindert werden. Wenn z. B. im zweiten TB eine "1" fehlt, soll dann die MsgBox "In zweiter Prüflauf nicht alle Felder beschriftet, Bitte prüfen!" erscheinen.
Die zu prüfenden Zellen pro Tabellenblatt (auf allen Tabellenblättern gleich) sind:
-(W24:AO24)
-(W41:AL41)
-(W58:AL58)
Die Tabellenblätter lauten:
-erster Prüflauf
-zweiter Prüflauf
-dritter Prüflauf
-vierter Prüflauf
2. Gleichzeitig habe ich folgenden Code in "dieseArbeitsmappe", welcher aber auch momentan nur auf dem Arbeitsblatt funktioniert wird, welches gerade geöffnet ist :-( (soll auf allen TB gleichzeitig gehen)
Private Sub Workbook_BeforeSave(ByVal _
SaveAsUI As Boolean, Cancel As Boolean)
Range("U101").Value = Date
Range("U97").Value = Time
End Sub
nun nochmal alles zusammen gefasst:1. Wie könnte der Code aussehen, welcher alle Zellen in allen 4 TB vor dem Speichern prüft und wo muss er hin?
2. Wie bekommt man den Code oben mit "Date & Time" auf alle TB angewendet?
3. Wie verknüpft man die Codes "Prüfen vor Speichern" und "Date & Time vor speichern" mit einander? (Es kommt immer Fehlermeldung "Mehrdeutiger Name: Workbook_BeforeSave")
Ich hoffe Ihr könnt mir helfen.
Viele Grüße :-)