Max-Datum in Zelle eintragen abhängig von Sortier-Gruppen

[Rabe]

Hi,

ich habe in Spalte B Zahlen von 1 bis x und in C Unterzahlen (1-x), sowie in Spalte F Datümer.

Nun sollen in Spalte F in den Zeilen, die in C eine 0 haben, das höchste Datum der Gruppe aus B stehen. Wenn innerhalb der Gruppe in F eine Leerzelle steht, soll die 0-Zeile ebenfalls leer bleiben.
F11 und F16 sollen leer bleiben, in F3 und F6 ist das richtige Datum manuell eingetragen:

Maßnahmenplan

	B	C	F
2	lfd. Nr.	Nr.	Ende geplant
3	1	0	31.12.2017
4	1	1	31.07.2017
5	1	2	31.12.2017
6	2	0	19.06.2017
7	2	1	19.06.2017
8	2	2	31.12.2017
9	2	3	19.06.2017
10	2	4	30.10.2017
11	3	0
12	3	1	19.06.2017
13	3	2	19.06.2017
14	3	3
15	3	4	30.09.2017
16	4	0
17	4	1	19.06.2017
18	4	2	19.06.2017
19	4	3
20	4	4	29.09.2017
21	4	5

verwendete Formeln
Zelle	Formel	Bereich	N/A
B3:B21	=WENN([@[Nr.]]=0;MAX($B$2:B2)+1;B2)

Excel-Inn.de

Hajo-Excel.de

XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007

Add-In-Version 19.08 einschl. 64 Bit

Mit welcher Formel für Spalte F geht das?

[Jonas0806]

Hi Ralf,

ich glaube ich kann dir nicht ganz folgen.

Nun sollen in Spalte F in den Zeilen, die in C eine 0 haben, das höchste Datum der Gruppe aus B stehen. Wenn innerhalb der Gruppe in F eine Leerzelle steht, soll die 0-Zeile ebenfalls leer bleiben.

In B stehen doch gar keine  Datumsangaben? Wie sieht denn dein Wunschergebnis aus?

[Rabe]

Hi,

in Spalte A steht die Haupt-Kategorie 1-x, in Spalte B steht die Unterkategorie 0-x, in Spalte F ein Datum oder leer

Nun soll innerhalb jeder Haupt-Kategorie in Spalte F in der Zeile der Unterkategorie 0 (UK=0) das höchste Datum aus Spalte F erscheinen oder die Zelle F(UK=0) leer sein, wenn in der jeweiligen Hauptkategorie eine Zelle leer ist. F(UK=0) ist hier im Ausschnitt: F3, F6, F11, F16

Die Wunschergebnisse sind in meinem Ausschnitt in der Zelle F(UK=0) manuell eingetragen.

[BoskoBiati]

Hi Ralf,

das wird wohl nur mit VBA gehen. Hier mal ein einfacher Ansatz:

Code:

Sub Test()
Dim loA As Long
Dim loB As Long
Dim loC As Long
Dim loLetzte As Long
loLetzte = Cells(Rows.Count, 2).End(xlUp).Row
For loA = 3 To loLetzte
    If Cells(loA, 3) = 0 Then
        loB = Application.WorksheetFunction.CountIf(Range("B:B"), Cells(loA, 2)) - 1
        loC = Application.WorksheetFunction.Count(Range(Cells(loA + 1, 6), Cells(loA + loB, 6)))
        If loB = loC Then
            Cells(loA, 6) = Application.WorksheetFunction.Max(Range(Cells(loA + 1, 6), Cells(loA + loB, 6)))
        Else
            Cells(loA, 6) = ""
        End If
    End If
Next
End Sub

[Rabe]

Hi Edgar,

danke, hat funktioniert!

Das werde ich jetzt noch für eine weitere Spalte mit %-Werten statt Datum anpassen.