Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 08:56:18
Textbox in Tabellenblatt ohne Bestätigung in Zelle eintragen
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
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

Letzten/Ersten Tag des Monats über KW bestimmen

Letzten/Ersten Tag des Monats über KW bestimmen
08.02.2007 09:33:45
Ralf
Hallo,
so früh am Morgen und ich hab schon eine Frage :o)
Ich möchte über VBA den ersten bzw. letzten Tag eines Monats über die zuvor eingegebene Kalenderwoche bestimmen. Wichtig ist auch, dass bei dem Monatswechsel das richtige Datum ausgegeben wird. Z.B. die 5te KW endet am 4ten Februar, er soll mir aber einmal das datum 01.01.2007 (von mir aus auch als zahl also 37000 irgendwas) und den 31.01.2007 ausgeben. Genau so in der 9ten KW -- 01.02.2007 und 28.02.2007.
Am besten sollen die Zahlen in KWanfang und KWende gespeichert werden, dann kann ich damit weiter arbeiten.
Danke schon mal für die Antwort
MFG Ralle

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

Betreff
Datum
Anwender
Anzeige
AW: Letzten/Ersten Tag des Monats über KW bestimmen
08.02.2007 10:11:33
Beni
Hallo Ralf,
im Hintergrund ist diese Function, ein Beispiel ist angefügt.
Gruss Beni

Function TagAusKW(Jahr As Integer, KW As Integer, Tag As Integer) As Date
Dim t As Long
t = DateSerial(Jahr, 1, 4)
t = t - Weekday(t, 2) + 7 * KW - 7
If (Year(t + 4) = Jahr) Then TagAusKW = t + Tag
End Function

https://www.herber.de/bbs/user/40235.xls
AW: Letzten/Ersten Tag des Monats über KW bestimmen
08.02.2007 10:56:01
Ralf
HHmmm bin entweder doch nicht so fitt in VBA oder irgendwas stimmt hier nicht.
Habe versucht die Vorlage auf mein Programm umzuschreiben, aber irgenwie klappt das nciht so wie ich will.
Wenn mir jemand helfen kann wäre das super.
Ich will nur das ich über eine Inputbox die Kalenderwoche eingebe daraus soll intern in VBA der erste und der letzte und der erste Tag des Monats berechnet werden und diese als datum oder mit umrechnung zur zahl ( CCUR() ) in den Variablen KWanfang und KWende gespeichert werden.
MFG Ralle
Anzeige
AW: Letzten/Ersten Tag des Monats über KW bestimmen
08.02.2007 13:05:32
Beni
Hallo Ralf,
Gruss Beni

Sub Kalenderwoche()
Dim t As Long
Dim TagAusKW As Date
Dim Mldg, Titel, KW
Jahr = 2007
Titel = "Kalenderwoche"
Mldg = "Kalenderwoche eingeben"
KW = InputBox(Mldg, Titel)
Tag = 1
t = DateSerial(Jahr, 1, 4)
t = t - Weekday(t, 2) + 7 * KW - 7
If (Year(t + 4) = Jahr) Then TagAusKW = t + Tag
KWanfang = DateSerial(Year(TagAusKW), Month(TagAusKW), 1)
KWende = DateSerial(Year(TagAusKW), Month(TagAusKW) + 1, 0)
End Sub

306 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

Links zu Excel-Dialogen

InputBox

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