Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Datum von bis. Wie kann ich die Zwischentage einfügen?
zurück: Brauche dringend Hilfe weiter: Zugriff auf gesch. Datei funkt. mit Excel 2010 nicht mehr Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Mirko010101
Gast


Verfasst am:
22. Okt 2012, 15:19
Rufname:

Datum von bis. Wie kann ich die Zwischentage einfügen? - Datum von bis. Wie kann ich die Zwischentage einfügen?

Nach oben
       Version: Office 2010

Moin Moin,

ich schreibe meine Masterarbeit und brauche Zahlen zur Auswertung.

Gegeben ist immer das Anfangsdatum und das Enddatum.
Die Fragestellung ist: können die Tage daziwschen angezeigt werden?

Beispiel: 02.09.2012 05.09.2012
So hätte ich das danach gerne:

02.09.2012
03.09.2012
04.09.2012
05.09.2012

Viele Grüße
Mirko
Gast



Verfasst am:
23. Okt 2012, 00:12
Rufname:


AW: Datum von bis. Wie kann ich die Zwischentage einfügen? - AW: Datum von bis. Wie kann ich die Zwischentage einfügen?

Nach oben
       Version: Office 2010

Startdatum in Tabelle1:A1 , Zieldatum in Tabelle1:B1
Code:
Sub test()

Dim a As Byte
Dim Datum As Date
Dim Differenz As Byte

a = 1

Do

With Worksheets("Tabelle1")

    Datum = .Range("A1").Value
    Differenz = DateDiff("d", .Range("A1").Value, .Range("B1").Value)
   
    .Cells(a + 1, 1).Value = DateSerial(Year(Datum), Month(Datum), Day(Datum) + a)
   
End With

a = a + 1
Loop Until a > Differenz

End Sub

Oder einfach das Startdatum markieren und mit dem kleinen schwarzen Viereck unten rechts in der Zelle
soweit nach unten ziehen bis das Zieldatum erreicht ist Very Happy .

Gruß Sven.
Mirko010101
Gast


Verfasst am:
23. Okt 2012, 14:50
Rufname:

AW: Datum von bis. Wie kann ich die Zwischentage einfügen? - AW: Datum von bis. Wie kann ich die Zwischentage einfügen?

Nach oben
       Version: Office 2010

Very Happy Danke für die Hilfe!
Das funktioniert schon ganz gut. Aber ich brauch das, da mein Problem etwas größer ist.

Nach dem einen von bis Datum kommt das nächste. Bis zur Zeile 2500.

01.09.2012 - 05.09.2012
12.05.2012 - 20.09.2012
n3
n4
...

Und die Zwischentage sollen inkl. Start und Endtag sollen in Spalte I landen.
Wenn das geht, dann würde mir sehr sehr geholfen sein.
Gast



Verfasst am:
23. Okt 2012, 15:13
Rufname:

AW: Datum von bis. Wie kann ich die Zwischentage einfügen? - AW: Datum von bis. Wie kann ich die Zwischentage einfügen?

Nach oben
       Version: Office 2010

Na dann evtl. so:
Code:
Sub test()

Dim a As Integer
Dim b As Integer

Dim letzteZeile1 As Integer
Dim letzteZeile2 As Integer

Dim Datum As Date
Dim Differenz As Byte



With Worksheets("Tabelle1")

' letzte Zeile in Spalte A ermitteln
letzteZeile1 = .Cells(.Rows.Count, 1).End(xlUp).Row

    ' Durchlauf von Zeile 1 bis letzte Zeile in Spalte A
    For a = 1 To letzteZeile1
   
    b = 0
   
        Do
       
            Datum = .Cells(a, 1).Value
            Differenz = DateDiff("d", .Cells(a, 1).Value, .Cells(a, 2).Value)
           
            ' letzte Zeile in Spalte I ermitteln
            letzteZeile2 = .Cells(.Rows.Count, 9).End(xlUp).Row
           
            ' Datum nacheinander eintragen
            .Cells(letzteZeile2 + 1, 9).Value = DateSerial(Year(Datum), Month(Datum), Day(Datum) + b)
           
       
        b = b + 1
       
        Loop Until b > Differenz
   
    Next

End With

End Sub

Aber auch hier wieder: Startdatum in Tabelle1:A1 , Zieldatum in Tabelle1:B1

Gruß Sven.
Mirko10100101
Gast


Verfasst am:
26. Okt 2012, 12:00
Rufname:


AW: Datum von bis. Wie kann ich die Zwischentage einfügen? - AW: Datum von bis. Wie kann ich die Zwischentage einfügen?

Nach oben
       Version: Office 2010

Danke Sven!

Ich probiere immer gerne selber und dachte ich bekomme das hin. Ich schilder einmal das ganze Problem.


A: Datum Beginn B:Datum Ende C: Wert
01.09.2011 03.092.2011 99
.
.
.
n

das ganze muss ich für ca. 3500 Fälle durchführen (kann ich die Fallzahl später selbst einstellen?)

Am Ende sollte das folgendermaßen aussehen:
D: Datum E:Wert
01.09.2011 99
02.09.2011 99
03.09.2011 99
.
.
n

Viele Grüße
Mirko
Gast



Verfasst am:
26. Okt 2012, 13:21
Rufname:

AW: Datum von bis. Wie kann ich die Zwischentage einfügen? - AW: Datum von bis. Wie kann ich die Zwischentage einfügen?

Nach oben
       Version: Office 2010

Hallo,

also der gepostete Code schreibt Dir doch in Spalte I alle Daten untereinander.
Das Ganze solange bis in Spalte A alle Startdaten durchlaufen sind. So war es doch gewünscht.

Das kannst Du manuell ändern von:
Code:
letzteZeile1 = .Cells(.Rows.Count, 1).End(xlUp).Row
in
Code:
letzteZeile1 = 3500
Komisch, vorher waren es nur 2500 Rolling Eyes .
Wenn man das aber eben ncht genau weiß verwenden man den Rows.Count.

Oder gibt es sonst noch was was nicht funktioniert?
Ich sehe das Dein Beispiel die Spalten D und E befüllt. Ist das jetzt neu? Und woher kommt die 99 in Spalte E?

Code:
Sub test()

Dim a As Integer
Dim b As Integer

Dim letzteZeile1 As Integer
Dim letzteZeile2 As Integer

Dim Datum As Date
Dim Differenz As Byte



With Worksheets("Tabelle1")

' letzte Zeile in Spalte A ermitteln
letzteZeile1 = 3500 '.Cells(.Rows.Count, 1).End(xlUp).Row

    ' Durchlauf von Zeile 1 bis letzte Zeile in Spalte A bzw. bis 3500
    For a = 1 To letzteZeile1
   
    b = 0
   
        Do
       
            Datum = .Cells(a, 1).Value
            Differenz = DateDiff("d", .Cells(a, 1).Value, .Cells(a, 2).Value)
           
            ' letzte Zeile in Spalte I ermitteln
            letzteZeile2 = .Cells(.Rows.Count, 4).End(xlUp).Row
           
            ' Datum nacheinander eintragen
            .Cells(letzteZeile2 + 1, 4).Value = DateSerial(Year(Datum), Month(Datum), Day(Datum) + b)
            .Cells(letzteZeile2 + 1, 5).Value = "99"
       
        b = b + 1
       
        Loop Until b > Differenz
   
    Next

End With

End Sub

Gruß Sven.
Mirko010101
Gast


Verfasst am:
29. Okt 2012, 17:11
Rufname:

AW: Datum von bis. Wie kann ich die Zwischentage einfügen? - AW: Datum von bis. Wie kann ich die Zwischentage einfügen?

Nach oben
       Version: Office 2010

Hi Sven,

ich habe letztesmal 2500 gesagt, da ich dachte ich finde in dem VBA Code, dann diese Zahl und kann die selbst ändern. Jetzt steht da bis "Ende" das verstehe ich.

Das Makro wird ausgeführt bis zur Spalte 3870. Dann kommt der Fehler (die Zeile in Gelb):
Differenz = DateDiff("d", .Cells(a, 1).Value, .Cells(a, 2).Value)

Mit der 99 habe ich schlecht dargestellt. Ich meinte es soll die entsprechende Zahl hinter dem von bis Datum jeweils dahinter eingetragen werden. Die 99 entspricht der Menge Strom die nicht produziert wurde. Meine Masterarbeit geht um den Strommarkt Very Happy

02.09.2011 - 03.09.2011 99
25.01.2011 - 26.01.2011 100


02.09.2011 99
03.09.2011 99
04.09.2011 99
25.01.2011 100
26.01.2011 100

Viele Grüße
Mirko
rogstar
learning by doing


Verfasst am:
29. Okt 2012, 17:40
Rufname:
Wohnort: _Hessen_

AW: Datum von bis. Wie kann ich die Zwischentage einfügen? - AW: Datum von bis. Wie kann ich die Zwischentage einfügen?

Nach oben
       Version: Office 2010

Hallo,
hier mal eine etwas andere Version, die "Datenreihen auffüllen" nutzt.
Code:
Sub test()
    Dim Zelle As Range, rng As Range, Differenz As Integer
    For Each Zelle In Columns(1).SpecialCells(xlCellTypeConstants)
        If IsDate(Zelle) And IsDate(Zelle.Offset(, 1)) Then
            Differenz = DateDiff("d", Zelle, Zelle.Offset(, 1)) + 1
            Set rng = Cells(Rows.Count, 4).End(xlUp).Offset(1, 0)
            rng = Zelle
            rng.Resize(Differenz).DataSeries Rowcol:=xlColumns, Type:=xlChronological, Date:=xlDay, Step:=1, Trend:=False
            rng.Offset(, 1).Resize(Differenz) = Zelle.Offset(, 2)
        End If
    Next Zelle
End Sub

_________________
Gruß, Tobias
Gast



Verfasst am:
29. Okt 2012, 20:31
Rufname:

AW: Datum von bis. Wie kann ich die Zwischentage einfügen? - AW: Datum von bis. Wie kann ich die Zwischentage einfügen?

Nach oben
       Version: Office 2010

Zitat:
Meine Masterarbeit geht um den Strommarkt
Ach, ein Kollege Very Happy

Also ist der Code bei einer Zeile hängen geblieben, wo die Differenz größer 256 Tage ist. Ändere mal ganz oben den Code so ab:
Von Dim Differenz As Byte in Dim Differenz As Integer. Mit Byte darf die Differenz nur bis 256 gehen, mehr macht die Variable nicht mit.
Dazu kannst Du Dich mal in die Deklaration von Variablen einlesen.

Wenn da auch noch der Wert mit dazu muss gehören noch 3 weitere Zeilen rein, hier der kompl. Code dazu:
Code:
Sub test()

Dim a As Integer
Dim b As Integer

Dim letzteZeile1 As Integer
Dim letzteZeile2 As Integer
Dim Wert_aus_Spalte_C As Integer

Dim Datum As Date
Dim Differenz As Byte



With Worksheets("Tabelle1")

' letzte Zeile in Spalte A ermitteln
letzteZeile1 = 3500 '.Cells(.Rows.Count, 1).End(xlUp).Row

    ' Durchlauf von Zeile 1 bis letzte Zeile in Spalte A bzw. bis 3500
    For a = 1 To letzteZeile1
   
    b = 0
   
        Do
       
            Datum = .Cells(a, 1).Value
            Differenz = DateDiff("d", .Cells(a, 1).Value, .Cells(a, 2).Value)
            Wert_aus_Spalte_C = .Cells(a, 3).Value
           
            ' letzte Zeile in Spalte I ermitteln
            letzteZeile2 = .Cells(.Rows.Count, 4).End(xlUp).Row
           
            ' Datum und Wert nacheinander eintragen
            .Cells(letzteZeile2 + 1, 4).Value = DateSerial(Year(Datum), Month(Datum), Day(Datum) + b)
            .Cells(letzteZeile2 + 1, 5).Value = Wert_aus_Spalte_C
       
        b = b + 1
       
        Loop Until b > Differenz
   
    Next

End With

End Sub
Mirko010101
Gast


Verfasst am:
29. Nov 2012, 14:30
Rufname:


AW: Datum von bis. Wie kann ich die Zwischentage einfügen? - AW: Datum von bis. Wie kann ich die Zwischentage einfügen?

Nach oben
       Version: Office 2010

Hallo Sven und Rogster,

vielen Dank für die Antworten. Das Tool von dir Rogster funktioniert super!!! Ich habe das erst heute ausprobiert.

Viele Grüße
Mirko
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Datum u. Uhrzeit per Tastenkombi 4 EmJay 2644 29. März 2005, 12:57
hennes7 Datum u. Uhrzeit per Tastenkombi
Keine neuen Beiträge Excel Formeln: Datum bei 90 Tage Fristüberschreitung einfärben 7 Inge 1807 21. März 2005, 14:14
Inge Datum bei 90 Tage Fristüberschreitung einfärben
Keine neuen Beiträge Excel Formeln: Datum Konvertieren 3 palath 2225 22. Feb 2005, 19:17
Günni Datum Konvertieren
Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten. Excel Formeln: einfügen prozentzeichen hinter zahl 1 traum1954 5670 19. Feb 2005, 01:11
ae einfügen prozentzeichen hinter zahl
Keine neuen Beiträge Excel Formeln: einfügen 5 traum1954 817 18. Feb 2005, 23:38
traum1954 einfügen
Keine neuen Beiträge Excel Formeln: Wert und Datum verknüpfen 3 Helle67 3021 11. Jan 2005, 18:23
Helle67 Wert und Datum verknüpfen
Keine neuen Beiträge Excel Formeln: Bedingte Formatierung, verknüpft mit Datum 2 MichaelP 2643 11. Jan 2005, 10:48
MichaP Bedingte Formatierung, verknüpft mit Datum
Keine neuen Beiträge Excel Formeln: Suche Formel, welche Spalte nur bis zum akt. Datum berechnet 7 Sveny 1609 04. Jan 2005, 21:45
Sveny Suche Formel, welche Spalte nur bis zum akt. Datum berechnet
Keine neuen Beiträge Excel Formeln: Datum soll sich nicht aktualisieren (Excel XP) 1 FrankW 3830 01. Dez 2004, 12:52
ae Datum soll sich nicht aktualisieren (Excel XP)
Keine neuen Beiträge Excel Formeln: Namen mit HLOOKUP (VERWEIS) in ein anderes Sheet einfügen 2 Aloha 917 03. Okt 2004, 08:08
Aloha Namen mit HLOOKUP (VERWEIS) in ein anderes Sheet einfügen
Keine neuen Beiträge Excel Formeln: Bedingte Formatierung auf Datum beziehen ? 8 Gast 2449 29. Sep 2004, 22:53
MichaelP Bedingte Formatierung auf Datum beziehen ?
Keine neuen Beiträge Excel Formeln: Datum vor 1900 7 Petschi 1518 15. Aug 2004, 15:55
Thomas Ramel Datum vor 1900
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Access Tabellen