Nächstes Datum in der Zukunft, mehrere K

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Curly,
... dazu bedarf es lediglich einer kleinen Hilfsspaltenformel. Wenn Du das Vergleichsdatum, vorgegeben war von Dir ja =HEUTE(), dazu noch in Hilfszelle setzt, bist Du in der Auswertung sehr schnell und auch sehr flexibel, weil Du nur durch das Ändern des Datumswertes in der Hilfszelle auch andere Vergleichsauswertungen vornehmen kannst (die Überschrift der Hilfszelle in den Berichtsfilter schieben) und zudem die Flexibilität der Pivotfilterung zusätzlich zur Verfügung hast.
In der Beispieldatei hab ich den Vergleichsdatumswert in K1 und in K2: folgende Formel:
=WENN(I2&gtL$1;"x";"") weit genug nach unten kopiert und in der Pivotauswertung zusätzlich den Filter im Berichtsfilter nur für "x" gesetzt.
Gruß Werner
.. , - ...

Hallo,
ich konnte mir einen Code erstellen, der zumindest das gewünscht macht, eventuell hat noch jemand verbesserungsvorschläge und evtl auch Performance Optimierung.

Sub SV()
With Application
.ScreenUpdating = False
.EnableEvents = False
.DisplayAlerts = False
End With
Dim i, x, intLastRowTab1, intLastRowSV, AnzSV As Integer
Dim NDL As String
NDL = Mid(ThisWorkbook.Name, 10, 3)
intLastRowTab1 = Sheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row
intLastRowSV = Sheets(NDL & "_SV").Cells(Rows.Count, 1).End(xlUp).Row
For i = 4 To intLastRowTab1
AnzSV = WorksheetFunction.CountIfs(Range(NDL & "_SV!A:A"), Sheets("Tabelle1").Cells(i, 1).Value, _
Range(NDL & "_SV!H:H"), "=" & CDbl(Date)) '"=COUNTIFS(C,""C0527988"",C[7],""""&TODAY())"
If AnzSV > 0 Then
Sheets("Tabelle1").Cells(i, 8).Value = "Ja (" & AnzSV & ")"
For x = 4 To intLastRowSV
If Sheets("Tabelle1").Cells(i, 1).Value = Sheets(NDL & "_SV").Cells(x, 1) Then
If (Sheets(NDL & "_SV").Cells(x, 9).Value > CDbl(Date)) And (Sheets("Tabelle1").Cells(i, _
9).Value = "" Or Sheets("Tabelle1").Cells(i, 9).Value > Sheets(NDL & "_SV").Cells(x, 9).Value) Then
Sheets("Tabelle1").Cells(i, 9).Value = Sheets(NDL & "_SV").Cells(x, 9).Value
End If
End If
Next x
Else
Sheets("Tabelle1").Cells(i, 8).Value = "Nein"
End If
Next i
With Application
.ScreenUpdating = True
.EnableEvents = True
.DisplayAlerts = True
End With
End Sub

Gruß Curly

Beliebteste Forumthreads (12 Monate)

	J
2	31.10.2020
3
4
5
6
7
8	31.12.2020
9
10
11
12
13

verwendete Formeln
Zelle	Formel	Bereich	N/A
J2:J13	=WENN(ZÄHLENWENN($B$2:$B2;B2)=1;MIN(WENN(UND($A$2:$A$13=A2;$I$2:$I$13>=HEUTE());I2:I13));"")

Zahlenformate
Zelle	Format	Inhalt
J2	'TT.MM.JJJJ		44135
J3:J7, J9:J13	'TT.MM.JJJJ
J8	'TT.MM.JJJJ		44196

Nächstes Datum in der Zukunft, mehrere K

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Nächstes Datum in der Zukunft, mehrere K

17 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread