Office: (Office 365) Formel automatisch aktualisieren

Hallo,
ich habe folgende Formel, die einen Teil aus dem Dateinamen herauslesen soll:

="Rechn.-Nr. LU23-"&TEIL(ZELLE("Dateiname");SUCHEN("[";ZELLE("Dateiname"))+1;SUCHEN("_";ZELLE("Dateiname");SUCHEN("[";ZELLE("Dateiname")))-1-SUCHEN("[";ZELLE("Dateiname")))

leider aktualisiert sich die Formel bei Umbenennung des Dateinamens nicht.
Wo ist mein Fehler?

danke schon mal

Gruß Stephan

 

Hallo,

das ist klar. Du verwendest die Funktion ZELLE("Dateiname"). Diese Funktion ZELLE(...) verwendet den konstanten Parameter "Dateiname", der sich nicht ändert, auch wenn sich der Dateiname aktualisiert oder durch den Dateipfad ergänzt wird. Excel kann das nicht automatisch erkennen. Erst wenn man mittels F9-Taste eine manuelle Aktualisierung anstößt, überprüft Excel dies genauer.

Aber da du Excel365 hast, hättest du dieses Formelmonster weit einfacher erzeugen können:

Code:

=LET(
    dt; ZELLE("Dateiname");
    lp; SUCHEN("["; dt);
    lu; SUCHEN("_"; dt; lp);
    "Rechn.-Nr. LU23-" & TEIL(dt; lp + 1; lu - 1 - lp)
)

und falls im Dateipfad kein "_" enthalten ist, hätte auch Folgendes genügt:
=LET(
dt; ZELLE("Dateiname");
dtn; TEXTTEILEN(dt; {"[". "_"});
"Rechn.-Nr. LU23-" & INDEX(dtn; 2)
)

 

Hallo,

es geht noch etwas einfacher als meine erste Variante:

Code:

=LET(
    dt; ZELLE("Dateiname");
    Anfg; SUCHEN("["; dt)+1;
    Ende; SUCHEN("_"; dt; Anfg);
    "Rechn.-Nr. LU23-" & TEIL(dt; Anfg; Ende-Anfg)
)

 

Vielen Dank funktioniert super, bis auf das aktualisieren Problem ;) werde ich wohl F9 oder wenn sich ein Wert ändert machen müssen.

Gibt es eine Möglichkeit einen Teil davon als Bold dazustellen?

Gruß Stephan

 

Hi,

eine kleine Anmerkung: Bei Zelle sollte man immer den optionalen Bezug mit angeben, sonst bezieht sich die Funktion auf ActiveCell. Und die kann durchaus auch auf einem anderen Blatt (was hier egal wäre) oder sogar in einer anderen Datei sein (was hier absolut nicht egal wäre).

EDIT: Da sich der Dateiname ja nur ändern kann, wenn man die Datei speichert, könnte man dafür das entsprechende Event verwenden:

Code:

Private Sub Workbook_AfterSave(ByVal Success As Boolean)
Me.Calculate
End Sub