Zeilennummerierung automatisch über Makro

Computer: Software & Programmierung Visual Basic
#1

hallo leute,

ich habe folgendes Problem:

Ich habe mehrere beschriebene Datenblätter in Excel mit Überschriften in Spalte B, Unterüberschriften eine Zeile darunter in Spalte C, usw in D E…

Ich möchte in Spalte A eine Nummerierung für jede Zeile einfügen, dies möchte ich über ein Makro realisieren.
Die Nummerierung soll folgendermaßen aussehen: AA-1-2.3.4
dabei steht jede Zahl für eine Überschriftenebene.
Ist also ein Eintrag in Spalte B, so sollte sich die erste nummer der Nummerierung ändern. Einträge in Spalte E dagegen beeinflussen nur die letzte ziffer usw. außerdem sind nie zwei überschriften in einer Zeile.
kann mir jemand helfen? ich hoffe ich haben mich verständlich ausgedrückt, sonst bitte nochmal nachfragen!
danke schonmal!

hon

#2

Ich habe mehrere beschriebene Datenblätter in Excel mit
Überschriften in Spalte B, Unterüberschriften eine Zeile
darunter in Spalte C, usw in D E…

Ich möchte in Spalte A eine Nummerierung für jede Zeile
einfügen, dies möchte ich über ein Makro realisieren.
Die Nummerierung soll folgendermaßen aussehen: AA-1-2.3.4
dabei steht jede Zahl für eine Überschriftenebene.
Ist also ein Eintrag in Spalte B, so sollte sich die erste
nummer der Nummerierung ändern. Einträge in Spalte E dagegen
beeinflussen nur die letzte ziffer usw. außerdem sind nie zwei
überschriften in einer Zeile.

Hi Hon,

vielleicht so:

Sub tt()
Dim Zei As Long, Zeilen, Spa As Long, Nr(2 To 5)
Zeilen = Split(ActiveSheet.UsedRange.Address(0, 0), ":")
For Spa = 2 To 5
 Nr(Spa) = 1
Next Spa
For Zei = Range(Zeilen(0)).Row To Range(Zeilen(1)).Row
 For Spa = 5 To 2 Step -1
 If Cells(Zei, Spa).Value "" Then
 Cells(Zei, 1).Value = "AA-" & Nr(2) & "-" & Nr(3) & "." & Nr(4) & "." & Nr(5)
 Nr(Spa) = Nr(Spa) + 1
 Exit For
 End If
 Next Spa
Next Zei
End Sub

Gruß
Reinhard

#3

Hey,

danke für die schnelle Antwort!
hab etwas mit dem Code ausprobiert, er funktioniert leider nur wenn auch jede meiner Überschriftenebenen ausgenutzt werden. Das ist leider nicht immer der Fall.
ist schwer zu erklären, wie kann man denn hier bilder einfügen?
gruß

#4

hab etwas mit dem Code ausprobiert, er funktioniert leider nur
wenn auch jede meiner Überschriftenebenen ausgenutzt werden.
Das ist leider nicht immer der Fall.
ist schwer zu erklären, wie kann man denn hier bilder
einfügen?

Hi Hon,

Bild ist schlecht, müßte man ja die Tabelle nachbilden. Besser ist du lädst eine Beispielmappe hoch mittels FAQ:2861
Wenn nötig, in Blatt 1 so wie die Daten vorliegen und in Blatt 2 wie sie nach einem makro aussehen sollen.
Das entfällt natürlich wenn man in Blatt 1 erkennen kann warum wieso da in A Werte eingetragen werden.

Gruß
Reinhard

#5

Hallo Reinhard,

Danke für den Tip! hab jetzt mal ein Beispiel wie die Nummerierung aussehen und funktionieren sollte unter folgender Adresse:
http://www.hostarea.de/server-11/November-e6e30fb0cb…

Die erste Zahl steht also für Einträge in Spalte B, die zweite für Spalte C usw. Die Bezeichnung AA verändert sich nicht, da unterschiedliche Tabbelenblätter damit benannt werden.

Gruß
hon