Office: (Office 2003) Zahlen im Text addieren

Helfe beim Thema Zahlen im Text addieren in Microsoft Word Hilfe um das Problem gemeinsam zu lösen; Hallo. Ich suche nach einer Möglichkeit in einem solchen Text: Iif([DezimalZeit102]>1;[Zeit102]) & Iif([DezimalZeit131]>1;" --|-- " &[Zeit131]) &... Dieses Thema im Forum "Microsoft Word Hilfe" wurde erstellt von bimbi, 23. August 2015.

  1. bimbi Neuer User

    Zahlen im Text addieren


    Hallo.

    Ich suche nach einer Möglichkeit in einem solchen Text:

    Iif([DezimalZeit102]>1;[Zeit102]) & Iif([DezimalZeit131]>1;" --|-- " &[Zeit131]) & Iif([DezimalZeit160]>1;" --|-- " &[Zeit160]) & Iif([DezimalZeit189]>1;" --|-- " &[Zeit189])& Iif([DezimalZeit218]>1;" --|-- " &[Zeit218]) & Iif([DezimalZeit247]>1;" --|-- " &[Zeit247]) & Iif([DezimalZeit276]>1;" --|-- " &[Zeit276]) &Iif([DezimalZeit305]>1;[Zeit305]) & Iif([DezimalZeit334]>1;" --|-- " &[Zeit334]) & Iif([DezimalZeit363]>1;" --|-- " &[Zeit363]) & Iif([DezimalZeit392]>1;" --|-- " &[Zeit392])& Iif([DezimalZeit421]>1;" --|-- " &[Zeit421]) & Iif([DezimalZeit450]>1;" --|-- " &[Zeit450])

    alle enthaltenen Zahlen mit 1 zu addieren. Aus 102 sollte 103 werden, aus 131 die 132 usw.

    Gibt es diese Möglichkeit? Ansonsten müsste ich das händisch machen und zwar 30mal mit unterschiedlichn Zahlen.

    Ich freue mich über Tipps.

    Vielen Dank.

    Grüße
    Bimbi
     
  2. Exl121150 Erfahrener User
    Hallo,

    wenn du folgende beide VBA-Funktionen in ein allgemeines VBA-Codemodul kopierst, kannst du deinen Ausdrucksstring entsprechend nach deinen Vorstellungen modifizieren.
    Ich habe dir eine Excel-Datei angefügt, die diese Funktionen bereits enthält.
    Im Arbeitsblatt "Tabelle1" habe ich in die Zelle A6 deinen Beispielausdruck eingefügt und in Zelle A8 folgende Formel:
    =ErhöheVariablenNr(A6)
    sodass dann in dieser Zelle A8 der gewünschte modifizierte Formelausdruck erscheint.

    Voraussetzungen, dass die Modifizierung funktioniert:
    1) Die zu ändernden Variablen müssen alle in "[" und "]" eingeschlossen sein, zB. "[DezimalZeit132]".
    2) Der Inhalt dieser eckigen Klammern wird von meiner 2. Funktion "ScanBez_Add(...)" analysiert und,
    2a) falls er lauter erlaubte Zeichen enthält, wird der Nummernteil des Variablenbezeichners um 1 erhöht.
    2b) falls unerlaubte Zeichen enthalten sind, werden die eckigen Klammern samt Inhalt unverändert übernommen.


    Code:
    Option Explicit
    
    Function ErhöheVariablenNr(Formel As String) As String
      Dim S() As String
      Dim I As Long, Ps As Long
      
      ErhöheVariablenNr = Formel
      On Error GoTo Err_Erhöhe
      
      S$ = Split(Formel, "]")
      For I = LBound(S) To UBound(S) - 1
        Ps = InStrRev(S(I), "[")
        S(I) = Left$(S(I), Ps - 1) & "[" & ScanBez_Add(Mid$(S(I), Ps + 1), 1)
      Next I
      ErhöheVariablenNr = Join(S$, "]")
      
    Err_Erhöhe:
    End Function
    
    Function ScanBez_Add(Bez As String, Erhöh As Integer) As String
      Dim Ps As Long, Ch As String
      Dim PsTxt As Long
      Dim SyntaxOk As Boolean
      Const TxtMatch As String = "[A-Za-zÄÖÜßäöü]"
      Const NrMatch As String = "#"
      
      SyntaxOk = True: PsTxt = 0
      For Ps = Len(Bez) To 1 Step -1
        Ch = Mid(Bez, Ps, 1)
        If PsTxt Then
    TesteNochmals:
          If Not Ch Like TxtMatch Then SyntaxOk = False: Exit For
        Else
          If Not Ch Like NrMatch Then PsTxt = Ps: GoTo TesteNochmals
        End If
      Next Ps
      
      If SyntaxOk Then
        Ch = "": If PsTxt < Len(Bez) Then Ch = Mid(Bez, PsTxt + 1) + Erhöh
        ScanBez_Add = Left(Bez, PsTxt) & Ch
      Else
        ScanBez_Add = Bez
      End If
      
    End Function
    
     
    Exl121150, 26. August 2015
    #2
Thema:

Zahlen im Text addieren

Die Seite wird geladen...
  1. Zahlen im Text addieren - Similar Threads - Zahlen Text addieren

  2. Abstände zwischen Zahlen entfernen - Zu lange Zahlen werden falsch angezeigt

    in Microsoft Excel Hilfe
    Abstände zwischen Zahlen entfernen - Zu lange Zahlen werden falsch angezeigt: Ich habe eine Liste von Zahlen, die nicht korrekt übernommen wurden, sodass immer ein Abstand dazwischen ist. Diese habe ich entfernt, indem ich STRG + H, Abstände entfernen ausgeführt habe. Das...
  3. Text in Zahlen codieren

    in Microsoft Excel Hilfe
    Text in Zahlen codieren: Hallo zusammen ich habe eine Frage bzgl. Text in Zellen, welche systematisch mit numerischen Werten codiert und dann durch diese ersetzt werden sollen. Es geht dabei um eine Auswertung...
  4. Rechnerkennung aus Text-Zahlen-Kombifeld richtig sortieren

    in Microsoft Excel Hilfe
    Rechnerkennung aus Text-Zahlen-Kombifeld richtig sortieren: Hallo, ich würde gerne in Excel 2016 eine Liste mit Geräte Kennungen richtig nach Datum sortieren, die Kennung setzt sich wie folgt zusammen: Hersteller-Monat-Jahr-Lfd.NR-NB=NoteBook...
  5. Zellen mit Zahlen und Text fortlaufend nummerieren

    in Microsoft Excel Hilfe
    Zellen mit Zahlen und Text fortlaufend nummerieren: Hallo zusammen, ich hoffe Ihr könnt mir hier weiterhelfen. Ich möchte Zahlen, die in einer Zelle mit Text stehen fortlaufend nummerieren. In A3:A6 steht bereits die Formel, die das Zahlenformat...
  6. Zahlen mit Text ( 10 Km) addieren

    in Microsoft Excel Hilfe
    Zahlen mit Text ( 10 Km) addieren: Hallo und guten Abend, ich moechte gerne meine taeglichen gefahrenden Kilometer mit Excel erfassen und am Monatsende die Gesamtsumme der gefahrenden Kilometer ermitteln. In der Spalte steht...
  7. DomWert mit 3 Kriterien (Zahl und Text)

    in Microsoft Access Hilfe
    DomWert mit 3 Kriterien (Zahl und Text): Hallo, ich habe einen Bericht in dem ich nach 3 Kriterien aus einer Tabelle einen Wert holen muss. Die Werte Personalnummer und KW sind als Zahl im Bericht (Detailbereich) enthalten. Das dritte...
  8. hochgestellte Zahl andere Schriftart wie der Rest vom Text

    in Microsoft Word Hilfe
    hochgestellte Zahl andere Schriftart wie der Rest vom Text: Hallo, wenn ich in meinem Text eine hochgestellte Zahl einfüge, ist diese leider in einer anderen Schriftart (Calibri) anstatt in z. B. Arial. Wie kann ich das ändern. Gruß Heidi
Schlagworte:
  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