Anzeige
Archiv - Navigation
808to812
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
808to812
808to812
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Datum per VBA eintragen ?

Datum per VBA eintragen ?
11.10.2006 13:00:15
Selma
Hallo Excelfreunde,
wenn in Arbeitsblatt in Zelle M1 der Text "Stand:" steht, dann möchte ich in Zelle N1 den aktuelle Datum in Form "TT.MM.JJJJ" eingetragen. Dies gilt für alle Arbeitsblätter der aktive Datei. Also nur das Datum eintragen, wenn tatsächlich in Zelle M1 der Text "Stand:" steht.
Wie mache ich das per VBA?
Vielen Dank im Voraus....
LG
Selma

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datum per VBA eintragen ?
11.10.2006 13:07:52
Peter
Hallo Selma,
das geht z. B. so:
Public

Sub Datum_einfuegen()
Dim iIndex  As Integer
For iIndex = 1 To Worksheets.Count
If UCase(Worksheets(iIndex).Range("M1").Value) = "STAND" Then
Worksheets(iIndex).Range("N1").Value = Format(Date, "dd.mm.yyyy")
End If
Next iIndex
End Sub

Den Aufruf des Makros kannst du in das Workbook_Close Ereignis legen (unter DieseArbeitsmappe).
Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
AW: Datum per VBA eintragen ?
11.10.2006 13:09:28
Bertram
Hi Selma,
so geht's:

Sub DatumEintragen()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
If ws.Range("M1").Value = "Stand:" Then ws.Range("N1").Value = Format(Date, "dd.MM.yy")
Next ws
End Sub

Gruß
Bertram
Anzeige
AW: Datum per VBA eintragen ?
11.10.2006 13:55:13
Selma
Hallo Peter,
hallo Bertram,
es funktioniert...
Vielen Dank.
LG
Selma
Gerne oT
11.10.2006 14:05:12
Bertram

89 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige