Nächstes Datum in der Zukunft, mehrere K

Curly · 2020-08-14T22:36:42+00:00

Guten Abend zusammen, ich benötige wieder mal euer Experten wissen. Ich möchte aus einer großen Liste mit verschiedenen Kundennummern, das nächste Datum (in der Zukunft) der jeweilen Kundennummer herausfinden. Das ganze sollte per VBA funktionieren,sodass ich das gefundene Datum in eine neue Datei schreib kann. Eine kleine Beispieldatei zur Veranschaulichung hab ich erstellt. https://www.herber.de/bbs/user/139646.xlsx Vielen Dank Schönen Abend Curly

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

	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

Forumthread: Nächstes Datum in der Zukunft, mehrere K

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Nächstes Datum in der Zukunft, mehrere K

Forumthread: Nächstes Datum in der Zukunft, mehrere K

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread