ENTSCHULDIGUNG an 4 User

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Klaus,
Na ja, Urlaub muss aber auch mal sein :-)
Ich vermute auch das mich keiner so genau versteht....aber ich kann es nur schwer besser erklären.
Rechnerisch müsste folgendes passieren.
Als erstes muss Excel die Summe der Zeileneinträge haben, die könnte ich auch mit einer Abfrage mitteilen (PopUp = SummeAbfrage))
Dann die Anzahl geteilt durch 3
nun müsste Excel die Zahl 1 dem ersten Eintrag vergeben,
die Zahl 2 dem Ergebnis (Summe Abfrage) / 3 +1
die Zahl 3 dem Ergebnis (Summe Abfrage) /3 x 2 + 1
die Zahl 4 dann direkt nach dem ersten Eintrag, also auf die 1 folgend
die Zahl 5 dann (Summe Abfrage)/ 3 + 2
Die Zahl 6 dann (Summe Abfrage) / 3 x 2 +2
usw....
es entsteht dann bei 12 Adressen folgendes Bild
Adresse / neue Zeilennummerierung
1 1
2 4
3 7
4 10
5 2
6 5
7 8
8 11
9 3
10 6
11 9
12 12

Sollte es keine Lösung geben, oder ich mich da einfach zu schlecht ausdrücken, dann werde ich es manuell sortieren.....is wie es is....
Danke trotzdem
Ich arbeite seit heute noch an einem zweiten Problem, ich hoffe das ist leichter zu lösen :-)
Danke an das Forum :-)
Gruß
Christian

Moin Christian,
Du hast meine Frage immer noch nicht korrekt beantwortet:
Die Frage war: was passiert nach dem dritten Teil (nach dem 3. Viererblock).
Konkret: welche Zeilennummerierungen bekommen Adresse 13 bis 16 ?
Wenn die Nummerierung 13 16 19 22 lautet dann

Sub Nummerieren()
'----------------------------------------------- anpassen
Dim Block As Long, Schrittweite As Long
Block = 4
Schrittweite = 3
Dim i As Long, a As Long, f As Long, n As Long
Dim Zaehler As Long, Wechsel As Long, lastRow As Long
lastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
Wechsel = (Block * Schrittweite)
Zaehler = 0
n = 1
Application.ScreenUpdating = False
For i = 1 To lastRow
For a = 1 To Block
Zaehler = Zaehler + 1
If a = 1 Then f = n
Range("B" & i) = n
n = n + Schrittweite
i = i + 1
If i > lastRow Then Exit For
Next a
If Zaehler = Wechsel Then
'----------------------------------------------- anpassen
'nächsthöhere Zahl:
n = n + 1 - Schrittweite
'oder wieder mit 1 anfangen:
'n = 1
Zaehler = 0
Else
n = f + 1
End If
i = i - 1
Next i
End Sub

Beachte, dass Du die Blockgröße und die Schrittweite im Makro anpassen kannst.
Blockgröße = Abstand von Zeilennummerierung 1 zu Zeilennummerierung 2 (hier: 4)
Schrittweite = Abstand 1. Ziffer Zeilennummerierung zu 2. Ziffer Zeilennummerierung (hier: von 1 zu 4 = 3)
Gruß
Klaus

Sub NummerierenNeu() Dim i As Long, a As Long, lastRow As Long Dim Schrittweite As Integer, Teilung As Integer lastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row Schrittweite = 3 Teilung = 1 a = 1 Application.ScreenUpdating = False For i = 1 To lastRow Range("B" & i) = a a = a + Schrittweite If a > lastRow Then a = Teilung + 1 Teilung = Teilung + 1 End If Next i End Sub

Beliebteste Forumthreads (12 Monate)

	H	I
1	Z1	1
2	Z2	4
3	Z3	7
4	Z4	10
5	Z5	13
6	Z6	16
7	Z7	2
8	Z8	5
9	Z9	8
10	Z10	11
11	Z11	14
12	Z12	17
13	Z13	3
14	Z14	6
15	Z15	9
16	Z16	12

	A	B	C	D	E
1	Z1	1		Z1	1
2	Z2	4		Z2	4
3	Z3	7		Z3	7
4	Z4	10		Z4	10
5	Z5	2		Z5	13
6	Z6	5		Z6	16
7	Z7	8		Z7	2
8	Z8	11		Z8	5
9	Z9	3		Z9	8
10	Z10	6		Z10	11
11	Z11	9		Z11	14
12	Z12	12		Z12	17
13				Z13	3
14				Z14	6
15				Z15	9
16				Z16	12
17				Z17	15
18				Z18	18
19

	H	I	J
1	Z1	1	1
2	Z2	4	4
3	Z3	7	7
4	Z4	10	10
5	Z5	13	13
6	Z6	2	2
7	Z7	5	5
8	Z8	8	8
9	Z9	11	11
10	Z10	14	14
11	Z11	3	3
12	Z12	6	6
13	Z13	9	9
14	Z14	12	12
15	Z15	15	15
16		4
17

	H	I
1	Z1	1
2	Z2	4
3	Z3	7
4	Z4	10
5	Z5	13
6	Z6	16
7	Z7	2
8	Z8	5
9	Z9	8
10	Z10	11
11	Z11	14
12	Z12	17
13	Z13	3
14	Z14	6
15	Z15	9
16	Z16	12

	A	B	C	D	E
1	Z1	1		Z1	1
2	Z2	4		Z2	4
3	Z3	7		Z3	7
4	Z4	10		Z4	10
5	Z5	2		Z5	13
6	Z6	5		Z6	16
7	Z7	8		Z7	2
8	Z8	11		Z8	5
9	Z9	3		Z9	8
10	Z10	6		Z10	11
11	Z11	9		Z11	14
12	Z12	12		Z12	17
13				Z13	3
14				Z14	6
15				Z15	9
16				Z16	12
17				Z17	15
18				Z18	18
19

	H	I	J
1	Z1	1	1
2	Z2	4	4
3	Z3	7	7
4	Z4	10	10
5	Z5	13	13
6	Z6	2	2
7	Z7	5	5
8	Z8	8	8
9	Z9	11	11
10	Z10	14	14
11	Z11	3	3
12	Z12	6	6
13	Z13	9	9
14	Z14	12	12
15	Z15	15	15
16		4
17

	H	I
1	Z1	1
2	Z2	4
3	Z3	7
4	Z4	10
5	Z5	13
6	Z6	16
7	Z7	2
8	Z8	5
9	Z9	8
10	Z10	11
11	Z11	14
12	Z12	17
13	Z13	3
14	Z14	6
15	Z15	9
16	Z16	12

	A	B	C	D	E
1	Z1	1		Z1	1
2	Z2	4		Z2	4
3	Z3	7		Z3	7
4	Z4	10		Z4	10
5	Z5	2		Z5	13
6	Z6	5		Z6	16
7	Z7	8		Z7	2
8	Z8	11		Z8	5
9	Z9	3		Z9	8
10	Z10	6		Z10	11
11	Z11	9		Z11	14
12	Z12	12		Z12	17
13				Z13	3
14				Z14	6
15				Z15	9
16				Z16	12
17				Z17	15
18				Z18	18
19

	H	I	J
1	Z1	1	1
2	Z2	4	4
3	Z3	7	7
4	Z4	10	10
5	Z5	13	13
6	Z6	2	2
7	Z7	5	5
8	Z8	8	8
9	Z9	11	11
10	Z10	14	14
11	Z11	3	3
12	Z12	6	6
13	Z13	9	9
14	Z14	12	12
15	Z15	15	15
16		4
17

24 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

24
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

	H	I
1	Z1	1
2	Z2	4
3	Z3	7
4	Z4	10
5	Z5	13
6	Z6	16
7	Z7	2
8	Z8	5
9	Z9	8
10	Z10	11
11	Z11	14
12	Z12	17
13	Z13	3
14	Z14	6
15	Z15	9
16	Z16	12

	A	B	C	D	E
1	Z1	1		Z1	1
2	Z2	4		Z2	4
3	Z3	7		Z3	7
4	Z4	10		Z4	10
5	Z5	2		Z5	13
6	Z6	5		Z6	16
7	Z7	8		Z7	2
8	Z8	11		Z8	5
9	Z9	3		Z9	8
10	Z10	6		Z10	11
11	Z11	9		Z11	14
12	Z12	12		Z12	17
13				Z13	3
14				Z14	6
15				Z15	9
16				Z16	12
17				Z17	15
18				Z18	18
19

	H	I	J
1	Z1	1	1
2	Z2	4	4
3	Z3	7	7
4	Z4	10	10
5	Z5	13	13
6	Z6	2	2
7	Z7	5	5
8	Z8	8	8
9	Z9	11	11
10	Z10	14	14
11	Z11	3	3
12	Z12	6	6
13	Z13	9	9
14	Z14	12	12
15	Z15	15	15
16		4
17