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

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

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
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
Anzeige
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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige