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

VBA Code optimieren

Forumthread: VBA Code optimieren

VBA Code optimieren
06.12.2007 10: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

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: VBA Code optimieren
06.12.2007 11: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 11:06:05
Melanie
Vielen Dank euch beiden!
Das sieht wirklich schon viel besser aus...
Grüße, Melanie

Anzeige
AW: VBA Code optimieren
06.12.2007 11: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
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
14.05.2026 09:50:42
13.05.2026 19:14:18