Office: Rechnende Textbereiche

Helfe beim Thema Rechnende Textbereiche in Microsoft Excel Tutorials um das Problem gemeinsam zu lösen; Einleitung In manchen Fällen ist man gezwungen, mit Texten zu rechnen und als Ergebnis für den gleichen Zweck wieder Texte zu erhalten, damit eine... Dieses Thema im Forum "Microsoft Excel Tutorials" wurde erstellt von lupo1, 24. November 2017.

  1. lupo1
    lupo1 Tutorial Guru

    Rechnende Textbereiche



    Einleitung


    In manchen Fällen ist man gezwungen, mit Texten zu rechnen und als Ergebnis für den gleichen Zweck wieder Texte zu erhalten, damit eine Formelreihe möglich wird.


    Inhalt

    26.10.2014: Negative Zeiten (ohne "1904")
    23.11.2017: Bedingte laufende Nummern
    24.11.2017: Englische Datümer



    Negative Zeiten (ohne "1904")

    __|__A_|__B_|__C__|CODETab von lupo1
    1|Soll|Ist |Saldo|
    2| | | 0:00|
    3|4:00|3:00|-1:00|
    4|4:00|3:00|-2:00|
    5|1:00|4:00| 1:00|
    Zellformeln:

    C3: =TEXT(ABS(B3-A3+WENN(CODE(C2)=45;-TEIL(C2;2;9);C2));WENN(B3+WENN(CODE(C2)=45;-TEIL(C2;2;9);C2)<A3;"-";)&"[h]:mm")

    Format der Spalte C (sinnvollerweise): Rechtsbündig
    Eine Formel für die Wiedergabe negativer Zeiten muss 2x2 Konstellationen beherrschen:
    Saldovortrag: Minus (ungültig) oder Plus (gültig), in Kombination mit
    Neuer Saldo: Minus (ungültig) oder Plus (gültig)

    Sub BaueDateiMitNegativenZeiten() 'Code erstellt einmalig Tabelle (diese ist dann ohne VBA)
    Workbooks.Add xlWorksheet
    [F:F].HorizontalAlignment = xlRight
    [A:A].NumberFormat = "m/d/yyyy"
    [B:F].NumberFormat = "[h]:mm"
    [A1:F1] = Split("Datum Start Ende Soll Ist Saldo"): [F2] = 0
    [D3:E9].FormulaArray = "={8,9;8,6;8,7;8,10;6,9;8,7;8,3.5}/24": [D3:E9] = [D3:E9].Value
    a = "IF(CODE(R[-1]C)=45,-MID(R[-1]C,2,9),R[-1]C)"
    [F3:F9] = "=TEXT(ABS(RC[-1]-RC[-2]+" & a & "),IF(RC[-1]+" & a & "<RC[-2],""-"",)&""[h]:mm"")"
    End Sub


    Bedingte laufende Nummern

    __|__A__|___B___|________C_______|CODETab von lupo1
    1|ArtGr|ArtNr |Bemerkung |
    2|17QM | 0,00|Hier Vorlistung!|
    3|17TE | 0,00| |
    4|17QM |17QM001|Hier geht’s los!|
    5|17QM |17QM002| |
    6|17QM |17QM003| |
    7|17TE |17TE001| |
    8|17QM |17QM004| |
    9|17TE |17TE002| |Zellformeln:

    B4: =A4&TEXT(RECHTS(INDEX(B:B;VERWEIS(2;1/(A4=A$2:A3);ZEILE(A$2:A3)));3)+1;"000")

    Vor Zeile 4 werden zunächst die Artikelgruppen aufgelistet.
    Erst danach werden laufende Artikelnummern, die die bekannten Artikelgruppen enthalten, vergeben.


    Englische Datümer

    __|______A______|______B______|____C___|____D____|CODETab von lupo1
    1|Aktueller M |VorM |VorJ-M |VorJ-VorM|
    2|ohne |MMMM JJJJ |MMM JJJJ|MMM JJ |
    3|Formel | -1,00| -365,00| -393,00|
    4| | | | |
    5|March 2017 |February 2017|Mar 2016|Feb 16 |
    6|February 2017|January 2017 |Feb 2016|Jan 16 |
    7|January 2017 |December 2016|Jan 2016|Dec 15 |
    8|December 2016|November 2016|Dec 2015|Nov 15 |Zellformeln:

    B5: =TEXT(WECHSELN(WECHSELN(WECHSELN(WECHSELN(WECHSELN(WECHSELN(WECHSELN($A5;"arch";"ärz");"Mar";"Mrz");"ry";"r");"y";"i");"ec";"ez");"c";"k");"ne";"ni")+B$3;"[$-809]"&B$2)

    Die Parametrisierung in Zeile 2 und 3 sorgt a) für das Format und b) für den "Shift", also den gewünschten Monatsversatz von -1, -12 und -13. Letzteres ist in Tagen -1, -365 und -393.

    Ohne die Parametrisierung kann die Formel auch etwas kürzer sein, bspw. mit einem WECHSELN weniger. Oder man begnügt sich mit (unter Mitwirkung von neopa):

    B5: =TEXT((SUCHEN(TEIL($A5;2;2);" anebarprayunulugepctovec")/2&-RECHTS($A5;4))+B$3;"[$-809]MMMM JJJJ")

    Luc (nicht in eigener Urheberschaft, Quelle noch offen) bietet noch eine internationale Fassung an (hier um .2017 gekürzt):

    B5: {=
    TEXT(("1-"&VERGLEICH(LINKS(A5;LÄNGE(A5)-5);
    TEXT(DATWERT(WECHSELN("1.#";"#";SPALTE($A:$L)));
    "[$-809]MMMM");0)&"-"&RECHTS(A5;4))-1;
    "[$-809]MMMM JJJJ")
    }

    Die Formel ist ohne {} einzugeben und mit Strg-Umschalt-Eingabe abzuschließen. Die englische Lokalisierung [$-809] kann einfach ausgetauscht werden, z.B. in [$-40c] für französisch. Hier noch Lesenswertes von Mynda Treacy dazu.
     
    Zuletzt bearbeitet: 15. März 2022
Thema:

Rechnende Textbereiche

Die Seite wird geladen...
  1. Rechnende Textbereiche - Similar Threads - Rechnende Textbereiche

  2. Erstellen eines Organigramms mit dem Textbereich

    in Microsoft PowerPoint Tutorials
    Erstellen eines Organigramms mit dem Textbereich: https://wus-streaming-video-rt-microsoft-com.akamaized.net/44dc738d-1664-45a0-8007-b38d9b1a5534/d02ff588-229d-4da0-b016-3dd540a4_3400.mp4 Übersicht...
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden