Office: Automatische Nummerierung Excel, wenn in Nachbarzelle bestimmter Wert

Hallo lupo1,

stimmt danke :) So funktioniert es. Allerdings ist es noch nicht so, wie ich es brauche.

Die Nummerierung geht nur bis Unterpunkt x.x.3 und nicht weiter. Es soll flexibel bleiben, weil die Unterpunkte nicht immer die gleiche Anzahl beinhalten (also z.b. 1.1.1, 1.1.2, 1.1.3 aber 2.1.1, 2.1.2, 2.1.3, 2.1.4 --> das ist nicht festgelegt, weil immer neue Aktivitäten hinzukommen könnten).

Und dann sollte die Nummerierung sich auch automatisch anpassen und nicht durch kopieren von Zellen. Die Tabelle wird am Ende nicht für mich sein, sondern für andere, die da eine Checkliste abarbeiten und ggf. selbst Zeilen (insbesondere mit "Aktivität") einfügen müssen, weil sie regelmäßig kontrollieren sollen, ob eine Software nach Updates noch über bestimmte Funktionen verfügt oder ob da neue Funktionen hinzugekommen sind. Da ist es dann nicht so hilfreich, wenn plötzlich die gesamte Nummerierung durchschossen wird.

 

Inhaltliche Antwort zurückgezogen. Somit bleibt mein Konstruktionsmakro als zu befolgendes Gesetz für Bastelheinis und Sonnenwinde.
___________
Crossposter und Ignore als Folge. Von mir also auch keine dynamische Lösung ohne Kopieren mehr!

 

Ich nutze "microsoft 365 apps for enterprise". Geht das ohne Kopieren hiermit und falls ja, wie?

 

Hallo, ich muss mich entschuldigen. Ich habe mich heute das erste Mal in meinem Leben in einem Forum angemeldet und nun auch die Regeln gelesen. Ich hatte keine Ahnung von Crossposting usw. Nach einer Eklärung in einem anderen Forum ergibt es Sinn, das nicht zu tun. Also ich hatte den gleichen Beitrag hier gepostet: Frage - Automatische Nummerierung Excel, wenn in Nachbarzelle bestimmter Wert - MS-Office-Forum
Der kann da aber dann auch wieder gelöscht werden.

Ich hoffe, dass ich nun noch in dem Forum bleiben darf und vielleicht doch noch eine Antwort auf meine Frage finde.

Viele Grüße

 

Code:

Sub GuruLupus()
Dim sGuru As String, sLupo(3) As String, i As Byte, aLupo
aLupo = Array("Ohne VBA", "Mit VBA", "Hä?!", "Mit VBA = Ohne VBA = GuruLupo")
For i = 0 To UBound(aLupo)
    sGuru = aLupo(i)
    MsgBox sGuru
Next i
End Sub

 

Hallo,

für Excel365 müsste auch folgende LAMBDA-Funktion (namens "IDs") zum Ziel führen:

Ich habe sie in der beiliegenden Datei im Namensmanager (unter dem Namen "IDs") gespeichert.
Sie wird in der ID-Spalte der struktur.Tabelle mit der Formel =IDs([@Level]) aufgerufen. Sie hat nur einen Schönheitsfehler: Sie verwendet die volatile Funktion BEREICH.VERSCHIEBEN. Aber dagegen wird sicher jemand ein Mittel parat haben.

 

Hallo Exl121150,

vielen Dank für deine Antwort, die ich jetzt erst zufällig gesehen habe, und für deine Mühe! :) Ich habe in die Datei geschaut und sehr cool, dass das mit 365 funktioniert! Nur, ja es verschiebt sich beim Einfügen einer neuen Zeile. Ich werde deine Antwort aber mit in das von d´r Bastler vorgeschlagene Forum nehmen, in dem gerade eifrig an einer Lösung gefeilt wird.
Automatische Nummerierung mit mehreren Ebenen -

Viele Grüße

 

Exl121150, nee das funktioniert doch! Ich hab grad noch mal rumprobiert und wenn die Werte Registerkarte etc. eingetragen werden, passt sich die Nummerierung an! Das ist ja richtig cool, vielen Dank! Dann verstehe ich nur das "Bereich Verschieben" nicht... was ist das Problem?



@lupo1 dein Konstruktionsmakro befolgt niemand. Es hat das Problem wie gesagt nicht gelöst.

 

Hallo,

von den zu erzielenden Resultaten her ist damit (hoffentlich) alles in Ordnung. Das Problem bei dieser Funktion ist ihr Laufzeitverhalten. Sie ist eine so genannte volatile Funktion. Nicht volatile Funktionen/Formeln werden nur berechnet, wenn sich ihre Parameter dem Wert nach geändert haben, während volatile Funktionen stets berechnet werden, wenn das Arbeitsblatt berechnet wird, egal ob sich ihre Parameterwerte geändert haben oder nicht.

Manchmal gibt es Ersatzlösungen, mit denen man volatile Funktionen umgehen kann, sodass ein Arbeitsblatt, das viele solche Funktionen enthält, schneller berechnet wird, weil nur solche Formeln berechnet werden müssen, wo sich Parameter geändert haben.

Andererseits gibt es Probleme, die sind prinzipiell volatil, egal welche Funktionen dabei eingesetzt werden. In diese Kategorie gehört zB. die "bedingte Formatierung".

 

Hallo,

ich habe die Funktion "IDs" etwas systematischer und flexibler gestaltet und eine 4. mögliche Ebene eingefügt.

Sie ist nach wie vor im Namensmanager unter der Bezeichnung "IDs" zu speichern und ist in der Tabellenspalte "ID" als Formel =IDs([@Level]) einzufügen:

Code:

=LAMBDA(RMA;
    WENNFEHLER(
        LET(LvlMax;4;
            Lvl; ERSTERWERT(RMA;"Registerkarte";1;"Menüpunkt";2;"Aktivität";3;"Teilakt.";4;9);
            LztID; BEREICH.VERSCHIEBEN(RMA;-1;-1;1;1);
            WENN(LztID="ID";
                "1";
                LET(Tr;".";
                    ArrLztID; ERWEITERN(TEXTTEILEN(LztID;Tr);;LvlMax;0);
                    ArrID; ArrLztID+ZEILENWAHL(MEINHEIT(LvlMax);Lvl);
                    TEXTVERKETTEN(Tr;1;ÜBERNEHMEN(ArrID;;Lvl))
        )));
        "--"))