Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 19:08:54
Verbindung von Excel mit maps
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
740to744
740to744
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Definiertes Datum plus 2 Monate (VBA?)

Forumthread: Definiertes Datum plus 2 Monate (VBA?)

Definiertes Datum plus 2 Monate (VBA?)
10.03.2006 09:58:37
Stephan
Hi Leutzen,
habe natürlich schon die Suchfunktion gebraucht aber keine Lösung gefunden...
Problem: Ich habe ein vordefiniertes Datum (RG-Datum) und will darauf 2 Monate addieren (Zahlungsziel), jedoch nicht 60 Tage, da es immer der letzte des Monats sein soll.
Gefunden habe ich das hier: 

Sub DatumEintragen()
Dim rngTarget As Range
Set rngTarget = Range("A1")
rngTarget = Date
rngTarget.Offset(0, 1).Value = _
DateSerial(Year(Date), Month(Date) + 2, Day(Date))
End Sub

Das hat aber mein definiertes Datum zerschoßen...
THX für jede Anregung
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Definiertes Datum plus 2 Monate (VBA?)
10.03.2006 10:03:18
Hans
Hallo Stephan,
wie folgt:

Sub DatumPlus()
MsgBox DateSerial(Year(Date), Month(Date) + 3, 0)
End Sub

gruss hans
AW: Definiertes Datum plus 2 Monate (VBA?)
10.03.2006 10:10:06
Stephan
Hans? :-)
wat mach ich jetzt damit? wie krieg ich den Zellbezug unter ?
Quasi: A1: 28.02.2006 B1: =A1+2Monate
Meine VBA-Kenntnisse tendieren gegen minus unendlich.
Gruß
Stephan
Anzeige
AW: Definiertes Datum plus 2 Monate (VBA?)
10.03.2006 10:12:28
UweD
Hallo
so...
 
 AB
128.02.200630.04.2006
Formeln der Tabelle
B1 : =DATUM(JAHR(A1);MONAT(A1)+3;0)
 

Gruß UweD
(Rückmeldung wäre schön)
Anzeige
AW: Definiertes Datum plus 2 Monate (VBA?) _ DANKE
10.03.2006 10:14:59
Stephan
Uwe,
DIE FIRMA DANKT, DANKE
AW: Definiertes Datum plus 2 Monate (VBA?)
10.03.2006 10:14:49
Hans
Hallo Stephan,
die Frage ist, ob Du eine Excel-Formel oder eine VBA-Lösung suchst. Beim ersteren hat Dir u_ ja die Antwort geliefert. Suchst die die VBA-Lösung, wie ich es verstanden habe, sieht es so aus, wenn Du den Wert in eine bestimmte Zelle eintragen und den Ausgangswert aus einer bestimmten Zelle auslesen möchtest, sieht das eben so aus:

Sub DatumPlus()
Dim dat As Date
dat = Range("A1").Value
Range("A2").Value = DateSerial(Year(dat), Month(dat) + 3, 0)
End Sub

gruss hans
Anzeige
AW: Definiertes Datum plus 2 Monate (VBA?)_DANKE
10.03.2006 10:16:50
Stephan
Hans,
beide Lösungen sind geil.
DANKE
AW: Definiertes Datum plus 2 Monate (VBA?)
10.03.2006 10:05:08
u_
Hallo,
=Datum(Jahr(A1);Monat(A1)+3;0)
Gruß
Geist ist geil!
;

Forumthreads zu verwandten Themen

Datum in Kalenderwoche plus Jahreszahl
Karsten

Hi zusammen,
brauch hierbei Hilfe. Und zwar moechte ich gerne wissen, wie ich ein Datum in Kalenderwoche plus Jahreszahl umwandeln kann. Datum in Kalenderwoche ist ja kein Thema. Ich mache das mit dem Analysis ToolPak. Formel: =WEEKNUM(A1,2) Leider reicht mir aber die Wochenzahl nicht aus....
26.09.2008 17:11:00
Thread-ID: 1012711
4 Beiträge
Summe wenn Datum ein Jahr zurück
Roland

Moin Spezialisten,
ich habe eine Spalte, in der div. Datumangaben enthalten sind, z.B.
11.06.2004
07.03.2005
04.05.2006
16.07.2006
05.02.2006
29.01.2006
25.09.2006
11.12.2007
06.10.2007
10.08.2008
15.12.2008
Nun möchte ausgehend von einem Datu...
27.10.2008 08:57:00
Thread-ID: 1019526
6 Beiträge
Anzeige
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
Anzeige
Tagesdatum mit Formel einfügen
reiner

Hallo Leute,
durch gleichzeitige Betätigung der Tasten „STRG“ + „.“ kann das unveränderbare Tagesdatum eingefügt werden. Gibt auch es eine Möglichkeit dieses unveränderbare Tagesdatum anstatt Tastenbetätigung per Formel einzufügen?
mfg
reiner
15.03.2009 20:55:18
Thread-ID: 1060539
13 Beiträge
Datum + 2jahre
Stefan

HEy,
möchte mit diesem Code das Datum was in TextBox1 eingegeben wird. zB. 12.12.2009 um 2Jahre weitergezählen. Aber irgendwie funktioniert es nicht. Hab ich etwas falsch gemacht?
Dim datum As Date
datum = TextBox1.Value
datum = DateAdd("yyyy", 2, datum)
Danke für Tipps...<...
03.09.2009 00:54:38
Thread-ID: 1100212
2 Beiträge
Enddatum eines Monats bestimmen? (28/29/30/31)
Tim

Hallo,
gibt es in VBA eine Möglichkeit dass Enddatum eines Monats zu bestimmen? Also ich sag ihm Juli und er gibt mir 31 zurück ? Ich könnte auch eine case-anweisung bauen aber vielleicht kann VBA das ja auch schon..
04.11.2009 20:40:00
Thread-ID: 1114589
5 Beiträge
Aus Monats und Jahreszahlen ein Datum erzeugen.
Josef_T

Guten Abend zusammen.
Habe in C1 eine zweistellige Monatszahl und in D1 eine vierstellige Jahreszahl.
zB. so: in C1 steht 08 (August)und in D1steht 2010. Der Monat und das
Jahr wird händig eingetragen. Nun möchte ich, dass in B1 aus den Daten ein Datum erstellt wird,
dass immer...
18.12.2009 21:37:54
Thread-ID: 1124989
4 Beiträge
Anzeige
Jahr anpassen in einer Datumsreihe
edie

Hallo zusammen,
habe bereits ein Problem das ich nicht ohne Hilfe lösen kann.
Eine Datumsreihe, mit leeren Zeilen und nach unten variabel lang, in der Spalte A
soll beim eingeben eines Jahres in Zelle D1 das Jahr übernehmen.
Im Beispiel sollte statt 2009 dann 2010 stehen.
...
08.01.2010 22:49:42
Thread-ID: 1128411
3 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
Textbox Datum plus Jahr
Georg

Hallo,
ich gebe in die Textbox1 ein Datum ein und in der Textbox2 einen Jahreswert, z.B. 2. Dann soll in der Textbox3 das neue Datum erscheinen.
Beispiel
TB1 = 15.05.2002
TB2 = 2
TB3 = 14.05.2004Bei einer Addition kommt nur 17.05.2002 raus. Was muss ich ändern?Kann mir jemand wei...
15.05.2002 10:04:46
Thread-ID: 120946
7 Beiträge
aktueles datum +20 Tage
Josi

Nochmal ichIn zelle a1 steht das aktuelle Tagesdatum und in Zelle B1 möchte ich das aktuelle datum + 20 Tage stehen haben.
ich habs versucht mit
= Datum(Jahr(A1);Monat(a1);Tag(a1)+20)
dann addiert er mir zwar die Tage übersieht aber den Monatsübergang er brachte mir als ergebnis 16.05....
27.05.2002 11:54:47
Thread-ID: 123898
3 Beiträge
Anzeige
Datum+Benutzerdefinierte Zelle in TEXT umwandeln
TommiH

Hallo,
ich habe folgendes Problem, ich habe eine Excel-Tabelle mit rund 200 Spalten von denen 3-4 mit dem Format Datum oder Benutzerdefiniert (hh:ss - also Zeitinformation) formatiert und auch entsprechend gefüllt sind. Der Rest sind Zahlen oder Text-Zellen-Formate.
Da ich das Ganze in...
23.05.2011 12:15:42
Thread-ID: 1215599
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Datum plus 2 Monate in Excel mit VBA und Formeln

Schritt-für-Schritt-Anleitung

  1. Öffne Excel und erstelle eine neue Arbeitsmappe oder öffne eine bestehende.

  2. Definiere dein vordefiniertes Datum in Zelle A1 (z.B. 28.02.2006).

  3. Nutze die folgende Formel, um 2 Monate zu deinem Datum hinzuzufügen. Trage sie in Zelle B1 ein:

    =DATUM(JAHR(A1); MONAT(A1) + 2; 0)

    Diese Formel gibt dir den letzten Tag des Monats zurück, der 2 Monate nach dem Datum in A1 liegt.

  4. Alternativ kannst du VBA verwenden. Öffne den VBA-Editor mit ALT + F11 und füge ein neues Modul hinzu. Nutze den folgenden Code:

    Sub DatumPlus()
   Dim dat As Date
   dat = Range("A1").Value
   Range("B1").Value = DateSerial(Year(dat), Month(dat) + 2, 0)
End Sub

  5. Führe das VBA-Skript aus, um das Ergebnis in Zelle B1 zu sehen.

Häufige Fehler und Lösungen

  • Fehler: "Typen sind nicht kompatibel"

    • Stelle sicher, dass das Datum in A1 als Datum formatiert ist. Überprüfe dies unter „Zellen formatieren“.

  • Fehler: Unerwartete Ergebnisse

    • Überprüfe die Formel oder den VBA-Code auf Tippfehler. Achte darauf, dass du die richtige Anzahl an Monaten hinzufügst oder subtrahierst.

Alternative Methoden

  • Excel-Funktionen: Neben DATUM kannst du auch die Funktion EDATUM verwenden, um ein Datum um Monate zu verschieben: 
    =EDATUM(A1; 2)
  • Manuelles Hinzufügen: Wenn du nur 1 Monat addieren möchtest, verwende die Formel: 
    =A1 + 30  ' Dies ist jedoch weniger genau

Praktische Beispiele

  1. Beispiel für 6 Monate hinzufügen: In Zelle B1:

    =DATUM(JAHR(A1); MONAT(A1) + 6; 0)

  2. VBA für 3 Monate:

    Sub DatumPlusDreiMonate()
   Dim dat As Date
   dat = Range("A1").Value
   Range("B1").Value = DateSerial(Year(dat), Month(dat) + 3, 0)
End Sub

Tipps für Profis

  • Nutze die Formatierung von Zellen, um das Datum in verschiedenen Formaten anzuzeigen.
  • Erstelle benutzerdefinierte Funktionen in VBA, um komplexere Datumsberechnungen durchzuführen.
  • Experimentiere mit den Excel-Funktionen HEUTE oder JETZT, um dynamisch mit aktuellen Daten zu arbeiten.

FAQ: Häufige Fragen

1. Wie kann ich ein Datum um 1 Jahr erhöhen? Verwende die Formel:

=DATUM(JAHR(A1) + 1; MONAT(A1); TAG(A1))

2. Was mache ich, wenn ich mehrere Monate hinzufügen möchte? Nutze MONAT(A1) + x, wobei x die Anzahl der Monate ist, die du hinzufügen möchtest.

3. Kann ich auch Tage addieren? Ja, benutze einfach die Formel:

=A1 + 14  ' Für 14 Tage hinzufügen

4. Wie kann ich ein Datum um 2 Monate minus 1 Tag ändern? Verwende:

=DATUM(JAHR(A1); MONAT(A1) + 2; TAG(A1) - 1)

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige