Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
25.04.2024 18:22:55
Zeilen mit bestimmtem Datum in andere Mappe übertragen
25.04.2024 18:14:45
VBA - Excell - Kopie und "Diebstahl" Schützen
25.04.2024 17:49:39
Bedingte Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
528to532
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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 !!!!

246 Forumthreads zu ähnlichen Themen

Geburtsdatum plus Jahre
Markus

Hallo zusammen, ich habe ein Problem mit einer Tabelle.
Ich habe eine Spalte in der die Geburtstagen eingetragen sind.
Ich möchte nun für bestimmte Jahrgäne eine bestimmte Anzahl von Jahren hinzufügen.
Z.B.: Jahrgang 1952 plus 65 Jahre, 1953 plus 65 Jahr und 2 Monate, Jahrgang 1962...
04.09.2008 21:01:04
Thread-ID: 1007517
5 Beiträge
Anzeige
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
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
Wenn Zahl Dann Datum + 1
Dominik

Hallo zusammen,
folgendes Problem:
Ich habe 2 Spalten - SpalteA (Inhalt: Julianischer Kalender bzw. Zahlen von 100 bis 113)
SpalteB (Inhalt: soll mit einem Datum gefüllt werden)
Nun in Spalte A wechseln die Zahlen nicht von Zeile zu Zeile, sondern es kommt vor dass die Zahl 100...
06.02.2009 12:08:00
Thread-ID: 1047706
9 Beiträge
Summewenn-nach Tages Datum addieren
Becker

Hallo zusammen,
Ich habe eine Tabelle in der ich nach Datum addieren möchte.
Ab A3 habe ich Datum der Benutzerdefieniert ist (Format; ###.#00".01.2009") bis A800
Ab E3 bis E800 sind Geldbeiträge in Euro (Format; Währung)
In Spalte K habe ich ein Kalender so aufgebaut;
-K3 ha...
10.02.2009 16:54:00
Thread-ID: 1049215
3 Beiträge
Datum Minus 5Jahre in VBA
Modolo

Hallo Zusammen
Ich arbeite innerhalb eines Makros mit Filtern, ich bräuchte jetzt noch eine Lösung wie ich dort das aktuelle Datum minus 5 Jahre eingebe.
Hat da Jemand eine Lösung für mich?
Danke
Modolo
26.02.2009 13:14:16
Thread-ID: 1054345
10 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
3
1
5
1
5
3
8
2
9
6
12
17
4
2
1
9
2
3
3
2
4
3
21
1