Excel vba Blockweise nummerieren

[sharky51]

Hallo zusammen,

hätte schon wieder eine Frage mit der Hoffnung auf Hilfe von Euch.

Ich habe eine ellenlange Liste, in der in Spalte "B" ab Zeile 2 unterschiedlich viele Einträge unterschiedlicher Themengruppen stehen können.
Die Themengruppen sind immer durch eine eindeutige Überschrift getrennt. Also nach jeder Überschrift beginnt eine neue Gruppe.

Mal ein Beispiel:

Tabelle1 (2)

	A	B	C	D
1	#	Thema		Gruppen-Nr.
2		Lesezeichenleiste		1
3		text 1		1
4		text 2		1
5		text 3		1
6		Aktuelle Lesezeichen		2
7		text 1		2
8		text 2		2
9		text 3		2
10		Android		3
11		text 1		3
12		text 2		3
13		text 3		3
14		text 4		3

http://excel-inn.de/dateien/vba_beispiel..._addin.zip

http://Hajo-Excel.de/tools.htm

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

Add-In-Version 25.21 einschl. 64 Bit

Meine Frage ist nun folgende:
Wie kann die Liste wie in Spalte "D" abgebildet per vba blockweise nummeriert werden? Es soll also ab einer neuen Überschrift die Blocknummerierung um 1 erhöht werden?

[RPP63]

Moin!
Strukturiere die Tabelle anders.
Zwischenüberschriften sind ein NoGo!
Formel aus C2 nach unten ziehen.

	A	B	C
1	#	Thema	Gruppen-Nr.
2	Lesezeichenleiste	text 1	1
3		text 2	1
4		text 3	1
5	Aktuelle Lesezeichen	text 1	2
6		text 2	2
7		text 3	2
8	Android	text 1	3
9		text 2	3
10		text 3	3
11		text 4	3

Zelle	Formel
C2	=MAX(C$1:C1)+ISTTEXT(A2)

Gruß Ralf

[LuckyJoe]

Hi,

gibt es denn ein eindeutiges "Erkennungszeichen", mit dem eine Überschrift identifizierbar ist (Schriftart, Schriftgröße, Fettschrift, Schriftfarbe)? Oder sind alle "Nicht-Überschriften" Hyperlinks (wie auf deinem Bild dargestellt)? Dann ginge das natürlich mit VBA, wenn das für dich in Frage kommt.

[sharky51]

Probiere ich aus!

---

Ja die Überschriften sind in Fettschrift!

---

Hallo Ralf,

Formel funktioniert perfekt!

Die Listen bekomme ich leider nicht in der Form wie von Dir vorgeschlagen.
Bedeutet dann halt jedes Mal Hand anlegen zu müssen und die Zwischenüberschriften passend verschieben.

Trotzdem vielen Dank, habe wieder etwas gelernt.

Wünsche noch schönen Sonntag!

[LuckyJoe]

Hi,

wenn VBA für dich in Frage kommt, dann probiere mal folgenden Code:

Code:

Sub Gruppennr()

    Dim ThemaSpalte As Integer
    Dim GruppennrSpalte As Integer
    Dim Gruppennr As Integer
    Dim Zelle As Range
   
    ' Spalten und Gruppen-Nr. hier anpassen:
    ThemaSpalte = 2
    GruppennrSpalte = 4
    Gruppennr = 0
   
    For Each Zelle In Range(Cells(2, ThemaSpalte), Cells(Rows.Count, ThemaSpalte).End(xlUp))
        If Zelle.Font.Bold Then Gruppennr = Gruppennr + 1
        Cells(Zelle.Row, GruppennrSpalte) = Gruppennr
    Next

End Sub

Wie und wo fügt man ein Makro bzw. Code ein: Link.

[sharky51]

Guten Morgen Lucky Joe,

das ist cool und funktioniert perfekt.

Herzlichen Dank dafür!!

Wünsche Dir noch einen schönen und gesunden Tag.

[sharky51]

Ups...einmal zu viel versendet..sorry!