Datum miteiinander vergleichen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Datum miteiinander vergleichen
von: Peter Weber
Geschrieben am: 01.10.2015 02:20:52

Hallo Zusammen,
ich habe eine einfache Frage.
In einer Spalte habe ich Datum-Angaben in Form 01.02.2015, 05.<02>.2015, usw. Es geht hier um den Monat.

Bild

Betrifft: AW: Datum miteiinander vergleichen
von: Peter Weber
Geschrieben am: 01.10.2015 02:41:36
Ooops, habe Absenden versehentlich gedrückt!
Ich habe folgendes Problem.
Tabelle 1: In der Spalte A habe ich Datums-Angaben in Form 01.02.2015, 05.02.2015, 20.03.2015, usw. In der Spalte B sind Gewichtswerte eingetragen. Nun möchte ich alle Gewichtswerte nur vom Februar summieren.
Die Eingabe des Zeitraums erfolgt in der Tabelle 2, z.b cells(1,1) in Form von 02.2015.
In einer Schleife müsste eine Abfrage stattfinden, aber wie?
Ich möchte ja nur Februar 2015 (02.2015) mit einem ganzem Datum (05.02.2015) vegleichen.
Also: if 02.2015 = 05.02.2015 then ...
Für Eure bedanke ich mich,
Peter


Bild

Betrifft: AW: Datum miteiinander vergleichen
von: ck
Geschrieben am: 01.10.2015 03:12:37
Hi,
mutze doch einfach Pivot ist in Sekunden erledigt.
https://www.youtube.com/watch?v=LNCA4Uj36Fs
lg
Chris

Bild

Betrifft: AW: Datum miteiinander vergleichen
von: Peter Weber
Geschrieben am: 01.10.2015 08:21:05
Hallo Chris,
geht nicht. Habe ein sehr umfangreiches System mit VBA aufgebaut.
LG,
Petr

Bild

Betrifft: Filter benutzen mit Teilergebnis ...
von: Matthias L
Geschrieben am: 01.10.2015 09:01:29
Hallo
Tabelle1

 ABC
1DatumGewicht66
401.02.201522 
505.02.201522 
613.02.201522 
10   
11Summe176 

Formeln der Tabelle
ZelleFormel
C1=TEILERGEBNIS(9;B2:B9)
B11=SUMME(B2:B9)


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Gruß Matthias

Bild

Betrifft: AW: Filter benutzen mit Teilergebnis ...
von: Peter Weber
Geschrieben am: 01.10.2015 09:39:01
Hallo Zusammen,
ich muss es mit VBA lösen.
LG,
Peter

Bild

Betrifft: geht auch mit VBA ...
von: Matthias L
Geschrieben am: 01.10.2015 09:56:49
Hallo
Datum steht in A, Werte in B

Option Explicit
Sub SuMFeb()
Dim x, MySum As Double
On Error Resume Next
For x = 1 To 365
 If Month(Cells(x, 1)) = 2 Then MySum = MySum + Cells(x, 2)
Next
MsgBox MySum
End Sub
Gruß Matthias

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Datum miteiinander vergleichen"