Bis zu drei Zeitpaare in eine Zelle berechnen

Hallo,
Ein vorigen Thread konnte ich nicht weiter beschreiben, weshalb weiß ich nicht, und weshalb ich hier ein Neue zum gleichen Thema aufmache:
Jede Monat muss ich für jeden Tag meine gearbeitete Stunden aufschreiben. Für die Eintragung habe ich jeweils nur eine Zelle zur Verfügung. ZB. kommt in die Zelle 6-8,5 oder 6-8,5 9-11 oder 6-8,5 9-11 14-19, zu stehen (mehr als drei Zeitpaare kommen aber nicht herein).
Aufgabe ist hier, zunächst heraus zu finden wieviel Zeitpaare in der Zelle stehen um dann die Berechnung durchführen zu können, für die drei Zeitpaare wäre das: 8,5-6 + 11-9 + 19-14
Durch Anregung und Suchen habe ich folgendes herausgefunden um die Menge der Zeitpaare zu bestimmen
=LINKS(A1;FINDEN(" ";A1)-1) so finde ich 6-8,5 (hier liegt wohl ein Fehler vor, sehe ich grad, weil es hier um ein einzelne Zeitpaar handelt und damit kein Leerzeichen enthält)
=TEIL(A1;FINDEN("##";WECHSELN(A1;" ";"##";1)+1;FINDEN("##";WECHSELN(A1;" ";"##";2))-FINDEN("##"; WECHSELN(A1;" ";"##";1))-1) so finde ich 9-11
=TEIL(A1;VERWEIS(9^9;FINDEN(" ";A1;ZEILE(1:999)))+1;9^9) so finde ich 14-19
Für die Berechnung:
=WERT(RECHTS(A12;LÄNGE(A12)-FINDEN("-";A12)))-WERT(LINKS(A12;FINDEN("-";A12)-1)) findet 2,5
Wenn ich das paar umkehre, 8,5-6, ist das eine Möglichkeit, eine andere wäre das - durch + zu ersetzen und vor dem Zahl 6 ein - schreiben zu lassen.
Hier komme ich mit meinem Denken einfach nicht mehr weiter und brauche Euer Rat um eine schlanke und kurze Formel zu finden!
Schönen Dank!
Erik
PS. Die Anregung von Michael, (danke schön!), mehrere Zellen für die Eintragung zu nehmen ist gut, gleichzeitig für uns als Anwender nicht praktikabel, weil es zu viel Platz weg nimmt und mühsam ist, wir wollen schnell unsere Zeiten geschrieben haben, deshalb sollen alle an dem Tag gearbeitete Zeiten in eine einzelne Zelle geschrieben werden können.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi zusammen,
nee, nicht String, ich hab's doch schon geschrieben, dann lieber so:

Function rechnen(s As Variant) As Variant
If Len(s)

Das Problem bei Deiner weiteren Frage ist, daß eine benutzerdefinierte Funktion nur Zellen verwurschteln kann, die als Parameter übergeben wurden (also in Klammern in der Zeile Function...); eine Ausgabe in andere Zellen ist nicht möglich.
Ausweg ist eine "Array-Formel", die dann etwa so aussehen könnte:

Function rech(s As Variant) As Variant
Dim a(1 To 2) As Variant
If Len(s)

Bedient wird sie so, daß der Zielbereich, in den die Formel Werte schreiben soll, selektiert wird, dann wird die Formel eingegeben und mit Strg-Umschalt-Enter abgeschlossen, woraufhin sie in {} angezeigt wird.
In der Datei sind das die jeweils farblich markierten Bereiche...
Naja, eine einfacher zu handhabende Möglichkeit ist wohl, mit einem Workheet_Change-Ergeignis zu überprüfen, ob ein Wert in Spalte A geändert wurde und dann beliebige Rechenergebnisse in beliebige Zellen zu schreiben.
Aber: Du hast mittlerweile so viel neues Zeug aufgebracht, daß ich für eine weitere Bearbeitung gerne eine Beispieldatei mit dem aktuellen Stand hätte, selbstverständlich anonymisiert, und am besten mit farblich hervorgehobenen Einträgen dessen, was Du gerne hättest.
Die Datei: https://www.herber.de/bbs/user/103290.xls
Schöne Grüße,
Michael

Beliebteste Forumthreads (12 Monate)

Bis zu drei Zeitpaare in eine Zelle berechnen

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

210 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Bis zu drei Zeitpaare in eine Zelle berechnen

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

210 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread