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

marko automatisch aktivieren

marko automatisch aktivieren
17.01.2008 12:09:00
Jonatan
Hallo,
ich habe untenstehenes Makro hinter ein tabellenblatt gelegt; nur hätte ich gern, dass das Makro beim Öffnen der Datei sich automatisch ausführt, ohne dass ich es nochmal ansprechen muss.
Im Moment funktioniert es nur, wenn ich es explizit ausführe.

Private Sub Workbook_Open()
Range("b2").Select
ActiveCell.FormulaR1C1 = Date
Range("b2").Select
Selection.NumberFormat = "m/d/yyyy"
End Sub


gruß Jonatan

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

Betreff
Datum
Anwender
Anzeige
AW: marko automatisch aktivieren
17.01.2008 12:25:55
Matthias
Hallo Jonathan,
dass Makro muss ins Modul "DieseArbeitsmappe".
Hier musst du dann aber das Blatt angeben, in dem du die Zeit eintragen willst:

Private Sub Workbook_Open()
With Me.Sheets("Tabelle1").Range("B2")
.FormulaR1C1 = Date
.NumberFormat = "m/d/yyyy"
End With
End Sub


Gruß Matthias

AW: marko automatisch aktivieren
17.01.2008 12:39:33
Jonatan
Hallo Matthias,
klasse!!! vielen Dank.
Gruß Jonatan

AW: marko automatisch aktivieren
17.01.2008 12:39:00
Stefan
Hallo Jonatan
Du mußt deinen Code bei " Diese Arbeitsmappe" in deinem Projekt einfügen.
https://www.herber.de/bbs/user/49097.xls
Schau mal hier nach. Habe noch etwas ergänzt damit dein Code immer nur im Tabellenblatt "Tabelle1"
ausgeführt wird.
Gruß, Stefan

Anzeige
AW: marko automatisch aktivieren
17.01.2008 12:42:00
Jonatan
Hallo,
Dankeschön!!!
Klappt einwandfrei.
Gruß Jonatan

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige