Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1644to1648
1644to1648
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tage zwischen zwei Datums

Forumthread: Tage zwischen zwei Datums

Tage zwischen zwei Datums
13.09.2018 11:46:33
Simone
Hallo Zusammen,
ich habe folgendes Problem:
In Spalte A steht in jeder Zeile ein Zeitraum:
18.12.17 - 05.01.18
ich bräuchte es jetzt so untereinander stehend, er müsste also zeilen einfügen:
18.12.2017
19.12.2017
20.12.2017
21.12.2017
22.12.2017
23.12.2017
24.12.2017
25.12.2017
26.12.2017
27.12.2017
28.12.2017
29.12.2017
30.12.2017
31.12.2017
01.01.2018
02.01.2018
03.01.2018
04.01.2018
05.01.2018
darunter kommt dann nämlich schon der nächste Zeitraum.
Kann mir bei dem komplizieren Problem jemand weiterhelfen?
Lieben Dank im Voraus!
Grüße, Simone
Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tage zwischen zwei Datums
13.09.2018 12:54:25
Bernd
Hallo Simone,
schau mal hier... https://support.office.com/de-de/article/datedif-funktion-25dba1a4-2812-480b-84dd-8b32a451b35c
Gruß
Bernd
AW: Tage zwischen zwei Datums
13.09.2018 12:55:05
fcs
Hallo Simone,
hier mein Vorschlag.
Gruß
Franz 

Sub Datum_von_bis_aufloesen()
Dim wks As Worksheet
Dim Zeile As Long, Zeile_L As Long
Dim strDatum_von_bis As String, Datum1 As Date, Datum2 As Date, Datum As Date
Set wks = ActiveSheet
Application.ScreenUpdating = False
With wks
Zeile_L = .Cells(.Rows.Count, 1).End(xlUp).Row
For Zeile = Zeile_L To 2 Step -1 '2 = 1. Zeile mit von-bis-Datum - ggf. anpassen
strDatum_von_bis = .Cells(Zeile, 1).Text
Datum1 = CDate(Trim(Left(strDatum_von_bis, InStr(1, strDatum_von_bis, "-") - 1)))
Datum2 = CDate(Trim(Mid(strDatum_von_bis, InStr(1, strDatum_von_bis, "-") + 1)))
For Datum = Datum2 To Datum1 + 1 Step -1
.Cells(Zeile + 1, 1).EntireRow.Insert
.Cells(Zeile + 1, 1).Value = Datum
Next
.Cells(Zeile, 1).Value = Datum1
Next
End With
Application.ScreenUpdating = True
End Sub

Anzeige
AW: Tage zwischen zwei Datums
13.09.2018 13:01:24
UweD
Hallo Simone
auch noch eine Lösung
Sub datum_ergänzen()
    Dim LR As Long, i As Long, j As Long, Arr, Z As Long
    
    LR = Cells(Rows.Count, "A").End(xlUp).Row 'letzte Zeile der Spalte 
    Columns("b").ClearContents
    
    For i = 1 To LR
        Arr = Split(Cells(i, 1), " - ")
        For j = CDate(Arr(0)) To CDate(Arr(1))
            Z = Z + 1
            Cells(Z, 2) = CDate(j)
        Next
    Next
    
    Columns("A").Delete xlLeft
    
    
End Sub

LG UweD
Anzeige
AW: Tage zwischen zwei Datums
13.09.2018 16:11:18
Günther
Moin Simone,
alle Tage zwischen 2 kalendarischen Daten kannst du auch ohne VBA ausfüllen lassen, wenn auch mit 1 (komplexen) Formel in der Abfragesprache M in Power Query.
Gruß
Günther
AW: Tage zwischen zwei Datums
13.09.2018 16:34:45
Simone
Hallo,
vielen lieben Dank für die Antworten, das ist echt super das man hier unterstützt wird!
Leider bekomm ich es leider trotzdem nicht gebacken :(
Vielleicht hilft eine Beispieldatei?
https://www.herber.de/bbs/user/123930.xlsx
Lieben Dank nochmal!
Anzeige
AW: Tage zwischen zwei Datums
13.09.2018 16:50:33
UweD
Dann so
Modul1 
Option Explicit 
 
Sub datum_ergänzen() 
    Dim LR As Long, i As Long, j As Long, Arr, Z As Long 
     
    LR = Cells(Rows.Count, "A").End(xlUp).Row 'letzte Zeile der Spalte 
    Columns("B").ClearContents 
     
    Z = 1 
    For i = 2 To LR 
        If InStr(Cells(i, 1), " - ") = 0 Then 
            Z = Z + 1 
            Cells(Z, 2) = CDate(Cells(i, 1)) 
        Else 
            Arr = Split(Cells(i, 1), " - ") 
            For j = CDate(Arr(0)) To CDate(Arr(1)) 
                Z = Z + 1 
                Cells(Z, 2) = CDate(j) 
            Next 
        End If 
    Next 
    Columns("A").Delete xlLeft 
     
     
End Sub
LG UweD
Anzeige
AW: Tage zwischen zwei Datums
13.09.2018 22:44:08
fcs
Hallo Simone,
ich hab mein Makro an deine Beispieldatei angepasst, so dass Zeilen, die keinen Bindestrich enthalten übersprungen werden.
Gruß
Franz
Sub Datum_von_bis_aufloesen()
Dim wks As Worksheet
Dim Zeile As Long, Zeile_L As Long
Dim strDatum_von_bis As String, Datum1 As Date, Datum2 As Date, Datum As Date
Set wks = ActiveSheet
Application.ScreenUpdating = False
With wks
Zeile_L = .Cells(.Rows.Count, 1).End(xlUp).Row
For Zeile = Zeile_L To 2 Step -1 '2 = 1. Zeile mit von-bis-Datum - ggf. anpassen
strDatum_von_bis = .Cells(Zeile, 1).Text
If InStr(strDatum_von_bis, "-") > 0 Then
If IsDate(Trim(Left(strDatum_von_bis, InStr(1, strDatum_von_bis, "-") - 1))) And _
IsDate(Trim(Mid(strDatum_von_bis, InStr(1, strDatum_von_bis, "-") + 1))) Then
Datum1 = CDate(Trim(Left(strDatum_von_bis, InStr(1, strDatum_von_bis, "-") - 1)))
Datum2 = CDate(Trim(Mid(strDatum_von_bis, InStr(1, strDatum_von_bis, "-") + 1)))
For Datum = Datum2 To Datum1 + 1 Step -1
.Cells(Zeile + 1, 1).EntireRow.Insert
.Cells(Zeile + 1, 1).Value = Datum
Next
.Cells(Zeile, 1).Value = Datum1
End If
End If
Next
End With
Application.ScreenUpdating = True
End Sub

Anzeige
AW: Tage zwischen zwei Datums
14.09.2018 07:35:21
Simone
Hallo Franz,
Du bist ja Hammer, kümmerst dich sooo spät noch um die Lösung von meinem Problem!
Tausend Dank, das ist genau das was ich gesucht habe!
Wünsche dir ein schönes Wochenende!
Liebe Grüße, Simone
AW: Tage zwischen zwei Datums
13.09.2018 16:37:35
Simone
Danke Günther, aber Power Query haben wir nicht und darf auch leider nichts installieren
Anzeige
;

Forumthreads zu verwandten Themen

Summe wenn Datum ein Jahr zurück
Roland

Moin Spezialisten,
ich habe eine Spalte, in der div. Datumangaben enthalten sind, z.B.
11.06.2004
07.03.2005
04.05.2006
16.07.2006
05.02.2006
29.01.2006
25.09.2006
11.12.2007
06.10.2007
10.08.2008
15.12.2008
Nun möchte ausgehend von einem Datu...
27.10.2008 08:57:00
Thread-ID: 1019526
6 Beiträge
Wenn ijn Spalte Datum von Jänner dann Werte zählen
Jänner

Hallo!
Ich habe in der Spalte A ab der Zeile 3 Datumwerte aus den Wochenenden und den Feiertagen stehen.
In der spalte G, H, I stehen nun Werte.
Ich möchte nun alle Werte in Abhängigkeit des Datums zusammenzählen.
Ist in der Spalte A das Jänner Datum vorhanden dann sollen die We...
07.01.2009 08:42:00
Thread-ID: 1037440
4 Beiträge
Anzeige
SUMMEWENN Datum und Monate
Dave

Hi Leute
Kann mir vielleicht bei folgendem Problem jemand helfen?
Ich habe eine Spalte A:A mit Datumsfolgen wie: 1.1.07; 1.2.07; 1.3.07; 1.4.07; usw. auf der zweiten Spalte B:B habe ich dann Werte z.B. 10; 20; 30; 10; usw.
Ich möchte nun einen Monat eingeben, z.B. 1.5.08 und dann mö...
05.02.2009 18:55:02
Thread-ID: 1047471
6 Beiträge
Anzeige
wenn datum, dann datum
Jan

hallo zusammen
ich habe eine kleine frage..
ich möchte, das wenn in B2 ein Datum steht (z.b. 31.01.2009), dass dann Excel in A2 dieses Datum schreibt, ansonsten soll es nichts eintragen. bin nicht so der excel-profi und wäre für jede hilfe dankbar!
mir fällt momentan nur das ein:...
16.03.2009 15:10:12
Thread-ID: 1060776
3 Beiträge
WENN,DANN,SUMME
Castor-Pollux

Hallo,
ich habe mal wieder ein Problem.
Was ist an dieser Formel falsch: =WENN(H23>"40:00";(H23-"40:00");"")
Hintergrund:
Ich habe eine Tabelle, in der ich meine Arbeitsstunden berechne.
Wenn ich über 40 Stunden kommen, soll mit der Formel nur die Überstunden berechnet we...
27.03.2009 09:55:37
Thread-ID: 1064503
9 Beiträge
Zahlen zwischen zwei Datumsangabe addieren
Oskar

Hallo
Hier ist das Modell:
In den ersten 30 Zeilen sind die Datumsangaben, wann Feiertag ist
Auf Zeile 3 sind die Prozent, wieveil an Werkstagen ev. nicht gearbeitet wird.
In den Spalten H bis N ist die Berechnung, dass Sonntage übersrpungen werden, dh. dass die Arbeit um diese...
11.05.2009 17:55:29
Thread-ID: 1074426
3 Beiträge
Summen über ein Array nur wenn Datum im Zeitraum
Leif

Hallo Gemeinde,
ich habe in Excel eine Aktivitätenliste gebaut die ich gerne auswerten möchte:
Sheet1:
- Neben der eigentlichen Aktivität in Spalte A stehen in Spalte B die Namen der Mitarbeiter (mit "," von einander getrenn) die daran arbeiten sollen. Der Name der Spalte ist "ResNa...
10.07.2009 08:44:17
Thread-ID: 1087264
2 Beiträge
Summe Wenn dann Summe
Werner

Hallo Ihr Excel-Freunde
Habe in Zelle F37 folgende Formel stehen:
=WENN(E41>G40;E41-I40;WENN(E41>G41;E41-I41;WENN(E41>H40;E41-J40;E41-E40)))
~f~
Formel funktioniert auch, aber ich möchte nun eine Abfrage der Summe eingeben bei der Das Wort ERROR erscheinen soll wenn de...
03.02.2010 20:55:53
Thread-ID: 1135581
3 Beiträge
Anzeige
Tage zwischen zwei Datümern auswerten
Reinhard

Hallo Wissende,
in A ist der Starttermin, in C der Endtermin. Beide Spalten benutzerdefiniert so formatiert: TTT, TT.MM.JJJJ
Es können da ja 0-X Tage dazwischenliegen, diese Zahl der dazwischenliegenden Tage möchte ich ermitteln.
Mit Datediff-1 erhalte ich diese Zahl. Diese will ich...
05.03.2010 17:05:03
Thread-ID: 1143798
13 Beiträge
wenn Datum dann kopie
Sascha

Hallo Forum
schon wieder eine frage in meiner Exceldatei hab ich Tabellen
Wenn in Tabelle1 ein Datum gleich ist mit dem Datum in Tabelle 2
dann soll er die komplette Zelle von Tabelle1 und Tabelle2 kopieren und in Tabelle 3 einfügen.
Gruss Sascha
07.03.2010 22:09:55
Thread-ID: 1144205
12 Beiträge
Stundenwert zwischen zwei Datumsangaben m. Uhrzeit
dirk

Guten Tag,
ich habe folgende Aufgabe zu lösen. Ich sollte die Stunden zwischen zwei Datumsangaben (TT.MM.JJJJ hh:mm:ss) in einer großen Tabelle errechnen.
Beispiel:Wieviel Stunden,Minuten,Sekunden (hh:mm:ss) liegen zwischen den beiden Werten 12.04.2010 14:00:00 und 14.05.2010 09:13:39....
14.07.2010 14:59:25
Thread-ID: 1167123
5 Beiträge
Summewenn, zwei Datenbereiche, zwei Bedingungen
Tobi

Hallo,
bislang habe ich das Ergebnis manuell ermittelt und in die Zellen eingetragen. Mein Problem sieht folgendermaßen aus:
Ich möchte eine Raumliste auf zwei Bedingungen hin untersuchen. Erstens unterschiede ich zwischen aktiven und inaktiven Räumen. Zweitens verschiedene Größenkatego...
26.08.2010 12:06:47
Thread-ID: 1174292
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige