Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1152to1156
1152to1156
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datum eintragen

Forumthread: Datum eintragen

Datum eintragen
Heinz
Hallo Leute
Ich möchte in einen Tab.Blatt, Wenn A50 ist leer, dann das Datum von heute eintragen lassen.
Habe unteres Makro das leider nicht funktioniert.
Könnte mir bitte jemand helfen ?
Gruß
Heinz
Private Sub Worksheet_Activate()
Dim rng As Range
If Range("A50").Value = Date Then
Range("A50") = Date
End Sub

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Datum eintragen
30.04.2010 12:36:55
Yusuf
Hallo,
versuch es mal so bitte.
Private Sub Worksheet_Activate()
Dim rng As Range
If Range("A50").Value = "" Then
Range("A50") = Date
End If
End Sub

AW: Datum eintragen
30.04.2010 12:46:57
Heinz
Hallo Yusuf
Leider Funkt. es nicht.
Ich habe den Code in das Tab.Blatt eingefügt.
Habe die Mappe gespeichert & geschlossen.
Bei neuen öffnen war A50 leider leer.
Gruß
Heinz
Anzeige
AW: Datum eintragen
30.04.2010 12:52:54
Yusuf
Hm, komisch.
Bei mir funktioniert es einwandfrei.
Steht in "A50" eine Formel oder aehnliches drin?
Gruß
Yusuf
AW: Datum eintragen
30.04.2010 12:53:13
Rudi
Hallo,
das Activate-Ereignis tritt erst ein, wenn du das Blatt verlässt und wieder aktivierst.
Evtl. besser mit Workbook_open?
Gruß
Rudi
AW: Danke an Yusuf & Rudi
30.04.2010 13:00:30
Heinz
Hallo Yusuf & Rudi
Ich habe den Code in " Diese Arbeitsmappe" eingefügt.
Nicht in das Tab.Blatt.
Jetzt funkt. es.
Recht herzlichen Dank
Gruß
Heinz
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige