Anzahl Tage bis zum Jahresende ermitteln

100016


Dieses Makro ermittelt die Anzahl der Tage ausgehend von einem beliebigen Datum bis zum Jahresende.

In Zelle A1 muss ein Datum im Format TT.MM.JJJJ stehen. Anhand dieses Datums wird die Anzahl der Tage bis zum Jahresende ermittelt. Schaltjahre werden dabei berücksichtigt. Alternativ kann das Makro natürlich angepasst werden, dass das Datum z. B. über eine InputBox erfasst wird oder ähnliches.

 Public Sub anz_tage_bis_jahresende()
 datum = Sheets(1).Range("A1").Value
 jahr = Right(Range("A1"), 4)
 tage = (DateDiff("d", "31.12." & jahr, Range("A1"))) * -1
  
 MsgBox "Es sind noch " & tage & " Tage bis zum 31.12." & jahr
 
 End Sub

 

 

   

Excel-Inside auf FacebookExcel-Live News blogExcel-Inside RSS-FeedMail an Excel-InsideTwitter Account für Excel-InsideMail an Excel-Inside

Office Programmierung

Excel Auftragsprogrammierung

Access Auftragsprogrammierung

Word Auftragsprogrammierung

Outlook Auftragsprogrammierung

 

 

 

 




   
Office Schulungen VBA, Excel, Access
E-Book Formeln und Funktionen Excel 2013
Excel-Inside Newsletter abonnieren
   

Backlink  

ERROR: PAGE_URL belons not to given domain: 573001800