Gruppe
Ereignis
Bereich
Open
Thema
Beim Öffnen der Arbeitsmappe bedingt Datum eintragen
Problem
Wie kann ich veranlassen, daß beim Öffnen einer Arbeitsmappe geprüft wird, ob die Zellen A1 und B1 Werte enthalten? Wenn A1 nicht leer und B1 leer ist, soll in B1 das aktuelle Datum eingetragen werden.
Lösung
Geben Sie den Ereigniscode in das Klassenmodul der Arbeitsmappe ein.
ClassModule: DieseArbeitsmappe
Private Sub Workbook_Open()
With Worksheets("Tabelle1")
If Not IsEmpty(.Range("A1")) And _
IsEmpty(.Range("B1")) Then
.Range("B1") = Date
End If
End With
End Sub