Thema Datum  Von Nutzer Rating
Antwort
17.05.2016 17:04:02 Yannick
Solved
17.05.2016 17:48:03 Gast78914
NotSolved
18.05.2016 08:08:41 SJ
NotSolved
18.05.2016 12:18:55 Yannick
NotSolved
Rot Homogenisierte Zeitreihe
 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 12:43:17		 Views:
733		 Rating:
     
Antwort:
  Ja
Thema:
Homogenisierte Zeitreihe

Hallo,

dann so:

Option Explicit

Public Sub datumsreihe()
    Dim wks As Worksheet
    Dim strInput As String
    Dim datStart As Date, datEnde As Date
    
    Set wks = Worksheets("Tabelle1")    'Evtl. Anpassen
     
    'strInput = InputBox("Bitte Datum von eingeben.")
    strInput = wks.Range("H2")
     
    If Not IsDate(strInput) Then
        Exit Sub
    Else
        datStart = CDate(strInput)
    End If
     
    'strInput = InputBox("Bitte Datum bis eingeben.")
    strInput = wks.Range("H3")
     
    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)
     
    wks.Columns(7).Clear
     
    For j = 0 To i
        wks.Cells(j + 7, 7) = DateAdd("d", j, 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
18.05.2016 08:08:41 SJ
NotSolved
18.05.2016 12:18:55 Yannick
NotSolved
Rot Homogenisierte Zeitreihe
 18.05.2016 12:43:17 SJ
NotSolved
18.05.2016 13:26:25 Yannick
Solved