Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
768to772
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
768to772
768to772
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA:Datum subtrahieren

VBA:Datum subtrahieren
30.05.2006 15:49:13
Andi
Hallo zusammen,
habe folgendes Problem:
ich habe Zellen, in denen das aktuelle Datum minus 3 Monate berechnet wird.
Leider zieht excel immer 30 tage ab, anstatt einfach den ganzen Monat zu nehmen.
rngTarget.Offset(0, 0).Value = _
DateSerial(Year(Date), Month(Date) - 3, Day(Date))
Wenn der Monat also 28 oder 31 Tage hat, dann stimmt die berechnung nicht mehr.
Wie muss ich das denn dann schreiben?
Danke für Eure Vorschläge
Gruß
Andi

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

Betreff
Datum
Anwender
Anzeige
AW: VBA:Datum subtrahieren
30.05.2006 16:32:41
serge
Hi Andi
heute minus 3 volle monate wäre den 30.feb [den gibt es nicht 28+2 (von 30-28)den 02.03.06], daher kann deine Formel auch nicht richtig arbeiten.
Serge
AW: VBA:Datum subtrahieren
30.05.2006 17:49:19
Gert
Hallo Andy,
ganz normal ergibt die Formel :
=EDATUM(A2;-3)
den 28.februar 2006. Zelle entsprechend formatieren.
VBA ist nicht mein Bereich.
mfg
Gert
AW: VBA:Datum subtrahieren
30.05.2006 16:33:06
Reinhard
Hi Andi,
probiers mal so
Option Explicit
Sub tt()
Dim n, Abzug
Abzug = CLng(DateValue(Date))
For n = 0 To 2
Abzug = CLng(Abzug) - CLng(länge(Month(Date) - n, Year(Date))) + CLng(länge(Month(Date) - n - 1, Year(Date)))
Next n
MsgBox CDate(Abzug)
End Sub
Function länge(monat, jahr)
länge = CLng(DateValue("1." & monat & "." & jahr))
End Function

Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..
Anzeige
AW: VBA:Datum subtrahieren
30.05.2006 17:26:25
Farnz
Hallo Andi,
Excel zieht nicht einfach 30 Tage ab.
Im Kalender gibt es den 29 bis 31 Februar und für etliche Monate den 31 nicht.
Wenn also das Datum z.B. der 30.05.06 ist dann wären 3 Monate vorher der 30.02.06. Den gibt es aber nicht. Excel zählt dann mit der gewählten Berechnungsformel die überzähligen Tage wieder dazu und errechnet den 02.03.06. als 3-Monatsdifferenz zum 30.05.06.
Du müsstes also in einer zusätzlichen Anweisung (z.B. auch Berücksichtigung von Schaltjahren) festlegen, welchen Tag/Monat Excel nehmen soll, wenn der 3 Monate zurückliegende Monat weniger Tage hat als der aktuelle Monat.
Beispiel: 

Sub Test()
If Day(DateSerial(Year(Date), Month(Date) - 3, Day(Date))) _
< Day(DateSerial(Year(Date), Month(Date), Day(Date))) Then
Select Case Month(Target.Value) - 3
Case 2 'Februar
If Day(DateSerial(Year(Date), Month(Date) - 3, 31)) = 2 Then
Tag = 29
Else
Tag = 28
End If
Case 4, 6, 9, 11 'April, Juni, September, November
Tag = 30
End Select
rngTarget.Offset(0, 0).Value = DateSerial(Year(Date), Month(Date) - 3, Tag)
Else
rngTarget.Offset(0, 0).Value = DateSerial(Year(Date), Month(Date) - 3, Day(Date))
End If
End Sub

Gruß
Franz
Anzeige
AW: VBA:Datum subtrahieren - Code Korrektur
30.05.2006 17:35:42
Franz
Hallo Andi,
im Code war noch ein kleiner Fehler 

Sub Test()
If Day(DateSerial(Year(Date), Month(Date) - 3, Day(Date))) _
< Day(DateSerial(Year(Date), Month(Date), Day(Date))) Then
Select Case Month(Date) - 3
Case 2 'Februar
If Day(DateSerial(Year(Date), Month(Date) - 3, 31)) = 2 Then
Tag = 29
Else
Tag = 28
End If
Case 4, 6, 9, 11 'April, Juni, September, November
Tag = 30
End Select
rngTarget.Offset(0, 0).Value = DateSerial(Year(Date), Month(Date) - 3, Tag)
Else
rngTarget.Offset(0, 0).Value = DateSerial(Year(Date), Month(Date) - 3, Day(Date))
End If
End Sub


mfg
Franz
Anzeige
DANKE!
31.05.2006 10:51:35
Andi
Hi zusammen,
danke für das viele Feedback! Ich werde das erstmal einbauen müssen und sehen, was hier am besten passt!
Gruß
Andi
AW: VBA:Datum subtrahieren
30.05.2006 17:31:53
Peter
Hallo Andi,
hier sind zwei funktionierende Versionen.
Bei der einen wird immer der Ultimo (Monatsletzter) des Datum minus 3 Monat ermittelt, bei dem anderen wird taggenau das Datum minus 3 MOnate ermittelt.
'
' Ultimo eines Datums minus 3 Monate
'

Sub Datum_minus_3_Monat()
Dim lZeile  As Long
Columns("F").NumberFormat = "dd/mm/yyyy"
For lZeile = 2 To Range("A65536").End(xlUp).Row
Range("F" & lZeile).FormulaR1C1 = _
"=MONATSENDE(RC[-5],-3)"
Next lZeile
End Sub

'
' Datum minus Anzahl ganzer Monate
'

Function EDat(d As Date, m As Integer) As Date
EDat = DateSerial(Year(d), Month(d) - m, Day(d))
End Function

'
' Test der Function: Datum minus Anzahl ganzer Monate
'
Public 

Sub MinusTest()
Dim lZeile  As Long
Columns("E").NumberFormat = "dd/mm/yyyy"
For lZeile = 2 To Range("A65536").End(xlUp).Row
Range("E" & lZeile).Value = EDat(Range("A" & lZeile).Value, 3)
Next lZeile
End Sub

Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
Anzeige

63 Forumthreads zu ähnlichen Themen

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
Monat Spalte, Jahres Spalte Datum abziehen
Fred

Hallo,
ich bräuchte mal Hilfe von Euch.
in Zelle A1 steht die Monatszahl (z.B. "5" für Mai)
in Zelle B1 steht die Jahreszahl (z.B. "2009")
darunter in Zelle A2 wieder eine Monatszahl (z.B. "7" für Juli)
und in B2 eine Jahreszahl (z.B. "2004")
nun möchte ich die Differenz...
12.10.2009 15:29:07
Thread-ID: 1109111
3 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
Datumswerte voneinander abziehen | Herbers Excel-Forum
Anko
Ich habe folgendes Problem, um einen Servicelevel zu berechnen müssen wir 2 Datumswerte voneinander abziehen. Soweit so gut... Mein Problem ist
a) Zwei Datum mit dem gleichen wert soll Null ergeben
b) Datum A ist kleiner als Datum B soll die Anzahl der Nettoarbeitstage ergeben (5Tage-Woche...
01.02.2010 14:46:52
Thread-ID: 1134846
6 Beiträge
Datum plus 14 Werktage
Sonnenpeter

Hallo,
das www ist voll mit Nettoarbeitstagen etc.
Ich suche eine Formel die vom Anfangsdatum ausgehend 14 Werktage dazu addiert.
Habt ihr da was vorliegen?
Gruß SP
20.03.2010 15:23:27
Thread-ID: 1147268
5 Beiträge
SpinButton und Zelle Datumsformat ein Jahr weiter
Claudia

Hallo liebe Helfer,
ich versuche schon seit einiger Zeit einen SpinButton (LinkedCell = A1) Max = 2100 Min=2012 so zu formatieren das bei Klick die Zelle A1 um genau 1 Jahr weiterspringt. Die Zelle A1 muss doch als Datumformat (JJJJ) fomatiert sein, oder?
Ich schaffe es einfach nicht un...
29.12.2011 17:47:11
Thread-ID: 1243871
6 Beiträge
Alle Tage von Start bis Ende in Datumsspalten kz.
Start


Hallo zusammen,
noch ein weiteres Problem: Ich bekomme die Formel zum automatischen Kennzeichnen von allen Feldern die in einer angegebenen Zeitspanne liegen einfach nicht hin. Bin mir sicher, dass dieses mittels einer IF funktion möglich sein sollte, aber irgendwo hakt es momentan:
12.11.2012 18:04:03
Thread-ID: 1286407
11 Beiträge
Werte nur berechnen, wenn Datum maximal 1 Tag alt
Jenny

Hallo alle zusammen,
bitte helft mir.
hänge eine Datei an, hoffentlich hat da jemand eine Idee.
In Tabelle1 stehen Benzinpreise an Tankstellen, die aus einer Abfrage im Internet kommen und in Spalte H eine sekundengenaue Angabe, wann diese gemeldet wurde.
Ich suche nun eine neue...
05.08.2013 09:34:19
Thread-ID: 1325705
16 Beiträge

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
5
2
2
3
2
5
4
5
10
15
2
2
5
2
1
2
2
5
7
5
2
2
3
4
3