Datumsberechnung ergänzen

Sub Datum2() 'berechnet die Differenz zwischen Datum in Spalte F und HEUTE in Tagen Dim rng As Range Set rng = Range("Q2").Resize(Range("F" & Rows.Count).End(xlUp).Row, 1) rng.Formula = "=today()-F2" rng.Value = rng.Value rng.NumberFormat = "General" End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Sub Datum2() 'berechnet die Differenz zwischen Datum in Spalte F und HEUTE in Tagen Dim rng As Range Set rng = Range("Q2").Resize(Range("F" & Rows.Count).End(xlUp).Row, 1) rng.Formula = "=today()-F2" rng.Value = rng.Value rng.NumberFormat = "General" ' Datum in Spalte E zu Grunde legt (Format: 16.11.2008) ' und mir daraus nur die Jahreszahl in Spalte P einträgt Cells(rng.Row, "P") = Format(CDate(Cells(rng.Row, "E")), "yyyy") ' wenn er das Datum, welches in Spalte F steht mit 180 Tagen hochrechnet ' und das Datum dann in Spalte R einträgt Cells(rng.Row, "R") = CDate(Cells(rng.Row, "F")) + 180 End Sub

Option Explicit Sub Datum2() 'berechnet die Differenz zwischen Datum in Spalte F und HEUTE in Tagen Dim rng As Range Set rng = Range("Q2").Resize(Range("F" & Rows.Count).End(xlUp).Row, 1) rng.Formula = "=today()-F2" rng.Value = rng.Value rng.NumberFormat = "General" rng.Offset(0, -1).Formula = "=YEAR(RC[-11])" rng.Offset(0, -1).Value = rng.Offset(0, -1).Value rng.Offset(0, 1).Formula = "=RC[-12]+180" rng.Offset(0, 1).Value = rng.Offset(0, 1).Value End Sub

Hallo Tino,
erneut Danke für die schnelle Rückmeldung; Der Code läuft grundsätzlich (gut), aber ich komme noch nicht mit den Formaten klar. In Spalte Q sollte das Format Zahl, ohne Nachkommastellen sein, in Spalte R Datum "dd.mm.yyyy" (wenn das für das Format 16.11.2008 steht). VBA bringt da verschiedene Formate, zumindest im Datum zustande. Schreibe ich unter den Code z.B das Format "dd.mm.yyyy", dann erscheint in Spalte Q die Zahl mit 1900...; Können an irgendeiner Stelle in dem Code die jeweiligen Formate bestimmt werden? - In der letzten freien Zeile wird offensichtlich die Gesamtzahl zusammengerechnet, ließe sich das evtl. vermeiden? - Danke schon jetzt wieder für Deine erneute Rückmeldung.
Gruß - Wolfgang

Hallo,
ok. noch ein Versuch

Option Explicit


Sub Datum2()
'berechnet die Differenz zwischen Datum in Spalte F und HEUTE in Tagen 
    Dim rng As Range
    Set rng = Range("Q2").Resize(Range("F" & Rows.Count).End(xlUp).Row, 1)
    rng.Formula = "=today()-F2"
    rng.Value = rng.Value
    rng.NumberFormat = "General"
    
'############################################################ 
'    Datum in Spalte E zu Grunde legt (Format: 16.11.2008)  # 
'    und mir daraus nur die Jahreszahl in Spalte P einträgt # 
'############################################################ 
    'Jahr aus Spalte E in Spalte P 
    rng.Offset(0, -1).Formula = "=YEAR(RC[-11])"
    'Formel in Spalte P durch Werte ersetzen 
    rng.Offset(0, -1).Value = rng.Offset(0, -1).Value
    'Zellformat auf Standart setzen 
    rng.Offset(0, -1).NumberFormat = "General"
    
'############################################################################ 
'    wenn er das Datum, welches in Spalte F steht mit 180 Tagen hochrechnet # 
'    und das Datum dann in Spalte R einträgt                                # 
'############################################################################ 

    'zu dem Datum aus Spalte F 180 dazurechnen und in Spalte R eintragen 
    rng.Offset(0, 1).Formula = "=RC[-12]+180"
    'Formel in Spalte R durch Werte ersetzen 
    rng.Offset(0, 1).Value = rng.Offset(0, 1).Value
End Sub

Gruß Tino

Beliebteste Forumthreads (12 Monate)

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread