Funktion Arbeitstag in VBA

Stephan Groß

unread,

Mar 14, 2002, 10:06:23 AM3/14/02

to

Hallo allerseits,

ich bin kurz vorm Verzweifeln. Folgendes Problem:
Ich habe in einer Tabelle eine Spalte in der verschiedene Daten
(Datümer, Datume???) stehen und ich will mit einem VBA-Skript die
entsprechende Zelle rot markieren, wenn der Abstand zwischen dem
eingetragenen Datum und dem heutigen Datum kleiner 3 Arbeitstage ist
(so eine Art Vorwarnfunktion).
Dazu gedachte ich die ARBEITSTAG-Funktion zu benutzen. Allerdings
antwortet mir Excel immer mit einem Laufzeitfehler, egal was ich
versuche.
Ich habe habe in Excel die AddIns "Analyse-Funktionen" und
"Analyse-Funktionen - VBA" aktiviert und in der Entwicklungsumgebung
die entsprechenden Verweise eingetragen ("atpvbaen").
Ich habe auch schon versucht die Excel-Funktion mit
"Application.WorksheetFunktion" aufzurufen. Kein Erfolg.

Vielleicht liegts ja an der richtigen Syntax (evtl. heißt das Ding bei
VBA garnicht Arbeitstag?) oder an der Technik?

Für Tips und Hinweise wäre ich ausserordentlich dankbar.

Gruß,
Stephan

Thomas Ramel

unread,

Mar 14, 2002, 11:02:38 AM3/14/02

to

Grüpezi Stephan

Stephan Groß schrieb:

>
> Ich habe habe in Excel die AddIns "Analyse-Funktionen" und
> "Analyse-Funktionen - VBA" aktiviert und in der Entwicklungsumgebung
> die entsprechenden Verweise eingetragen ("atpvbaen").
> Ich habe auch schon versucht die Excel-Funktion mit
> "Application.WorksheetFunktion" aufzurufen. Kein Erfolg.
>
> Vielleicht liegts ja an der richtigen Syntax (evtl. heißt das Ding bei
> VBA garnicht Arbeitstag?) oder an der Technik?

Vielleicht helfen Dir folgende Code-Zeilen:

Public Sub Warnung()
If ActiveCell.Value <= Workday(Today(), 3) Then
ActiveCell.Interior.ColorIndex = 3
End If
End Sub

--
Mit freundlichen Grüssen

Thomas Ramel
http://www.4853.ch/Schlesinger
http://www.swissgeo.ch/mapit.php3?www=http//www.4853.ch/Schlesinger&swissgeo_id=241718

Ralf Eichler

unread,

Mar 14, 2002, 3:58:20 PM3/14/02

to

Stephan Groß schrieb:

>
> Hallo allerseits,
>
> ich bin kurz vorm Verzweifeln. Folgendes Problem:
> Ich habe in einer Tabelle eine Spalte in der verschiedene Daten
> (Datümer, Datume???) stehen und ich will mit einem VBA-Skript die
> entsprechende Zelle rot markieren, wenn der Abstand zwischen dem
> eingetragenen Datum und dem heutigen Datum kleiner 3 Arbeitstage ist
> (so eine Art Vorwarnfunktion).

Warum machst du das nicht mit bedingter Formatierung, anstatt mit
VBA?

Vielleicht geht das mit Bordmitteln besser?

R/\LF

Stephan Groß

unread,

Mar 15, 2002, 2:48:53 AM3/15/02

to

Hallo, Thomas, hallo Ralf,

vielen Dank.
Wie ich vermutet hatte lags doch nur an der Syntax. Aber woher soll
man wissen, dass es in Excel Arbeitstag() und in VBA Workday() heisst.
Das hab ich leider weder in der Online-Hilfe noch in meinen schlauen
Büchern gefunden.

Bedingte Formatierung geht leider nicht, da die Bedingungen etwas
umfangreicher sind (And- und Or-Verknüpfungen).

Nochmals herzlichen Dank und ein schönes Wochenende,
Stephan Groß

Ralf Eichler <Ra...@Eichler.com> wrote in message news:<3C910EEC...@Eichler.com>...

Thomas Ramel

unread,

Mar 15, 2002, 3:52:07 AM3/15/02

to

Grüezi Stephan

Stephan Groß schrieb:

>
> Hallo, Thomas, hallo Ralf,
>
> vielen Dank.
> Wie ich vermutet hatte lags doch nur an der Syntax. Aber woher soll
> man wissen, dass es in Excel Arbeitstag() und in VBA Workday() heisst.
> Das hab ich leider weder in der Online-Hilfe noch in meinen schlauen
> Büchern gefunden.

Mit einem Englisch-Wörterbuch geht's ganz gut ;-)

Seit xl97(?) ist die gesamte VBA-Umgebung in englisch. Vorher gab es
noch 'eingedeutschtes' VBA.