Thema: Numerieren | Herbers Excel-Forum

Hallo,
Bitte um VBA Hilfe
In meiner Teileliste stehen ab Zelle B6 Seriennummern, ab Zelle C6 die entsprechenden Lieferdatums.
Jetzt sollte ab Zelle D6 durchnummeriert die Anzahl abhängig vom Lieferdatum dargestellt werden.
Beispiel
B6.... C6.......... D6
2190 09.12.09 1
2536 09.12.09 2
2177 09.12.09 3
2486 10.12.09 1
2556 10.12.09 2
2345 10.12.09 3
5678 10.12.09 4
usw. usw. usw.
Vielen Dank für Eure Hilfe
Gerhard

Hallo Gerhard,
muss es VBA sein?
Nachfolgend ein Bsp. ohne VBA
Tabelle1

	B	C	D
6	2190	09.12.2009	1
7	2536	09.12.2009	2
8	2177	09.12.2009	3
9	2486	10.12.2009	1
10	2556	10.12.2009	2
11	2345	10.12.2009	3
12	5678	10.12.2009	4

Formeln der Tabelle

Zelle Formel D7 =WENN(C7=C6;D6+1;1) D8 =WENN(C8=C7;D7+1;1) D9 =WENN(C9=C8;D8+1;1) D10 =WENN(C10=C9;D9+1;1) D11 =WENN(C11=C10;D10+1;1) D12 =WENN(C12=C11;D11+1;1)

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
MFG Andre

Hi,
vielen Dank für eure schnelle Hilfe!
Gibt es auch eine VBA Lösung?
wäre mir lieber
Gruß Gerhard

Hallo Gerd,
verwende folgendes Makro :
Sub DatumZaehlen() Range("D6:D" & Cells(Rows.Count, 3).End(xlUp).Row).Formula = "=Countif(C$6:C6,C6)" End Sub
Gruß, NoNet

_oT