Monatsreporting

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Russi,
das Reporting Makro sind einige Makros die ich eigentlich über ein einfaches(einfach is jetzt auch witzig!) ;-) Autostartmakro aufrufen möchte.
Das heist es soll im Xlstartordner stehen, die zeitlichen Gegebenheiten abfragen und dann entscheiden ob die anderen Dateien jetzt geöffnet werden oder nicht.
Wie gesagt, die Problematik ist halt in erster Linie zu erkennen ob der systemtag der erste Arbeitstag im Monat ist oder nicht. Wenn es denn der erste Arbeitstag ist soll er nacheinander ca. 6 Dateien starten (Makros) die meinen Report ablaufen lassen.
Dort gibt es Dateien die werden aus einer Datenbank erzeugt in Excelsheets übertragen und dann automatisch verschickt. Das ganze hab' ich in einer Arbeitsmappe mit Startbuttons hinterlegt, soll aber wie gesagt "AUTOMATISCH" laufen.
Ich komm nur nicht weiter:
Hier meine verzweifelten Ansätze:
Public


Sub Monatsanfang()
Dim heutag As Date   'SYSTEMDATUM
Dim Mon As Integer   'MONAT VON SYSDAT
Dim wotag As Integer 'WOCHENTAG VON SYSDAT
Dim dtag As Integer  'MONATSTAG von Sysdat
heutag = Date
MsgBox (heutag)
wotag = weekday(heutag, vbMonday)
MsgBox (wotag)
Mon = month(heutag)
MsgBox (Mon)
dtag = Day(heutag)
MsgBox (dtag)
If dtag <= 4 Then Call pruef(month, heutag, dtag, wotag)
Else
End If
End Sub

Public


Sub pruef(month, heutag, dtag, wotag)
'hier will ich abprüfen ob das Makro schonmal gelaufen ist
End Sub

Gruß
lothar

Mit anderen Worten: Ist
1. das letzte Reporting länger als 20 (+/-?) Tage her und
2. ist Monatsanfang, kann man eigentlich davon ausgehen, dass wieder ein neues Reporting zu machen ist bzw. die 6 Dateien aufgerufen werden müssen.
Excel hat wie gesagt keine vorgefertigte Funktion, um Feiertage zu erkennen. Man kann diese zwar manuell eingeben bzw. teilweise mit Formeln ermitteln, aber ich denke, der Aufwand hierfür wäre unangemessen groß. Und, mal weitergedacht: Was ist bei Urlaub, Krankheit etc? Das erkennt Excel garantiert nicht.
Wenn Deine Excel-datei ausschließlich dazu da ist, dieses Makro auszuführen, würde ich bei jeder Ausführung des Makros am Ende noch eine Zeile einbauen:
ThisWorkbook.Sheets(1).Range("A1").Value = Date
Und am Anfang des gleichen Makros:
if ThisWorkbook.Sheets(1).Range("A1").Value &lt= Date-20 and day(month)&lt=4 then
'...hier beginnt der Aufruf der Dateien
end if
Russi
www.Russi.de.tt

Beliebteste Forumthreads (12 Monate)

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread