Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1020to1024
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1020to1024
1020to1024
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datumsdifferenz in Tagen

Datumsdifferenz in Tagen
12.11.2008 17:26:00
Wolfgang
Hallo,
ich würde gerne erreichen, dass beim Öffnen der Arbeitsmappe in den Tabellenblättern "Start" und "Ergebnis" die Differenz zwischen zwei jeweiligen Daten im Format "12.11.2008" in Tagen erscheint.
Spalte E "Datum1"(älter) Spalte F "Datum2" (jünger) - Differenz in Tagen in Spalte R. - Wäre eine solche Formel in VBA denkbar? - Danke schon jetzt für die Rückmeldungen.
Herzliche Grüße
Wolfgang

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

Betreff
Datum
Anwender
Anzeige
AW: Datumsdifferenz in Tagen
12.11.2008 17:28:00
Hajo_Zi
Hallo Wolfgang,
man muss nicht alles über VBA machen. =Enddatum - Anfangsdatum und als Zahl formatieren.

AW: Datumsdifferenz in Tagen
12.11.2008 17:52:04
Wolfgang
Hallo Hajo,
danke für Deine Rückmeldung. Momentan habe ich noch in Excel eine entsprechende Formel - bei ca. 6000 Zeilen -pro Tabelle- nimmt das aber sehr viel Speicherplatz in Anspruch, so dass ich gerade deswegen eine Möglichkeit über VBA suche. Hättest Du da evtl. einen Tipp/Hinweis? - Über die Herber-CD und in Recherche konnte ich so wirklich nichts finden oder habe da etwas übersehen.
Gruß - Wolfgang
AW: Datumsdifferenz in Tagen
13.11.2008 00:31:00
Uwe
Hi Wolfgang,
ich bin zwar auch Hajos Meinung, dass es nicht immer VBA sein muss, aber wenn es doch sein soll, dann schreibe mal diesen Code ins Modul des Tabellenblattes:

Private Sub Worksheet_Activate()
Dim L As Long
Dim Zelle As Range
For Each Zelle In Range(Cells(1, 6), Cells(Rows.Count, 6).End(xlUp))
If IsDate(Zelle.Value) = True _
And IsDate(Zelle.Offset(0, -1).Value) Then _
Zelle.Offset(0, 12).Value = Zelle.Value - Zelle.Offset(0, -1).Value
Next Zelle
End Sub


und teste ihn ausgiebig.
Gruß
Uwe
(:o)

Anzeige
AW: Datumsdifferenz in Tagen
13.11.2008 05:28:52
Wolfgang
Hallo Uwe,
recht herzlichen Dank für Deine Rückmeldung und Ausarbeitung. Der Code läuft wunderbar. Hab Dank dafür.- Vielleicht noch eine Frage, wenn anstatt die Differenz zwischen den beiden genannten Daten nun das Datum aus Spalte F (jünger) und HEUTE zu Grunde gelegt werden würde, wie müßte ich den Code da umstellen? Ich habe da irgendetwas mit CDate vor Augen, wüßte das aber nicht umzustellen. Hättest Du da vielleicht noch eine Idee? - Danke schon jetzt wieder für die Rückmeldung.
Herzliche Grüße
Wolfgang
AW: Datumsdifferenz in Tagen
13.11.2008 06:29:41
Reinhard
Hi Wolfgang,
aufrufen der Codes in "DieseArbeitsmappe" mit:

Private Sub Workbook_Open()
Call Datum1
'Call Datum2
End Sub


In das Standardmodul "Modul1":


Option Explicit
Sub Datum1()
Dim rng As Range
Set rng = Range("R1").Resize(Range("F" & Rows.Count).End(xlUp).Row, 1)
rng.Formula = "=F1-E1"
rng.Value = rng.Value
rng.NumberFormat = "General"
End Sub
Sub Datum2()
Dim rng As Range
Set rng = Range("R1").Resize(Range("F" & Rows.Count).End(xlUp).Row, 1)
rng.Formula = "=today()-E1"
rng.Value = rng.Value
rng.NumberFormat = "General"
End Sub


Gruß
Reinhard

Anzeige
AW: Datumsdifferenz in Tagen
13.11.2008 20:24:00
Wolfgang
Hallo Reinhard,
herzlichen Dank für Deine Rückmeldung und den Ausarbeitungen. Ich habe den Sub Datum2 zunächst einmal getestet. Er zeigt zum Teil das Ergebnis in einem Datumsformat an, zum anderen Teil differiert das Ergebnis zum Ergebnis mit nachfolgender Excel-Formel. Ausgehend z.B. vom Datum 08.05.2008 zeigt der Excel-Code 185 Tage an, der VBA-Code 220 Tage; Das Datum 09.05.2008 Excel= 184, VBA = 189 Tage. Ich weiß jetzt nicht, ob evtl. der Excel-Code nicht richtig läuft? - Die Abfrage mit Q2 wäre dabei in VBA überflüssig ? -Oder evtl. doch wichtig, weil hierüber die nur gefüllten Zeilen in Excel abgefragt werden. Hättest Du da evtl. noch eine Idee, was da evtl. anders gemacht werden müßte? - Übrigens meine ich festzustellen, dass Dein Code erheblich schneller läuft, als der von Uwe.
Danke schon jetzt wieder für die Rückmeldung.
Herzliche Grüße
Wolfgang
=WENN(Q2=1;TAGE360(F2;HEUTE();WAHR);0)
Anzeige
AW: Datumsdifferenz in Tagen
14.11.2008 00:11:00
Reinhard
Hallo Wolfgang,
ja, mein Code ist zigfach schneller als wenn man mit Vba viele Zellen "abklappert" und irgendwie überprüft.
datum1 und Datum2 unerscheiden sich ja nur durch die Zeile:
rng.Formula = "=today()-E1"
Und zwischen die Anführungszeichen kannst du die Formel reinschreiben die du auch in die Zelle schreiben würdest.
Besonderheiten:
aus der Formel
=If(A1="abc";B1;"")
mußt du dies machen:
rng.Formula = "=IF((A1=""abc"";B1;"""")"
Also alle Anführungszeichen verdoppeln.
Melde dich nochmal wenn du nicht klarkommst, ggfs. lade hier eine Beispielmappe hoch.
Gruß
Reinhard
Anzeige
ergänzende Frage
14.11.2008 08:13:00
Wolfgang
Hallo Reinhard,
in Ergänzung zur Frage mit der Mustermappe folgende Frage noch: könnte der Code Datum2 evtl. auch noch in der Form ergänzt werden, dass das Datum aus Spalte E "14.11.2008" in Spalte P nur noch als Jahreszahl "2008", also die letzten 4 Ziffern erscheint. Ich habe das zwar auch schon als Excel-Formel umgesetzt, allerdings schluckt das insgesamt bei 6000 Zeilen einiges an Speicherplatz, der durch Deinen jetztigen Code schon erheblich verringert werden konnte.
Gruß - Wolfgang
Noch offen o.w.T.
18.11.2008 12:43:35
Reinhard


AW: Datumsdifferenz in Tagen
14.11.2008 06:28:00
Wolfgang
Hallo Reinhard,
erneut herzlichen Dank für Deine Rückmeldung. Ich habe noch weiter versucht, kann mir die Differenz zwischen dem Code und der Excel-Formel nicht erklären bzw. bekomme das nicht in den Griff. In der richtigen Mappe würde ich dabei gerne als Ausgangsdatum das Datum in Spalte F zu Grunde legen und das Ergebnis, also die Differenz in Tagen sollte in Spalte R erscheinen. Habe ich da evtl. Deinen Code schon falsch umgestellt? - Ich habe 'mal eine Mustermappe beigefügt.- Danke schon jetzt wieder.
Herzliche Grüße - Wolfgang
https://www.herber.de/bbs/user/56762.xls
Anzeige

312 Forumthreads zu ähnlichen Themen

Vergleich aus Liste mit Einbindung Minimum/Maximum
Jörg

Hallo liebe Excelfreunde,
ich glaube, ich habe seit gestern einen kleinen Blackout und kann keine Formeln mehr mischen...
Problem: Aus einer Liste mit Werten soll jeweils der Minimum- und Maximumwert (gerundet oder ungerundet) angegeben werden, der als erstes (bei Min) oder letztes (bei...
15.08.2008 14:05:53
Thread-ID: 1002182
4 Beiträge
Anzeige
Wert zwischen min. und max.
TomTom

Hi,
ich möchte eine Abfrage machen die so ungefähr heisen soll:
If Textbox1 ZWISCHEN 4 und 8 then .....
Wie kann ich den einen Wert, der Zwischen min und max liegt abfragen ?
Danke mal
Tom
16.09.2008 07:54:00
Thread-ID: 1009935
3 Beiträge
Einträge differenzieren
siegfried

hallo,
ich möchte Einträge, die ich in einer userform vornehme nach allen theoretisch möglichen Varianten differenzieren. die Einträge enthalten 5 unterschiedliche Kritereien. dadurch ergeben sich über 4000 kombinationen. mit der office 2007 version hätte ich auch genügend spalten zur aufna...
04.11.2008 16:29:00
Thread-ID: 1021692
3 Beiträge
Anzeige
Summe von je einem Wert von Mehrfachwerten
je

Hallo Profis,
ich bräuchte dringend Eure Hilfe.
Ich müßte in einer Reporting-Tabelle, gefüllt mit Mieterndaten (diese sind als Debitor angelegt), von Mehrfachwerten pro Mieter immer nur mit einen Wert die Summe und nach Möglichkeit auch das Teilergebnis bei Filterung ermitteln.
Als...
28.12.2008 00:09:35
Thread-ID: 1035508
9 Beiträge
Differenz von 2 Datums in Jahre rechnen
2

Hi,
ich möchte die Differenz zweier Datums in Jahre darstellen. Erstes Datum steht in B2 (zB 10.03.2001) und zweites in C2 (zB 15.07.2007) .
Die Differenz zwischen B2 und C2 soll in C3 stehn und zwar als Kommazahl. (zB 6,75 Jahre )
Weis jemand eine Formal dafür ?
Danke Joach...
06.01.2009 00:25:51
Thread-ID: 1037149
6 Beiträge
Differenz Datum in Jahren und Tagen
MiraCeti

Hallo Zusammen!
Vielleicht habe ich ja einen Denkfehler, aber:
Ich bilde die Differenz von zwei Datum und wenn ich das nochmal nachrechne, meine ich, dass immer ein Tag fehlt:
15.02.2008 - 02.05.2010 2 Jahre 77 Tage
14.01.2000 - 30.03.2004 4 Jahre 76 Tage
16.01.2000...
29.04.2009 16:16:18
Thread-ID: 1071946
8 Beiträge
Differenz Datum in Jahren und Tagen
MiraCeti

Hallo zusammen.
Es tut mir sehr leid, aber mein Problem ist noch nicht gelöst und daher bringe ich es nochmal an.
Es geht mir um die Darstellung der Anzahl von Jahren und Tagen zwischen zwei Daten.
Volle Jahre sind ja klar. Die zählen als ein Jahr, unabhängig ob da nun wegen dem Sch...
06.05.2009 13:49:12
Thread-ID: 1073345
12 Beiträge
Zeitdifferenz in Zelle einfügen
Alina

Hallo zusammen,
ich habe mir in Excel eine Überstundentabelle gebastelt. Soweit funktioniert auch alles. Ich kann mir auch die Überstunden pro Tag in der Spalte G berechnen lassen. Berechnet wird das durch die Solleinzeit in Spalte F und der tatsächlichen Endzeit in Spalte D.
Nun möcht...
16.08.2009 00:06:36
Thread-ID: 1096190
12 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
1
2
2
18
8
5
7
11
11
2
6
4
5
12
14
2
12
10
6
3
7
4
9
7