Automatisches durchnummerieren VBA

[schauan]

Hallöchen,

auch wenn der Thread schon erledigt ist, ich hätte hier auch mal noch einen Ansatz mit Filter und Ausfüllen. In dem kurzen Bereich nummeriere ich damit die A, die auch ein j haben. Sofern in den nicht zu zählenden Zeilen in Spalte C schon was steht, bleibt das erhalten. Falls die Formel stört, kann man sie hinterher noch durch "Werte" ersetzen.

Arbeitsblatt mit dem Namen 'Tabelle2'
	A	B	C
1	Wert	OK	Zahl
2	A	j	1
3	V	n	c
4	B	n	c
5	A	n	c
6	B	j	c
7	A	j	2

Zelle	Formel
C2	=MAX($C$1:C1)+1
C7	=MAX($C$1:C6)+1

Verwendete Systemkomponenten: [Windows (32-bit) NT 10.00] MS Excel 2016

Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg

Code:

Sub Makro1()
   Range("A1").AutoFilter
   ActiveSheet.Range("$A$1:$B$7").AutoFilter Field:=1, Criteria1:="A"
   ActiveSheet.Range("$A$1:$B$7").AutoFilter Field:=2, Criteria1:="j"
   Range("C2").FormulaR1C1 = "=MAX(R1C3:R[-1]C)+1"
   Range("C2:C7").FillDown
   ActiveSheet.Range("$A$1:$B$7").AutoFilter ' Field:=2
End Sub