VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Beim Öffnen der Arbeitsmappe bedingt Datum eintragen

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

    


Beiträge aus dem Excel-Forum zu den Themen Ereignis und Open