Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
672to676
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
672to676
672to676
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

auto_open

auto_open
28.09.2005 08:32:03
lexika
HI,
kann mir vielleicht jemand sagen was man bei auto_open beachten muß?
hab das ganze in Diese Arbeitsmappe als Prozedur eingefügt um das aktuelle Datum auf jeder seite Automatisch einzufügen.
Danke

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: auto_open
28.09.2005 08:33:15
Dr.
Hi,
verwende statt dessen Workbook_Open.
AW: auto_open
28.09.2005 08:39:55
lexika
HI,
jetzt bekomme ich das Datum aber nur auf dem ersten Blatt?
THX
AW: auto_open
28.09.2005 08:42:42
Dr.
Kannst Du bitte mal Deinen Code posten?
AW: auto_open
28.09.2005 08:46:32
lexika
HI
Public

Sub Workbook_Open()
wunsch = 10 'Schriftgröße
Cells(12, 12) = "=TEXT(TODAY(),""TT.MM.JJJJ"")"
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.ShrinkToFit = False
.MergeCells = False
End With
With Selection.Font
.Name = "Arial"
.Size = wunsch
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
End Sub

das Public steht vor dem

Sub (will hier aber nicht)

Anzeige
AW: auto_open
28.09.2005 08:48:27
Dr.

Sub Workbook_Open()
wunsch = 10 'Schriftgröße
For i = 1 to Sheets.Count
Sheets(i).Cells(12, 12) = "=TEXT(TODAY(),""TT.MM.JJJJ"")"
Next i
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.ShrinkToFit = False
.MergeCells = False
End With
With Selection.Font
.Name = "Arial"
.Size = wunsch
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
End Sub

Danke
28.09.2005 08:52:32
lexika
Hi,
vielen Dank funktioniert prima
lexika
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige