Berechne Werte zwischen zwei Datumsangaben

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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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

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

Beliebteste Forumthreads (12 Monate)

Berechne Werte zwischen zwei Datumsangaben

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

328 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

	A	B	C	D	E	F
1	Gruß Sepp
2
3

	A	B	C	D	E	F
1	Gruß Sepp
2
3

Berechne Werte zwischen zwei Datumsangaben

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

328 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread