Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
524to528
524to528
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Lezter Tag eines Monats

Forumthread: Lezter Tag eines Monats

Lezter Tag eines Monats
01.12.2004 08:33:41
Der
Hallo,
ich muss über eine VBA funktion den lezten tag eines Monats ermitteln!!
Hat irgendwer ne Ahnung wie?
MFG
Der Wurstfachverkäuferin
Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Lezter Tag eines Monats
xule
Hallo
so gehts:

Sub LetzterTag()
Datum = Date 'das ist das aktuelle ..
'Datum = "02.11.2004"' oder ausgehend von irgend einem Datum
Letzter = DateSerial(Year(Datum), Month(Datum) + 1, 0)
End Sub

AW: Lezter Tag eines Monats
Der
....geil.....
THX
AW: Lezter Tag eines Monats
01.12.2004 09:45:06
Matthias
Hallo,
woher bekomme ich denn das Datum?
Matthias
Anzeige
AW: Lezter Tag eines Monats
Uwe
Hallo
entweder durch
Datum = Date
da wird die interne Rechneruhr ausgelesen
oder z.B. durch Eingabe in eine Zelle und auslesen daraus.
Datum=[A1] (Beispiel für A1)
oder...
Gruß Uwe
AW: Lezter Tag eines Monats
Matthias
Hallo,
bei mir geht das nicht.

Sub LetzterTag()
Datum = Date 'das ist das aktuelle ..
'Datum = "02.11.2004"' oder ausgehend von irgend einem Datum
Letzter = DateSerial(Year(Datum), Month(Datum) + 1, 0)
End Sub

Was mache ich falsch....
Matthais
Anzeige
AW: Lezter Tag eines Monats
WernerB.
Hallo ?,
in diesem Forum bitte mit Real(vor)namen auftreten; siehe dazu bitte auch die "Forums-FAQ"!. Danke!
wie gefällt Dir das?

Function MOLE(Datum As Date) As Integer
Select Case Month(Datum)
Case 1, 3, 5, 7, 8, 10, 12
MOLE = 31
Case 4, 6, 9, 11
MOLE = 30
Case 2
If Year(Datum) Mod 4 = 0 Then
MOLE = 29
Else
MOLE = 28
End If
End Select
End Function

Wenn in Zelle "A1" ein gültiges Datum steht, dann lautet der entsprechende Zelleintrag so:
=MOLE(A1)
Viel Erfolg wünscht
WernerB.
P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !
Anzeige
Tipp
Uwe
Hallo
...
If Year(Datum) Mod 4 = 0 Then
MOLE = 29
...
nicht jede Jahreszahl /4 bei Rest 0 ist eine Schaltjahr..
es gibt Ausnahmen
Rest(Jahr/4)=0 ist Schaltjahr (hast du ja so umgesetzt)
ist aber
Rest(Jahr/100)=0 ist es kein Schaltjahr
und damit es richtig kompliziert wird
ist aber
Rest(Jahr/400)=0 ist es doch wieder ein Schaltjahr
Gruß Uwe
Anzeige
AW: Tipp
WernerB.
Hallo Uwe (xule),
vielen Dank für Deinen Hinweis.
Da setze ich doch lieber Deinen Vorschlag in eine Funktion um (Ausgabe erfolgt als Tag, nicht als Datum):

Function MOLE(Datum As Date) As Byte
MOLE = Day(DateSerial(Year(Datum), Month(Datum) + 1, 0))
End Function

Gruß
WernerB.
Anzeige
;

Forumthreads zu verwandten 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
Makro am letzten Tag des Monats ausführen lassen
Mister

Hallo,
ich möchte ein Makro am letzten Tag des Monats ausführen lassen aber nur wenn es später ist als 19:00 Uhr. Mit folgendem Makro lasse ich das Makro am letzten Tag des Monats ausführen aber wie kriege ich es hin, dass das Makro erst ab 19:00 Uhr ausgeführt wird?
Sub Makro
Work...
29.09.2008 06:49:30
Thread-ID: 1013013
3 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
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
Tage eines Monats suchen und die Summe bilden
Eva-Maria

Hallo zusammen,
Vielleicht hat jemand zeit und kann mir helfen, trotz WM ;o)
Damit ich meine Gutscheine unter kontrolle habe benötige ich die Summe vom Monat Jan, Feb......
Ich trage das Datum ein an dem ich einen Gutschein verkaufe. Die Gutscheine sind für drei Möglichkeiten untert...
21.06.2010 23:28:45
Thread-ID: 1163292
15 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
Bedingte Formatierung, heute einfärben!
Manfred

Hallo Excelfreunde,
ich benötige mal etwas Hilfe bei der bedingten Formatierung.
Derzeit habe ich als Formel folgendes stehen: =WOCHENTAG(A210;2)>5 um das Wochenende farbig darzustellen. Nun möchte ich aber das der aktuelle Tag ebenfalls anders farbig dargestellt werden soll. Wie wür...
22.09.2010 07:52:11
Thread-ID: 1178815
9 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
Tage im Monat ohne Samstag und Sonntag listen
Sabine

Hallo wer kann mir helfen ich würde gerne eine Liste mit Datum erhalten die ohne Samstage und Sontage.
Also z.B. Steht in Zelle A1 01.06.2002 das bruch ich für andere Mappen nun würd ich gerne in Zelle C5-C?? eine liste mit Den Tagen im Monat haben ohne Samsatg und Sonntag und ohne lerzeilen...
17.06.2002 23:41:42
Thread-ID: 129343
18 Beiträge
Anzeige
n-ter Wochentag im Monat
MAlexander

Moin, Forum.Zunächst Formales:
Ich wechsle von "Max" (= Michael AleXander) zu "MAlexander", da es hier zu viele "Mäxe" gibt.Hat sich jemand von Euch schon mal mit dem n-ten Wochentag innerhalb eines Monats beschäftigt ?
Ich meine damit z.B.: 3. Samstag im Oktober 2002 usw.Wäre klasse, wen...
04.07.2002 20:45:06
Thread-ID: 133999
4 Beiträge
Anzeige
n-ter Wochentag im Monat
MAlexander

Moin, Sigi E.Prima und so schnell !! Danke Dir.Ich habe mir Deine Routine mal kopiert und schau sie mir in den
nächsten Tagen an (so 2-4 Tage werden es werden).Mal sehen, wie ich mit Deiner Routine umgehe.
Egal, was ich rauskriege - ich publiziere es auf JEDEN FALL.Mich würde interessiere...
04.07.2002 22:12:04
Thread-ID: 134019
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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