Alle Zahlen innerhalb einer Zelle addieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Public Function addTextTeile(t As Range) As Double Dim a, var, summe As Double a = Split(t, " ") For Each var In a If IsNumeric(var) Then summe = summe + CDbl(var) Next addTextTeile = summe End Function

Hi
ohne VBA könnte es so gehen, das ist dann allerdings statisch, dh der Vorrang müsste wiederholt werden, wenn sich der Zellwert ändert:
1. führe mit der Spalte A die Aktion DATEN - DATENTOOLS - TEXT IN SPALTEN aus, mit dem Leerzeichen als Trennzeichen. Gib ggf im Schritt 3 die Zelle B1 als Ziel ein, damit die Ausgangswerte nicht überschrieben werden.
Dabei wird jedes Wort in eine neue Zelle in der gleichen Zeile geschrieben (der Platz sollte vorhanden sein)
die Zahlen aus dem Text werden dabei in echte Zahlen umgewandelt.
2. Bilde die Summe über die Zeile 1 bzw die neu entstandenen Zellen.
in der Funktion SUMME stören die Texte in den Zwischenzellen nicht.
Mit VBA kannst du das über folgende benutzerdefinierte Funktion lösen.
1. kopiere diesen Code in ein allgemeines Modul der Tabelle:

Function SummeAusText(txt As String) As Double
Dim x
For Each x In Split(txt, " ")
If IsNumeric(x) Then SummeAusText = SummeAusText + CDbl(x)
Next
End Function

2. Schreibe in die Zelle B1 die Formel: =SummeAusText(A1)

Gruß Daniel

Höflichkeit muss man besitzen und sich im Gegenzug auch verdienen, Daniel!
Eine einfache Lösung mit Bordmitteln kann auch sehr sinnvoll sein, vor allem dann, wenn der DatenUmfang nicht allzu groß und die Sache eilig ist. Anderenfalls könnte aber auch eine halbe Stunde Arbeit + 10min PgmLaufzeit einer Arbeit von mehreren Tagen ggüberstehen…
Aber darum ging's Lupo hier ja nicht! Er hatte primär doch nur bedauert, dass - wie so oft - nur die letzte AW/Lösung vom FrageSteller g/benutzt wird (und dabei seine raffinierte ohne VBA unter den Tisch fällt), wobei ja offen blieb, welches von deinen Angeboten er nun tatsächlich verwendet hat! Aber wenigstens hat er sich überhpt zu den Lösungen geäußert und zumindest den Ersteller der von ihm verwendeten Lösung genannt. Das ist ja oft auch nicht mal der Fall.
Falls es doch die UDF war, weißt du ja, was ich von solchen Trivial-UDFs halte. Xl hat ja schon eine SummenFkt, folglich muss man keinerlei spezielle SummenFktt dazu erfinden, sondern nur das ergänzen, was in Xl fehlt → hier die Isolation der Zahlenwerte aus einem Text. Das kann man mit StandardMethoden bzw -Fktt tun oder UDFs schreiben/benutzen, die das erledigen. Damit ergänzt man den großen Xl-Baukasten um weitere Steine, nicht gleich komplette Häuser (die hier kaum die „AnwendungsFreundlichkeit“ einer einfachen Xl-Logik-Fkt wie UND/ODER hätten).
Und das mit dem RechtHaben (wollen) ist ja nun wirklich eher deine Domäne. Ansonsten gilt stets nur, man hat recht (mitunter auch zT) oder eben nicht, aber beides muss bewiesen, nicht nur behauptet wdn (wie weiland im WENN-Fall), soweit es machbar ist (gewisse Spekulationen müssen auch in Wissenschaftsdisziplinen [auch IT] erlaubt sein, quasi wissenschaftliches brainstorming). Unbewiesene oder gar falsche Behauptungen sind eher in Gesellschaft(swissenschaften), Politik und Medien üblich, aber auch die verfolgen meist einen bestimmten Zweck (neudeutsch fake news).
Übrigens, in antiken und wohl auch mittelalterlichen Argumentations- und Rededuellen trug derjenige den Sieg davon, der das letzte Wort hatte, so aberwitzig seine Argumente auch sein mochten…
🙈 🙉 🙊 🐵 Gruß, Luc :-?
„Die Intelligenz ist auf diesem Planeten eine Konstante, die Bevölkerung nimmt aber zu!“ Auch deshalb informieren mit …

Beliebteste Forumthreads (12 Monate)

Alle Zahlen innerhalb einer Zelle addieren

22
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Alle Zahlen innerhalb einer Zelle addieren

22 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

22
Beiträge zum Forumthread

Beiträge zu diesem Forumthread