Suchen/Ersetzen Makroanpassung
24.09.2007 09:22:00
Bernd
Statt Now - 3 (Kalendertage) würde ich gerne Now - 3 (Arbeitstage verwenden). Wie würde die Syntax lauten?
Alternativ: Ich könnte mir auch folgende Alternative vorstellen.
Das Makro soll den Datumswert aus einer Zelle, z.B. A1 suchen (altes Datum). und durch den Datumswert in Zelle A2 (neues Datum) ersetzen. In A1 und A2 kann ich dann mit Excelformeln (z.B. ARBEITSTAG) arbeiten und die korrekten Daten ermitteln. Die Syntax des Formats ("/yyyy_mm/dd/") sollte dabei eingehalten werden!
Gruss Bernd
PS:
Hier das Makro:
**********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************
Option Explicit
Public Sub Suchen_Ersetzen_Datum()
Application.Dialogs(130).Show _
arg1:=Replace(Format(Now - 3, "/yyyy_mm/dd/"), ".", "\"), _
arg2:=Replace(Format(Now - 2, "/yyyy_mm/dd/"), ".", "\")
End Sub