Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
26.04.2024 11:38:46
Acrobat PDF Formularfelder mit Excel ausfüllen
26.04.2024 11:23:04
zählen wenn - aber nur die selektierten Zeilen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
844to848
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
844to848
844to848
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Erster Werktag / Monat

Erster Werktag / Monat
12.02.2007 17:35:49
Marco
Hallo zusammen,
ich habe in der Zeile D3 das Jahr und in D4 den Monat (ausgeschrieben als Wort)
Nun möchte ich gerne, dass er mir
in Zeile A13 den ersten Werktag (Datumswert) des Monats
und in Zeile A14 ff. jeweils das Datum bis zum Monatsende, wobei die Sonntage nicht angegeben werden sollen.
Lieben Dank für Eure Hilfe
Grüsse
Marco

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Erster Werktag / Monat
12.02.2007 18:07:19
Ulf
Hallo Marco
vieleicht so?

Sub Datum()
Dim M As Integer
Dim Monat As String
Dim wd As Integer
Dim i As Date
Dim Z As Integer
Monat = Cells(4, 4)
Select Case Monat
Case "Januar"
M = 1
Case "Februar"
M = 2
Case "März"
M = 3
Case "April"
M = 4
Case "Mai"
M = 5
Case "Juni"
M = 6
Case "Juli"
M = 7
Case "August"
M = 8
Case "September"
M = 9
Case "Oktober"
M = 10
Case "November"
M = 11
Case "Dezember"
M = 12
End Select
wd = Weekday(DateSerial(Cells(3, 4), M, 1), 2)
If wd < 6 Then
Cells(13, 1) = DateSerial(Cells(3, 4), M, 1)
Else
If wd = 6 Then
Cells(13, 1) = DateSerial(Cells(3, 4), M, 1) + 2
Else
Cells(13, 1) = DateSerial(Cells(3, 4), M, 1) + 1
End If
End If
For i = Cells(13, 1) + 1 To DateSerial(Cells(3, 4), M + 1, 0)
If Weekday(i, 2) <> 7 Then
Cells(14 + Z, 1) = i
Z = Z + 1
End If
Next i
End Sub

mfg Ulf
Anzeige
AW: Erster Werktag / Monat
12.02.2007 21:13:17
Daniel
Hallo
hier ne Lösung mit Formeln.
Allerdings muß der Monatsname in D4 als echtes Datum eingestellt werden.
Über die Formatierung kann man es dann ja so hindrehen, daß trotzdem der augeschriebene Monatsname angezeigt wird.
Gruß, Daniel
https://www.herber.de/bbs/user/40369.xls

302 Forumthreads zu ähnlichen Themen

Árbeitstage im Monat
Kurt

Guten Morgen,
habe mal etwas in Google gesucht und bin mit dieser Formel fündig geworden:
=SUMMENPRODUKT(--(WOCHENTAG(ZEILE(INDIREKT(V44&":"&DATUM(JAHR(V44);MONAT(V44)+1;0)));2)<6)) &" Tage"
Wenn in der Zelle "V44" 01.01.2008 drin steht kommt als Ergebnis "X44" = 23...
02.09.2008 11:20:00
Thread-ID: 1006700
17 Beiträge
Anzeige
mit Formel letzter Arbeitstag des nä. Monats erm.
Peter

Guten Tag
Angenommen, in einer Tabelle steht in A1 das Datum 30. September 2009. Gesucht wird in Zelle A2 der letzte Arbeitstag des nächsten Monats. Da der 31. Oktober ein Samstag ist, wäre dies der 30. Oktober.
Kann ich dieses Datum mit einer Formel ermitteln?
Danke für eine Antwor...
03.11.2009 15:04:22
Thread-ID: 1114170
8 Beiträge
Wievielter Sonntag im Monat
Tomi

Hallo,
wie kann ich in einer Tabelle mit fortlaufendem Datum in einer Spalte in einer weiteren Spalte feststellen, der wievielte So (Mo, Di...) es im Monat ist? Bsp: 03.01.2010 ist der 1. Sonntag, 10.01.2010 ist der 2. Sonntag usw.
Tomi
11.11.2009 14:17:45
Thread-ID: 1116211
7 Beiträge
Anzeige
Einzigartige Tage im Monat zählen
Michael

Hallo,
ich komme mit meinem Problem irgendwie nicht weiter, vielleicht hat jemand von euch eine Idee?
Ich habe einer Spalte mit Datumseinträgen, wobei das selbe Datum auch mehrmals eingetragen sein kann und manche Tage auch ausgelassen sind.
Wie kann ich die Anzahl der einzigartigen...
15.03.2010 13:20:44
Thread-ID: 1145900
12 Beiträge
Letzter Tag im Monat
sylvia

Wer kann mir bitte sagen, wie ich den letzten Tag eines Monats ermittle unter Berücksichtigung der Schaltjahre.
30.04.2002 19:44:21
Thread-ID: 117564
4 Beiträge
4. Arbeitstag im Monat
Thomas

Hallo,
im Archiv fand ich leider nichts hilfreiches.
In der Spalte A1-A20 stehen verschiedene Datum(er).
Nun suche nich nach einer Möglichkeit, jeweils zum Monat den 4. Arbeitstag herauszufinden.
( Samstag kein Arbeitstag gerechnet).
Gibt es eine solche Formel?
Danke für...
09.11.2010 23:03:28
Thread-ID: 1185995
4 Beiträge
Alle 5 Tage im monat msgbox
Sascha

Hallo liebe Experten,
Ich brauche wieder mal Eure Hilfe...
Ich suche einen Code, der mir alle 5 Tage im laufenden Monat, sowie am letzten des Monats eine msgbox anzeigt...
Also wenn der Monat 31 Tage hat, dann am 5. , 10., 15., 20., 25., und am 31.
Wenn der Monat aber nur 28 Tag...
20.01.2012 16:24:51
Thread-ID: 1247218
3 Beiträge
Erste Montag in KW1 im Jahr
Andre´

Hallo alle zusammen,
ich suche eine Formel, die mir den ersten Montag in KW1 eines Jahres wiedergibt.
im nachfolgenden Bsp. habe ich manuell im Bereich C3:C7 das Datum eingeben, was errechnet werden soll.
Tabelle1

 ABC2 Erste Montag im JahrErste Montag in KW1 im Ja...
17.02.2012 16:25:12
Thread-ID: 1251201
5 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
16
2
7
6
6
11
3
3
2
4
6
9
17
7
10
3
1
9
3
8
2
5
9
2
3