Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1716to1720
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
1716to1720
1716to1720
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA: letzter Freitag im Monat

VBA: letzter Freitag im Monat
21.10.2019 22:36:51
Christian
Grüßt euch,
mich plagt wiedermal ein Problem welches ich nicht gelöst bekomme, mir fehlt es entweder an kreativität oder wissen über vba.
Ich möchte für eine Zeitreihe immer den letzten Freitag im Monat angezeigt bekommen.
Beispiel.
Meine Formel ermittelt 80 Monatswerte.
Beginn ist der Freitag 28.06.2019.
Nun möchte ich für jeden der folgenden 80 Monatswerte in einer neuen Zelle den letzten Freitag im folgemonat angezeigt bekommen.
T0: Freitag 28.06.2019
T1: Freitag 26.07.2019
T2: Freitag 30.08.2019
...... usw. bis
T80:Freitag ......
Da sich die Anzahl der Monatswerte, sowie der Beginn T0 in meinem Modell ständig ändern, möchte ich dies mit VBA verwirklichen.
Ich bräuchte daher eine Idee zum Aufbau des Codes.
Vielen Dank
Christian

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA: letzter Freitag im Monat
22.10.2019 00:38:49
Daniel
HI
wenn in T0 das Datum steht, bekommst du die Werte ausgehend von T0 mit dieser Formel:
=Datum(Jahr(T0);Monat(T0)+2;1)-Wochentag(Datum(Jahr(T0);Monat(T0)+2;1);16)
diese Formel kommt in T1 (also eine Zelle unterhalb von T0) und dann kopierst du die Formel soweit nach unten wie benötigt.
Gruß Daniel
Anzeige
AW: VBA: letzter Freitag im Monat
22.10.2019 11:18:11
Sigi
Hallo Christian,
mit VBA-Funktion wie folgt:
Function Last_FR(Jahr As Long, Monat As Long) As Date
Dim t As Long, s As Long
s = (Monat = 2) And (Day(DateSerial(Jahr, 2, 29)) = 29): s = s * -1
t = Choose(Monat, 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31): t = t + s
Last_FR = DateSerial(Jahr, Monat, t + 1) - Weekday(DateSerial(Jahr, Monat, t - 5))
End Function
Gruß
Sigi
AW: VBA: letzter Freitag im Monat
22.10.2019 14:21:58
Christian
Hi Sigi, Daniel und Bernd
Danke für eure Vorschläge.
@Daniel
ich möchte so wenig wie möglich in den Tabellenblättern arbeiten. Denn dort müsste ich ständig händisch anpassen, was bei meinen Berechnungen und simulationen welche sich wähernd meiner auswertungen viele hundert mal ändern zu aufwendig wird.
Dein Vorschlag ist ja quasi der von Sigi nur nicht in VBA.
@Bernd
Danke für den Link, ich hatte mir auch überlegt immer den letzten Arbeitstag (nicht Freitag) des Monats anzeigen zu lassen, da kommt mir dein Ansatz sehr gelegen.
Perfekt. Danke dafür!
@Sigi
Dein Vorschlag habe ich so bei mir umgesetzt. Funktioniert bisher noch wie gewollt.
Vielen Dank euch dreien für die Hilfe.
Grüße Chris
Anzeige

310 Forumthreads zu ähnlichen Themen

Monat als Text
Christian

Hallo Freunde,
ich hab in Zelle C1 einen Wert von z.B."8" und möchte dafür in Zelle E3 den Text "August" erscheinen lassen. Ebenso wenn z. B. "2" in C1 steht soll "Februar" als Text in E3 erscheinen.
Ist es besser über eine verschachtelte Wenn Formel zu gehen ?
Gruß Christian
08.09.2009 10:19:25
Thread-ID: 1101196
13 Beiträge
Anzeige
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
Excel Formel als Text ausgeben
Karen

Hallo Forum,
leider haben mir die bisherigen Beiträge im Archiv noch nicht so richtig weitergeholfen.
Ich habe eine eigentlich - wahrscheinlich - ziemlich simple Frage:
Ich habe in A1 eine Formel stehen. Diese möchte ich in B1 als Text ausgegeben sehen. Die Zelle B1 soll eine For...
26.10.2011 09:36:18
Thread-ID: 1235437
10 Beiträge
Anzeige
Berechnung als Text ausgeben
Wallt

Guten Abend zusammen!
Ich hätte da nochmal eine, wie ich finde, recht komplexe Frage zu Excel. Ich möchte in Excel eine Berechnung durchführen lassen.
Das Ergebnis dieser Berechnung soll dann automatisch als Text ausgegeben werden.
Da dies etwas schwierig ist zu erklären habe ich m...
22.01.2013 19:49:55
Thread-ID: 1295473
6 Beiträge
Monat als Text
harald

Hallo,
ich habe in Zelle A1 ein Datum stehen. Nun möchte ich in Zelle G1 den Monat in Textform haben, also z. B. Oktober. Mit der Formel MONAT(A1) bekomme ich den Zahlwert (10). Ich habe versucht, die Spalte benutzerdefiniert mit MMMM zu formatieren, aber dann bekomme ich immer Januar (stat...
07.10.2013 11:23:20
Thread-ID: 1333410
8 Beiträge
Datum mit Text aus formel anzeigen lassen
Larcher

Hallo Profis
Ich habe ein kleines Problem
Ich wollte einen Text mit einer Formel verbessern.
zu den angaben
X49 = Gesamtbetrag
V14 = Datum
Überprüft wird X49 auf größer 0,00
wenn dieses WAHR ist soll er mir Text + X49 + Text + (V14+30 Tage) + Text ausgeben
die...
13.01.2014 00:23:33
Thread-ID: 1344941
3 Beiträge
Zellwert als Text ausgeben
Doliwa

Ich möchte einen Serienbrief mit Excel und VBA erstellen. Hierbei habe ich folgende Formel generiert, die soweit auch funktioniert: Sub Hochzaehlen() Dim I As Integer Do While Range("A3").Value "0" Range("H1").Value = Range("H1").Value + 1 I = I + 1 Set Mail_Object = CreateObject("Outlook.Appl...
26.04.2015 19:37:15
Thread-ID: 1423193
12 Beiträge
1. Tag aus "Monat in Klartext" und Jahr ausgeben
Rolf

Hallo Excel Experten,
ich habe ein Problem bei dem ich nicht weiterkomme. Die Recherche hat mich leider auch nicht viel weitergebracht. Vielleicht könnt ihr mir helfen. Excel 2010
Ich möchte in Zelle (B13) jeweils den 1. eines Monats als Datum angezeigt bekommen.
Beispiel 01.01.20...
28.06.2015 18:52:50
Thread-ID: 1433671
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
12
7
3
9
6
5
7
2
11
4
3
2
3
13
5
14
3
13
3
4
3
1
4
1
10