Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Datum auf jedes Tabellenball in E1 eintragen

Datum auf jedes Tabellenball in E1 eintragen
Volker
Option Explicit

Sub EintragVornemen()
Dim i As Integer
For i = 1 To ActiveWorkbook.Sheets.Count
Range("E1").Value = Date
Next
End Sub

Count soll Die Tabellenblätter ermitteln.
Ich habe 3 Tabellenblätter und nur auf dem ersten drägt er das Datum in E1 ein.
was kan das sein?
vielen Dank für eure Bemühungen, find ich ganz toll!!!
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Datum auf jedes Tabellenball in E1 eintragen
DieterB
Hallo Volker,
malganz blind:
versuche es mit next i
gruß
DieterB
AW: Datum auf jedes Tabellenball in E1 eintragen
Josef
Hallo Volker!
Es muss
Sheets(i).Range("E1").Value = Date
heissen, sonst wird immer im aktuellen Blatt die
Eintragung vorgenommen!
Gruß Sepp
AW: Datum auf jedes Tabellenball in E1 eintragen
Bert

Sub EintragVornemen()
Dim i As Integer
For i = 1 To ActiveWorkbook.worksheets.Count
worksheets(i).[E1] = Date
Next
End Sub

Bert
Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige