Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Bewerten Sie hier bitte das Excel-Portal

Home Zurück Vor

Download Beispiel-Arbeitsmappe

Thema

Beim Öffnen der Arbeitsmappe bedingt Datum eintragen

Gruppe

Open

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

Msg mit 2 Ereignissen +Cancel

Ereignisprozedur

Excel-Tabelle in OpenOrg

getopenfilename mit Teil der Dateiname

Makro für ereignisabh. Druck verschiedener Seiten

Benutzerdefinierte Funktion in Open Office

UF Activate / Initialize Ereignis

Namen definiert- in Ereignis verwenden?

GetOpenFilename Dateiname vorbelegen

xlDialogOpen anpassen

Symbolleisten durchloopen: löschen & restore

Zeilen aus- einblenden als Ereignis?

Welches Ereignis ist das richtige ??

Symbolleisten durchloopen und ausblenden

Ereignis Arbeitsblatt sperren abfangen

Ereignisprozedur f. Multipage-Reiter

Frage zum Change ereignis

xlDialogOpen bei Excel 2007 funzt nicht

komisches phänomän bei set xx open workbook

Change-Ereignis in Combobox unterdrücken

Combobox Ereignis

MS OFFICE - OPEN OFFICE

Userform, Ereignis deklarieren im Klassenmodul

Welches Diagramm-Ereignis?

Bestimmtes Ereignis in Spalte zählen

Command Button Ereignis

Ereignis von Laufzeit-Checkbox

Wochenangabe bei WorkbookOpen

change-ereignis bei dynamischen Controls / Teil 2

Change Ereignis verhindern

change-ereignis bei dynamisch erstellten Controls

Schaltfläche - Ereignis erst nach Bestätigung ausl

Makro Workbook_Open läuft nicht

Objekt_Error - Ereignis in UserForm

Problem mit OpenRecordset (Array)

bei OPEN macros vermeiden

change ereigniss auf userform.

Click-Ereignis für Checlbox nicht ausführen?

windows.open und selection.change

workbooks.open Fehlermeldung

Speichern einer Kopie durch Ereigniss Workbook_bef

Reagieren auf Tastaturereignisse

Workbooks.OpenText - Datumsformat

Ausnahmen für Exit-Ereignis

Probleme mit Workboos.Open