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

Berechne Werte zwischen zwei Datumsangaben

Forumthread: Berechne Werte zwischen zwei Datumsangaben

Berechne Werte zwischen zwei Datumsangaben
30.06.2018 12:28:40
nick
Hallo Leute,
ich habe eine Userform, in der ein Datum und ein Wert eingegeben werden können.
Diese werden in ein Tabellenblatt übertragen.
Spalte A: Datum (das selbe Datum kann mehr als einmal vorkommen)
Spalte B: Wert
Bsp:
Spalte A:
01.05.2018
01.05.2018
03.05.2018
.
.
.
31.05.2018
Spalte B:
10
4
4
.
.
.
1
Nun zu meinem Problem:
Über die Userform kann eine Datumsgrenze eingegeben werden (z.b. 03.05.2018 txtDatum1 und 15.05.2018 txtDatum2), die mir anschließend die Summe der Werte in Spalte B für die Datumgrenze ausgibt. Die Summe wird in txtAusgabe anzeigt - beim drücken auf cmdBerechnenButton. Meine Versuche mit If-Schleifen und For-Schleifen brachten leider nicht den erwünschten Erfolg :-( . Habt Ihr eine Idee, die mir weiterhilft?
Vielen Dank im Voraus für eure Hilfe
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Berechne Werte zwischen zwei Datumsangaben
30.06.2018 12:40:42
Sepp
Hallo Nick,
lade deine Datei hoch.
 ABCDEF
1Gruß Sepp
2
3

Anzeige
AW: Berechne Werte zwischen zwei Datumsangaben
30.06.2018 13:07:01
nick
Option Explicit
Private Sub cmdBeenden_Click()
'Schließt Programm
Unload Me
End Sub


Private Sub cmdImport_Click()
'Leere Zeile ermitteln
Dim last As Long
last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
'Werte in Tabelle in 1. Spalte eintragen
Cells(last, 1).Value = DTPKalender.Value
Cells(last, 2).Value = txtWerte.Value
'Werte Sortieren
Range("A:B").Sort key1:=Range("A2"), Order1:=xlAscending, Header:=xlYes
End Sub


Private Sub cmdLöschen_Click()
'Werte löschen
Range("A:A").Value = ""
Range("B:B").Value = ""
End Sub


Private Sub cmdSuchen_Click()
'Zeitraum ermitteln
Dim Datum1 As Date
Dim Datum2 As Date
Datum1 = txtDatum1.Value
Datum2 = txtDatum2.Value
If Range("Datum1") >= Range("A1") And Range("Datum2") 

Private Sub UserForm_Click()
End Sub

Anzeige
AW: Berechne Werte zwischen zwei Datumsangaben
30.06.2018 17:45:20
Sepp
Hallo Nick,
Private Sub cmdSuchen_Click()
  'Zeitraum ermitteln 
  Dim Datum1 As Long
  Dim Datum2 As Long

  If IsDate(txtDatum1) Then Datum1 = CLng(CDate(txtDatum1))
  If IsDate(txtDatum2) Then Datum2 = CLng(CDate(txtDatum2))

  If Datum1 > 0 And Datum2 > 0 Then
    With Sheets("Tabelle2")
      txtSummeAusgeben = Application.SumIfs(.Range("B:B"), .Range("A:A"), ">=" & Datum1, .Range("A:A"), "<=" & Datum2)
    End With
  Else
    txtSummeAusgeben = "Falsche Eingabe!"
  End If
End Sub


VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

 ABCDEF
1Gruß Sepp
2
3

Anzeige
AW: Berechne Werte zwischen zwei Datumsangaben
30.06.2018 18:21:06
nick
Hallo Sepp,
Super!
vielen Dank!
;

Forumthreads zu verwandten Themen

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
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
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
Zählen wenn KW zwischen Datum A und Datum B liegt
Dieter

Hallo zusammen,
ich habe eine Tabelle Produktionsdaten. Abgekürzt: Produktname, Datum A (Beginn), Datum B (Ende). In der Tabelle habe ich nur Datumsfelder, keine KW Felder. Die Produktionstabelle kann ich nur auswerten, aber nicht verändern.
Ich will die Tabelle auswerten und ein Balken...
19.08.2011 01:37:49
Thread-ID: 1226670
4 Beiträge
Daten in zweiter Tabelle mit Datum sichern
Fritz_W


Hallo Forumsbesucher,
per Makroaufzeichnung habe ich bisher Daten aus der 'Tabelle1' in die Tabelle 'Ergebnisse' übertragen (kopiert und unformatiert in Tabelle 'Ergebnisse' eingefügt).
Inhalt aus 'Tabelle1 O3' nach 'Ergebnisse B3'
Zellinhalt aus 'Tabelle B4:D19 ' nach 'Ergebni...
22.02.2012 06:50:10
Thread-ID: 1251789
29 Beiträge
WENN Funktion Zwischen Datumsangaben
Tim

Hallo zusammen,
ich habe ein Problem und hoffe auf eure Hilfe, da ich es alleine nicht hinbekomme.
Ich habe eine bestehende Exceldatei, wo schon ganz viele Daten enthalten sind.
Wichtige Infos:
Tabellenblatt Kauf:
Spalte A: Datumsangaben (z.B. 03.04.2012) A2:A2999
Spalte...
10.12.2012 13:49:47
Thread-ID: 1290116
13 Beiträge
Arbeitstage zwischen zwei Datumsfeldern
Rob

Hallo,
ich habe in Q13 (04.11.2013) und in T13 (20.02.2014) ein Datum stehen. In R13 möchte ich gern die Arbeitstage angeben in der Form "xx Wochen, xx Tage" oder "xx Tage".
Ich habe folgende Formel verwendet, die in R13:
=WENN((T13-Q13-GANZZAHL((WOCHENTAG(Q13;2)+T13-Q13)/7)-GANZZAH...
20.08.2013 12:59:32
Thread-ID: 1327598
5 Beiträge
Anzahl zwischen zwei Daten aus Liste
Carsten

Hallo Leute,
ich suche aus einer langen Liste mit Datumswerten, z.b. die Anzahl der Elemente zwischen Startdatum und Enddatum in einer Formel.
Danke für euere Hilfe!
17.09.2013 11:54:34
Thread-ID: 1331155
3 Beiträge
Werte zwischen zwei Daten
Harry

HalloHabe das Problem weiter unten schon einmal eingegeben.
Ich will über eine Abfrage das Start und Enddatum und einen
Buchstaben abfragen und diesen in einen Kalender unter das dazugehörige Datum eintragen.
Ich weiß nicht wie ich Excel dazu bekomme in alle Zellen zwischen den zwei Da...
08.07.2002 17:50:45
Thread-ID: 134782
2 Beiträge
Anzeige
Leihmaterialbestand zwischen zwei Daten
Markus

Hallo zusammen,
ich versuche mich gerade an einer für mich unlösbaren Herausforderung :-)
Ich würde gerne meinen Leihbestand an Gartengeräten mit Excel verwalten.
100 Rasenmäher 13.10 - 19.10
100 Rasenmäher 11.10 - 22.10
Ist Bestand 2 Rasenmäher
Nun...
19.10.2014 18:05:02
Thread-ID: 1387436
9 Beiträge
excel vba alle monate zwischen zwei Datumswerten i
Jappe
Hallo Liebe Herber Gemeinde,
ich habe in einer Tabelle in zwei Zellen a1 und b1 je ein Datum stehen.
Jetzt möchte ich, dass acht Spalten weiter, in jeder neuen spalten der nächste Monat steht also in j1, k1, l1 usw.
Wie kann ich das in einem Makro darstellen?
Viele Danke
15.04.2015 16:14:20
Thread-ID: 1420988
10 Beiträge
Differenz zwischen zwei Tagesdaten
Rudolf

Moin,
ich möchte gern die Differenz von zwei Tagesdaten ermitteln (in Tagen, Monaten und Jahren).
Die Daten stehen allerdings nur als Zahlen in der Schreibweise Jahr, Monat, Tag zur Verfügung. Beispiel
A1 = 20070324
B1 = 20110509
Wie kann ich die Berechnung bewerkstelligen?<...
11.08.2015 10:53:38
Thread-ID: 1441618
5 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Berechne Werte zwischen zwei Datumsangaben

Schritt-für-Schritt-Anleitung

Um in Excel zu prüfen, ob ein Datum zwischen zwei anderen Datumsangaben liegt und die entsprechenden Werte zu summieren, kannst Du die folgende Schritt-für-Schritt-Anleitung befolgen:

  1. Erstelle eine Userform:

    • Füge Textfelder für die Datumsangaben (txtDatum1, txtDatum2) und für die Ausgabe (txtSummeAusgeben) hinzu.
    • Füge einen Button hinzu, um die Berechnung zu starten.

  2. Füge den Code für den Button hinzu:

    • Öffne den VBA-Editor und füge den folgenden Code in das cmdSuchen_Click Ereignis ein:
    Private Sub cmdSuchen_Click()
   Dim Datum1 As Date
   Dim Datum2 As Date
   Datum1 = txtDatum1.Value
   Datum2 = txtDatum2.Value

   If Datum1 >= 0 And Datum2 >= 0 Then
       txtSummeAusgeben = Application.SumIfs(Sheets("Tabelle2").Range("B:B"), Sheets("Tabelle2").Range("A:A"), ">=" & Datum1, Sheets("Tabelle2").Range("A:A"), "<=" & Datum2)
   Else
       txtSummeAusgeben = "Falsche Eingabe!"
   End If
End Sub

  3. Teste die Userform:

    • Starte die Userform und gib zwei Datumsangaben ein. Klicke auf den Berechnen-Button, um die Summe der Werte zwischen diesen beiden Daten zu erhalten.

Häufige Fehler und Lösungen

  • Falsches Datumsformat: Stelle sicher, dass die eingegebenen Daten in einem korrekten Datumsformat vorliegen. Excel prüft, ob das Datum zwischen zwei Daten liegt.

  • Leere Felder: Wenn eines der Textfelder leer ist, kann dies zu einem Fehler führen. Überprüfe, ob beide Felder ausgefüllt sind, bevor Du die Berechnung durchführst.

  • Fehlende Werte in Spalte B: Wenn in der Datentabelle keine Werte vorhanden sind, wird das Ergebnis leer sein. Stelle sicher, dass die Werte in Spalte B vorhanden sind.

Alternative Methoden

  1. SUMIF-Funktion: Du kannst auch die SUMIF-Funktion direkt in eine Zelle eingeben, um die Summe der Werte zu berechnen, wenn das Datum zwischen zwei Daten liegt:

    =SUMIFS(B:B, A:A, ">=" & E1, A:A, "<=" & F1)

    Hierbei stehen E1 und F1 für die Zellen, in denen Du die Datumsgrenzen eingegeben hast.

  2. PivotTable: Eine PivotTable kann ebenfalls helfen, Daten nach Datum zu filtern und die entsprechenden Werte zu summieren, wenn Du eine visuelle Darstellung benötigst.

Praktische Beispiele

Angenommen, Du hast folgende Daten:

A B
01.05.2018 10
03.05.2018 4
15.05.2018 6
31.05.2018 1

Wenn Du die Summe der Werte zwischen dem 03.05.2018 und 15.05.2018 berechnen möchtest, gibst Du diese Daten in die Userform ein und erhältst die Ausgabe 10 (4 + 6).

Tipps für Profis

  • Datenvalidierung: Verwende die Datenvalidierung in Excel, um sicherzustellen, dass nur gültige Datumsangaben eingegeben werden.

  • Fehlerbehandlung: Ergänze den Code mit einer Fehlerbehandlung, um unerwartete Eingaben abzufangen und dem Benutzer hilfreiche Rückmeldungen zu geben.

  • Automatisierung: Du kannst VBA nutzen, um die Berechnung zu automatisieren, sobald neue Daten in die Tabelle eingegeben werden.

FAQ: Häufige Fragen

1. Wie kann ich prüfen, ob ein Datum zwischen zwei Daten liegt? Um zu prüfen, ob ein Datum zwischen zwei anderen Daten liegt, kannst Du die IF-Bedingung in VBA verwenden oder die SUMIFS-Funktion in Excel nutzen.

2. Was ist, wenn ich mehrere Datumsangaben habe? Du kannst die SUMIFS-Funktion nutzen, um mehrere Kriterien zu berücksichtigen, indem Du zusätzliche Bedingungen hinzufügst.

3. Ist dieser Code mit allen Excel-Versionen kompatibel? Der bereitgestellte Code ist für Excel 2016 und später getestet. Bei älteren Versionen kann es zu Abweichungen kommen.

Beliebteste Forumthreads (12 Monate)

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