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

VBA: Monate addieren \letzten Tag berechnen

Forumthread: VBA: Monate addieren \letzten Tag berechnen

VBA: Monate addieren \letzten Tag berechnen
22.04.2017 21:10:57
jam
Hallo zusammen,
Ich hoffe, ihr könnt mir helfen.
Folgende Anforderung:
Auf das eingegebene Startdatum sollen immer 18 Monate addiert werden.
Das Enddatum muss aber, wenn es nötig wird, immer mit dem letzten Tag des (Vor-)Monats abschliessen.
Beispiel 1:
Startdatum: 01.05.2017
Enddatum: 31.10.2018 UND NICHT 01.11.2018
Beispiel 2:
Startdatum: 02.06.2017
Enddatum: 30.11.2018 UND NICHT 01.12.2018
Mit dem u.g. vba String addiere ich die 18 Monate auf das Startdatum, aber wie muss der Code lauten, damit die 18 Monate, wenn es notwendig wird, auf den letzten Tag des Vormonats berechnet werden und nicht auf den ersten Tag des Folgemonats?
dtNewDate = DateAdd("m", 18, dtOldDate)
Vielen Dank für eure Hilfe\Lösungsansätze.
Gruss
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: VBA: Monate addieren \letzten Tag berechnen
22.04.2017 21:38:59
Luschi
Hallo jam,
dann teste mal diesen Vba-Code 

Sub test1()
dtOldDate = CDate("01.05.2017")
dtNewdate = DateAdd("m", 18, dtOldDate)
Debug.Print dtNewdate
dtNewdate = DateSerial(Year(dtNewdate), Month(dtNewdate), 0)
Debug.Print dtNewdate
dtOldDate = CDate("08.05.2017")
dtNewdate = DateAdd("m", 18, dtOldDate)
Debug.Print dtNewdate
dtNewdate = DateSerial(Year(dtNewdate), Month(dtNewdate), 0)
Debug.Print dtNewdate
End Sub
Gruß von Luschi
aus klein-Paris
Anzeige
AW: VBA: Monate addieren \letzten Tag berechnen
22.04.2017 21:44:51
Werner
Hallo Jam,
zum Testen, dtOldDate steht in Zelle A1
Public Sub aaa()
Dim dtOldDate As Date
Dim dtNewDate As Date
dtOldDate = Range("A1")
dtNewDate = WorksheetFunction.EoMonth(DateAdd("m", 18, dtOldDate), -1)
MsgBox dtNewDate
End Sub
Gruß Werner
Anzeige
AW: VBA: Monate addieren \letzten Tag berechnen
22.04.2017 22:13:15
Gerd
Hallo 
Sub ccc()
Dim dteOld As Date, dteNew As Date, lngMonth As Long
lngMonth = 18
dteOld = CDate("01.05.2017")
dteNew = DateSerial(Year(dteOld), Month(dteOld) + lngMonth, 0)
MsgBox dteOld & vbLf & lngMonth & vbLf & dteNew
End Sub

Gruß Gerd
Anzeige
Antworten-ja, mehrere / Feedback-nein, schade
27.04.2017 09:53:54
Werner

Forumthreads zu verwandten Themen

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
Ausgangsdatum + X Monate
Bertram

Hallo zusammen,
ich stehe heute mal wieder voll auf dem Schlauch, daher sollte mein Level lauten "Excel warum-einfach-wenn's-kompliziert-geht"
Ich möchte von einem Ausgangsdatum 3,6,9 und 12 Monate addieren und diese Monate Xen. Mit folgender Formel geht das. Aber geht das auch kürzer?<...
06.03.2009 10:39:42
Thread-ID: 1057192
7 Beiträge
Wert zu Datum addieren
Günter

Halo Zusammen,
ich habe mal wieder ein Problem, dass sicherlich nicht schwierig ist.
Ich kommen aber nicht drauf.
Ich möchte per VBA zu einem Datum, dass in einer Zelle steht eine anzhal Tage addieren, die in einer anderen Zelle stehen und dies in eine weitere Zelle schreiben.
H...
25.04.2009 11:34:41
Thread-ID: 1071087
5 Beiträge
Anzeige
24 Stunden zu einem Datum hinzuaddieren
Henning

Hallo zusammen,
ich habe schon im Archiv gesucht, aber leider immer noch keine Lösung gefunden. Vielleicht kann mir jemand bei meinem Schichtplan-Problem weiterhelfen.
Wie im Anhang zu sehen, habe ich das Problem, dass ich bei der Addition mit der Funktion ZEIT(X;0;0) Probleme bekomme,...
30.04.2009 12:14:34
Thread-ID: 1072133
3 Beiträge
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
Datum + X Monate
Bastian

Hallo,
ich habe ein kleines Problem und weiss leider nicht die Funktion. Zu einem bestehenden Datum möchte ich gerne x Monate dazurechnen. Wie geht das mit Excel? Bsp.: 15.02.2002 + 1 Monat = 15.03.2002
Habe schon einiges ausprobiert, aber keine Lösung gefunden.Ich hoffe ihr könnt mir he...
24.04.2002 18:14:54
Thread-ID: 116054
2 Beiträge
Anzeige
Datum + 30 Tage
Chris

Hallo,ich hab ein kleines Problem. Ich habe ein Datum z.B. 19.02.2002. Wie kann ich es schaffen, daß Excel dieses Datum nimmt, 30 Tage dazuzählt und mir das Datum+30 Tage ausgiebt.Danke & Gruß
Chris
29.05.2002 10:37:22
Thread-ID: 124493
2 Beiträge
Minuten zu Datum addieren
Donicht

Hallo Excelfreunde,
dieses Forum ist wirklich klasse.Ich habe hier schon viel lernen können.
Jetzt habe ich folgendes Problem:
Ich möchte ein genaues Zieldatum errechnen.
A3= 14.01.2013 plus B3= 1395 Minuten ist Dienstag 15 Januar 6:14 das ist ja auch ok.
=A3+(B3/60/24)
...
24.01.2013 12:10:12
Thread-ID: 1295781
3 Beiträge
Datum + 3Wochen
Snewi

Hallo ich habe ein Datum was ich über =TEXT(RUNDEN(Bericht!C6;);"JJJJMMTT") in Text umwandle! Von diesem Datum brauche ich immer ein zweites Datum was 3 Wochen vom aktuellen in der Zukunft liegt!
Wie mache ich das am einfachsten?
Gruß
04.09.2013 09:15:22
Thread-ID: 1329484
3 Beiträge
VBA Dateien Zusammenführen, werte addieren
Hans

Hallo,
ich habe leider keine Ahnung von VBA Progammierung möchte aber anhand eines kleines Beispiels VBA in der Schule demonstrieren.
Die Ausgangslage:
Ich habe mehrer Excel Dateien mit identischem Tabellenaufbau.
Datei1 DAtei2 Datei3
AA 11 AA 10 AA 10
BB 10 BB 11 BB...
19.06.2014 17:43:12
Thread-ID: 1366569
10 Beiträge
Anzeige
letzter Tag des Monats
Jenny
Hallo,
würd mich über eure Hilfe freuen.
Fällt jemand von euch eine Formel ein, die WAHR ausgibt, wenn das Datum in Spalte C der letzte Tag des Monats, in dem das jeweilige Datum liegt, ist?
DAnke und Gruß
Jenny
07.07.2014 21:03:56
Thread-ID: 1369207
4 Beiträge
Datumsdifferenzen auf Kalendermonate verteilen
Wolfango
Hallo Experten,
ich habe zwei Spalten, jeweils mit Datumswerten (Abwesenheit durch Krankheit "von-bis").
Nun möchte ich ermitteln wieviele Tage davon auf die einzelnen Kalendermonate entfallen (also Krankentage im Jan, im Feb, usw.)
Wie kann dies mit Formeln ermitteln?
Ich habe da...
23.09.2014 17:58:32
Thread-ID: 1383060
5 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Monate addieren und letzten Tag berechnen in Excel VBA

Schritt-für-Schritt-Anleitung

Um in Excel VBA Monate zu einem Datum hinzuzufügen und dabei den letzten Tag des Vormonats zu berücksichtigen, kannst du folgenden Schritten folgen:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
  2. Füge ein neues Modul hinzu, indem du mit der rechten Maustaste auf "VBAProject" klickst und "Einfügen" > "Modul" wählst.
  3. Kopiere und füge den folgenden Code ein:
Sub MonateAddieren()
    Dim dtOldDate As Date
    Dim dtNewDate As Date

    ' Startdatum aus Zelle A1
    dtOldDate = Range("A1").Value

    ' 18 Monate hinzufügen und letzten Tag des Vormonats berechnen
    dtNewDate = WorksheetFunction.EoMonth(DateAdd("m", 18, dtOldDate), -1)

    ' Ergebnis anzeigen
    MsgBox "Das neue Datum ist: " & dtNewDate
End Sub
  1. Schließe den VBA-Editor und kehre zu Excel zurück.
  2. Gib ein Startdatum in Zelle A1 ein.
  3. Führe das Makro "MonateAddieren" aus, um das Enddatum zu berechnen.

Häufige Fehler und Lösungen

  • Fehler: "Typkonflikt" beim Ausführen des Codes.

    • Lösung: Stelle sicher, dass das Datum in Zelle A1 im richtigen Datumsformat eingegeben wurde.

  • Fehler: Das Ergebnis ist ein unerwartetes Datum.

    • Lösung: Überprüfe, ob der EoMonth-Befehl korrekt verwendet wird, um den letzten Tag des Vormonats zu berechnen.

Alternative Methoden

Wenn du keine VBA-Makros verwenden möchtest, kannst du auch Excel-Formeln nutzen:

  1. Verwende die Formel =EOMONTH(A1 + 18, -1), um 18 Monate zu einem Datum in Zelle A1 hinzuzufügen und den letzten Tag des Vormonats zu erhalten.
  2. Du kannst auch die Funktion DATE nutzen, um das Datum zu berechnen, z.B.: 
    =DATE(YEAR(A1), MONTH(A1) + 18, 1) - DAY(DATE(YEAR(A1), MONTH(A1) + 18 + 1, 1))

Praktische Beispiele

Hier sind einige Beispiele, wie du Monate zu einem Datum in Excel addieren kannst:

  • Beispiel 1:

    • Startdatum: 01.05.2017
    • Ergebnis nach 18 Monaten: 31.10.2018

  • Beispiel 2:

    • Startdatum: 02.06.2017
    • Ergebnis nach 18 Monaten: 30.11.2018

Du kannst diese Daten in Zelle A1 eingeben und das VBA-Makro oder die Excel-Formel ausführen, um die Ergebnisse zu erhalten.

Tipps für Profis

  • Verwende vba eomonth, um einfach den letzten Tag des Monats zu berechnen, wenn du mit Datumsberechnungen arbeitest.
  • Wenn du mehrere Monate addieren möchtest, kannst du die Funktion DateAdd in VBA nutzen, um eine flexible Lösung zu schaffen.
  • Achte darauf, dass dein Excel-Dokument im richtigen Datumsformat gespeichert ist, um Komplikationen zu vermeiden.

FAQ: Häufige Fragen

1. Wie kann ich mehr als 18 Monate hinzufügen? Du kannst einfach den Wert in der DateAdd-Funktion ändern, z.B. DateAdd("m", 24, dtOldDate) für 24 Monate.

2. Was passiert, wenn das Startdatum im Februar ist? Das Makro berücksichtigt automatisch die unterschiedlichen Tagesanzahlen der Monate und berechnet das korrekte Enddatum.

Beliebteste Forumthreads (12 Monate)

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