Thema Datum  Von Nutzer Rating
Antwort
17.05.2016 17:04:02 Yannick
Solved
17.05.2016 17:48:03 Gast78914
NotSolved
Rot Homogenisierte Zeitreihe
 18.05.2016 08:08:41 SJ
NotSolved
18.05.2016 12:18:55 Yannick
NotSolved
18.05.2016 12:43:17 SJ
NotSolved
18.05.2016 13:26:25 Yannick
Solved

Ansicht des Beitrags:
Von:
SJ		 Datum:
18.05.2016 08:08:41		 Views:
773		 Rating:
     
Antwort:
  Ja
Thema:
Homogenisierte Zeitreihe

Guten Morgen,

Eine Möglichkeit - die erforderlichen EIngaben werden durch Inputboxen abgefragt:

Option Explicit

Public Sub datumsreihe()
    Dim strInput As String
    Dim datStart As Date, datEnde As Date
    
    strInput = InputBox("Bitte Datum von eingeben.")
    
    If Not IsDate(strInput) Then
        Exit Sub
    Else
        datStart = CDate(strInput)
    End If
    
    strInput = InputBox("Bitte Datum bis eingeben.")
    
    If Not IsDate(strInput) Then
        Exit Sub
    Else
        datEnde = CDate(strInput)
    End If
    
    If datEnde < datStart Then
        Exit Sub
    End If
    
    Dim i As Integer, j As Integer
    i = DateDiff("d", datStart, datEnde, vbUseSystemDayOfWeek, vbUseSystem)
    
    Worksheets("Tabelle1").Cells.Clear
    
    For j = 1 To i + 1
        Worksheets("Tabelle1").Cells(j, 1) = DateAdd("d", j - 1, datStart)
    Next j
End Sub

Gruß

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
17.05.2016 17:04:02 Yannick
Solved
17.05.2016 17:48:03 Gast78914
NotSolved
Rot Homogenisierte Zeitreihe
 18.05.2016 08:08:41 SJ
NotSolved
18.05.2016 12:18:55 Yannick
NotSolved
18.05.2016 12:43:17 SJ
NotSolved
18.05.2016 13:26:25 Yannick
Solved