Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Microsoft Office 2003-2019 => Excel => Thema gestartet von: tosun63 am Dezember 10, 2012, 10:16:16 Vormittag

Titel: Office 2010: fortlaufender Zeit Intervall
Beitrag von: tosun63 am Dezember 10, 2012, 10:16:16 Vormittag
Hallo zusammen, folgendes Problem,  ich bin dabeieine Statistik zu erstellen und würde gerne wissen ob man die Formel heute() auch verwenden kann als "von heute bis. ..." (sowohl in die Zukunft zählende als auch in die Vergangenheit ) schonmal danke im vorraur
Titel: Antw:Office 2010: fortlaufender Zeit Intervall
Beitrag von: Officer am Dezember 10, 2012, 10:20:29 Vormittag
Hi tosun63,

ja, dass ist ganz einfach möglich. Um beispielsweise 2 Tage in die Zukunft zu zählen, kannst Du einfach die folgende Formel verwenden: =HEUTE()+2

Um Tage aus der Vergangenheit zu berechnen, muss die Anzahl der Tage einfach subtrahiert werden, z. B. =HEUTE()-3

Gruß

Officer
Titel: Antw:Office 2010: fortlaufender Zeit Intervall
Beitrag von: tosun63 am Dezember 10, 2012, 11:07:20 Vormittag
hallo officer, danke für die schnelle Antwort aberdas ist leider nicht ganz das was ich brauche  :-\ mir dieser Formel kann ich nur den xten Tag vor oder nach heute zählen aber ich will sagen immer alle Tage zwischen heute und x und zwar ohne die Formel immer umsteln zu müssen.quasi in der Form "heute ()-1 bis heute () -100
Titel: Antw:Office 2010: fortlaufender Zeit Intervall
Beitrag von: Officer am Dezember 10, 2012, 11:25:09 Vormittag
Hallo,

ich habe mal schnell ein VBA-Programm geschrieben, dass die Datumswerte abhängig von den Vorgaben (Startdatum und +/- Tage erzeugt. Der VBA-Code sieht wie folgt aus:

Code: Visual Basic
  1. Sub Datum_eintragen()
  2.  
  3.  
  4. '** Vorgaben
  5. cnt = Abs(ActiveSheet.Range("B4").Value) 'Anzahl Daten
  6. vorz = Sgn(ActiveSheet.Range("B4").Value) 'Vorzeichen auslesen
  7. dat = ActiveSheet.Range("A4").Value 'Startdatum
  8.  
  9. '** Daten löschen
  10. ActiveSheet.Range("A10:A1000").ClearContents
  11.  
  12. '** Erzeugen der Datumswerte und Eintragen in Spalte A ab Zeile 10
  13. For a = 1 To cnt
  14.   If vorz = -1 Then
  15.     ActiveSheet.Cells(a + 9, 1).Value = dat - 1
  16.     dat = ActiveSheet.Cells(a + 9, 1).Value
  17.    
  18.   Else
  19.       ActiveSheet.Cells(a + 9, 1).Value = dat + 1
  20.     dat = ActiveSheet.Cells(a + 9, 1).Value
  21.      
  22.   End If
  23. Next a
  24.  
  25. End Sub
  26.  

Als Anlage habe ich auch die Beispieldatei beigefügt, in der Du das ganz nachvollziehen kannst.

Gruß

Officer
Titel: Antw:Office 2010: fortlaufender Zeit Intervall
Beitrag von: tosun63 am Dezember 10, 2012, 11:57:45 Vormittag
wow, danke  :) kenne mich zwar mit vbas nicht so gut aus,  versuche das aber mal mir zuzuschneidern. schade dass es keine einfache excel funktion hier für gibt. vielen Dank für die Hilfe