Live-Forum - Die aktuellen Beiträge
Datum
Titel
10.10.2025 15:11:39
Werte aus Zellen in Punktdiagramm, Beschriftung
10.10.2025 11:07:34
"Text in Spalten" ändert die Zahl von 21.1 in 45678
10.10.2025 10:11:05
geöffnete Excel-Datei mit variablen Namen finden
10.10.2025 09:38:53
Spalten aus 2 Tabellenblättern mit Array abgleichen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
528to532
528to532
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datumseingabe - der wievielte Werktag ?

Forumthread: Datumseingabe - der wievielte Werktag ?

Datumseingabe - der wievielte Werktag ?
10.12.2004 18:47:46
Marcus
Hallo XL-Freunde,
ich möchte, dass in B1 ein Datum eingegeben wird.
In Tabelle2 habe ich ein paar Tage aufgelistet, an denen in den USA ein Feiertag ist. Nun möchte ich, dass ein Makro mir den Werktag im aktuellen Monat nennt.
Heute, am 10.12.2004 wäre es der 8. Tag. Samstage, Sonntage und die Feiertage in der Liste sollen vom aktuellen Datum abgezogen werden.
Ich habe schon ein Makro geschrieben, aber das kommt leider nicht ohne normale Excel-Formeln aus. Daher wäre ich sehr dankbar, wenn mir jemand den VBA-Code dafür geben kann.
Vielen Dank !!!
Marcus
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datumseingabe - der wievielte Werktag ?
Ramses
Hallo
bei VBA-Gut solle es kein Problem sein, diese Funktion für dich einzusetzen
Option Explicit

Function myPrivateNetworkDays(myStart As Range, myEnd As Range, Optional freedays As Range) As Long
'by Ramses
'Aufruf erfolgt in Tabelle
'=myPrivateNetworkDays(A1;A2;B1:B10)
'A1 = StartDatum
'A2 = EndDatum
'B1:B10 = Bereich in dem die freien Tage als Datum definiert sind
On Error GoTo myErrorhandler
Dim i As Long, n As Long, DayChk As Boolean
Dim myNetDays As Long, myF As Variant
Dim myC As Range
myNetDays = 0
n = 0
DayChk = False
For i = myStart To myEnd
If Weekday(Format(myStart + n, "dd.mm.yyyy"), vbMonday) < 6 Then
'On Error Resume Next
For Each myC In freedays
If myC.Value = myStart + n Then
DayChk = True
Exit For
End If
Next
Weiter:
Err.Clear
If DayChk = False Then
myNetDays = myNetDays + 1
End If
DayChk = False
End If
n = n + 1
Next i
ErrExit:
myPrivateNetworkDays = myNetDays
Exit Function
myErrorhandler:
Select Case Err.Number
Case 424 'Kein Feiertagsbereich
Resume Weiter
Case Else
MsgBox Err.Number & ": " & Err.Description
Resume ErrExit
End Select
End Function

Gruss Rainer
Anzeige
Vielen Dank Rainer!! Genau das habe ich gebraucht!
Marcus
Danke !!!!
;

Forumthreads zu verwandten Themen

Datum in Kalenderwoche plus Jahreszahl
Karsten

Hi zusammen,
brauch hierbei Hilfe. Und zwar moechte ich gerne wissen, wie ich ein Datum in Kalenderwoche plus Jahreszahl umwandeln kann. Datum in Kalenderwoche ist ja kein Thema. Ich mache das mit dem Analysis ToolPak. Formel: =WEEKNUM(A1,2) Leider reicht mir aber die Wochenzahl nicht aus....
26.09.2008 17:11:00
Thread-ID: 1012711
4 Beiträge
Datum - Zeit - Wochentag alles in einer Zelle ...
Frank

Hi,
also wie man eine Zelle formatiert damit man das Datum und die Uhrzeit dazu (03-Oct-08 10:30) in einer Zelle hat weiss ich. Wie man da nach Angabe des Datums u. der Zeit jetzt aber noch den jeweiligen Wochentag autom. dazu bekommt (Fr. 03-Oct-08 10:30) ... da muss ich mal ins Forum frag...
05.10.2008 08:29:47
Thread-ID: 1014206
2 Beiträge
Summe wenn Datum ein Jahr zurück
Roland

Moin Spezialisten,
ich habe eine Spalte, in der div. Datumangaben enthalten sind, z.B.
11.06.2004
07.03.2005
04.05.2006
16.07.2006
05.02.2006
29.01.2006
25.09.2006
11.12.2007
06.10.2007
10.08.2008
15.12.2008
Nun möchte ausgehend von einem Datu...
27.10.2008 08:57:00
Thread-ID: 1019526
6 Beiträge
Anzeige
Datum/werktage addieren
Rebecca

Hallo,
in einer Zelle steht ein Datum. In der Spalte daneben soll ein Datum stehen, das zwei Werktage weiter ist.
Wie ist die Formel?
Gruss
Rebecca
11.12.2008 15:55:00
Thread-ID: 1032089
6 Beiträge
Anzeige
Zu Datum Wochen hinzuaddieren
Roland

Hi,
ich habe eine Combobox auf einem Formular, die beim start mit dem heutigen Datum gefüllt wird.
Ich würde die Combobox gerne mit Einträgen füllen, wie Wochenweise gehen.
Also wenn man vom heutigen Datum ausgeht, sollte in der Combobox drin stehn:
28.01.2009
04.02.2009
...
28.01.2009 11:47:28
Thread-ID: 1044511
4 Beiträge
Ausgangsdatum + X Monate
Bertram

Hallo zusammen,
ich stehe heute mal wieder voll auf dem Schlauch, daher sollte mein Level lauten "Excel warum-einfach-wenn's-kompliziert-geht"
Ich möchte von einem Ausgangsdatum 3,6,9 und 12 Monate addieren und diese Monate Xen. Mit folgender Formel geht das. Aber geht das auch kürzer?<...
06.03.2009 10:39:42
Thread-ID: 1057192
7 Beiträge
Tagesdatum mit Formel einfügen
reiner

Hallo Leute,
durch gleichzeitige Betätigung der Tasten „STRG“ + „.“ kann das unveränderbare Tagesdatum eingefügt werden. Gibt auch es eine Möglichkeit dieses unveränderbare Tagesdatum anstatt Tastenbetätigung per Formel einzufügen?
mfg
reiner
15.03.2009 20:55:18
Thread-ID: 1060539
13 Beiträge
Wert zu Datum addieren
Günter

Halo Zusammen,
ich habe mal wieder ein Problem, dass sicherlich nicht schwierig ist.
Ich kommen aber nicht drauf.
Ich möchte per VBA zu einem Datum, dass in einer Zelle steht eine anzhal Tage addieren, die in einer anderen Zelle stehen und dies in eine weitere Zelle schreiben.
H...
25.04.2009 11:34:41
Thread-ID: 1071087
5 Beiträge
24 Stunden zu einem Datum hinzuaddieren
Henning

Hallo zusammen,
ich habe schon im Archiv gesucht, aber leider immer noch keine Lösung gefunden. Vielleicht kann mir jemand bei meinem Schichtplan-Problem weiterhelfen.
Wie im Anhang zu sehen, habe ich das Problem, dass ich bei der Addition mit der Funktion ZEIT(X;0;0) Probleme bekomme,...
30.04.2009 12:14:34
Thread-ID: 1072133
3 Beiträge
Datum + 2jahre
Stefan

HEy,
möchte mit diesem Code das Datum was in TextBox1 eingegeben wird. zB. 12.12.2009 um 2Jahre weitergezählen. Aber irgendwie funktioniert es nicht. Hab ich etwas falsch gemacht?
Dim datum As Date
datum = TextBox1.Value
datum = DateAdd("yyyy", 2, datum)
Danke für Tipps...<...
03.09.2009 00:54:38
Thread-ID: 1100212
2 Beiträge
automatische Tag- und Datumsangabe
Elmar

Hallo zusammen,
vielleicht kann mir jemand bei meinem Problem helfen, denn in der Onlinesuche habe ich nicht das gefunden, was mir hilft bzw. ich bin vrmutlich nicht so gut in Excel, dass ich was umbauen könnte.
Ich habe eine Tabelle, in der steht in Zelle H3 der aktuelle Monat drin (z....
17.10.2009 11:57:22
Thread-ID: 1110272
10 Beiträge
automatische Tag- und Datumsangabe
Elmar

Hallo zusammen,
vielleicht kann mir jemand bei meinem Problem helfen, denn in der Onlinesuche habe ich nicht das gefunden, was mir hilft bzw. ich bin vrmutlich nicht so gut in Excel, dass ich was umbauen könnte.
Ich habe eine Tabelle, in der steht in Zelle H3 der aktuelle Monat drin (z....
17.10.2009 11:34:21
Thread-ID: 1110278
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige