Gruppe
Ereignis
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.
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