Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
932to936
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
932to936
932to936
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

VBA Code optimieren

VBA Code optimieren
06.12.2007 09:58:17
Melanie
Hallo Excel-Profis,
man liest in diesem Forum immer wieder, dass viele Wörter in einem aufgezeichneten Code weggelassen werden können. Ich versuche das auch immer eifrig anzuwenden, weil die Projekte dann einfach viel übersichtlicher werden. Beim unten angehängten Beispiel erzeuge ich am Ende einer Prozedur einen Zeitstempel um zu sehen, wann das Makro zuletzt ausgeführt wurde. Sicher lässt sich dieser Code doch auch ein bisschen straffen, oder?
Danke im Voraus!
Grüße, Melanie
Sheets("START").Range("J36").FormulaR1C1 = "=TODAY()"
Range("J36").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

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

Betreff
Datum
Anwender
Anzeige
AW: VBA Code optimieren
06.12.2007 10:01:21
Matthias
Hallo Melanie,
du kannst mit VBA direkt das Datum eintragen:

Sheets("START").Range("J36").Value = Date


Gruß Matthias

Danke!
06.12.2007 10:06:05
Melanie
Vielen Dank euch beiden!
Das sieht wirklich schon viel besser aus...
Grüße, Melanie

AW: VBA Code optimieren
06.12.2007 10:02:09
Hajo_Zi
Hallo Melanie,
einfach mal in die Hilfe schauen
With Sheets("START")
.Range("J36").FormulaR1C1 = "=TODAY()"
.Range("J36").Copy
.PasteSpecial Paste:=xlPasteValues
end With
oder nur With Sheets("START").Range("J36")=date
Gruß Hajo
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige