Office: Datum in VBA 97 auf letzten Werktag zurücksetzen

Hi,

wie schon zich mal erwähn, ich bin VBA-Laie und benötige mal wieder eure Hilfe

Zur Bearbeitung von Adressen verwenden wir eine Maske, die in VBA erstellt wurde. Da wir immer die Ergebnisse des letzten Werktages bearbeiten, soll auch dieser in der Maske und danach natürlich auch in der Exceltabelle auftauchen.

Zur Zeit steht diese Funktion so in VBA

'Setze Datumsfeld auf aktuelles Datum
Me.telefondatumTB.value = Date - 1

Wie ihr sicherlich erkennt, nimmt das so keine Rücksicht auf Wochenenden und Feiertage.

Ich vermute, dass ich dazu überhaupt erst mal eine Liste der Feiertage für unser Bundesland erstellen muss. In welcher Form muss ich dies dann tun? Ein Tabellenblatt mit verschiedenen benannten Bereichen habe ich bereits in der Datei, auf die die Maske auch zugreift, allerdings sind das ganz andere Informationen mit denen er auch nicht groß "weiterrechnen" muss. Am liebsten wäre es mir in diesem Tabellenblatt auch eine Tabelle mit den Feiertagen zu erstellen, so kann ich anhand der anderen Daten in diesem Blatt besser "abgucken/ -ableiten".

Könnt ihr mir denn eventuell eine Lösung vorschlagen?

GLG und vielen Dank im Voraus,
utitti

 

Hallo,

in Excel2003 bzw. Excel2007 gibt es im Arbeitsblatt die Funktion ARBEITSTAG(Ausgangsdatum;TageBis;Feiertagstabelle)
Ich weiß nicht, ob es diese Funktion fürs Arbeitsblatt bereits in Excel97 gibt - eine neuere Version würde sicherlich nicht schaden, denn eine Hilfe zu geben, ist da nicht mehr ganz einfach.

Da Du die Funktion in VBA verwenden möchtest, so lautet die entsprechende Funktion:
Worksheetfunction.WorkDay(Ausgangsdatum,TageBis,BereichFeiertage)
Diese funktioniert genauso wie die vorhin genannte Arbeitsblattfunktion ARBEITSTAG(...).
Ausgangsdatum ist das Datum, von dem weg gerechnet wird.
TageBis sind die Anzahl Arbeitstage, die vom Ausgangsdatum weitergezählt wird (falls positiv); falls negativ, so wird zurückgezählt.
Feiertagstabelle bzw. BereichFeiertage ist der benannte Bereich im Arbeitsblatt, der eine Liste mit Datumsangaben enthält (eben lauter Feiertage).
Die Funktion rechnet dabei beim Wert für TageBis nicht die Samstage, Sonntage und Feiertage mit - also sie zählt eben nur die Arbeitstage.

Da Du den letzten Arbeitstag haben möchtest, müsste schließlich vorige VBA-Funktion lauten:
Worksheetfunction.WorkDay(Date,-1,Range("Feiertagstabelle"))

Dabei bedeutet "Feiertagstabelle" den Namen für den benannten Bereich im Arbeitsblatt, der die Feiertagsdaten enthält; man kann hier jeden belieben Namen verwenden (jeweils eingeschlossen in Anführungszeichen), solange er identisch ist mit dem Bereichsnamen im Arbeitsblatt. Falls dieser Name nur innerhalb des betreffenden Arbeitsblattes gelten sollte (der in anderen Arbeitsblättern nicht verwendbar ist), muss natürlich noch der Name des Arbeitsblattes eingefügt werden - mit einem Ausrufezeichen dazwischen:
Worksheetfunction.WorkDay(Date,-1,Range("ArbeitsblattName!Feiertagstabelle"))

Voriger VBA-Code müsste in etwa so ausschauen:

oder