Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Zahlen von Kommentaren addieren / Zusatz

Zahlen von Kommentaren addieren / Zusatz
31.08.2016 13:15:29
Kommentaren
Hallo zusammne,
dank diesem Forum habe ich die Aufgabe vor ein paar Wochen gelöst bekommen.
https://www.herber.de/cgi-bin/callthread.pl?index=1510218&email=tomfox@web.de#1510260
Nun möchte ich aber gerne zu den Zahlen im Kommentar z.B. noch die Rechnungs-Nr. dazu schreiben. Wie zu erwarten findet dann eine Addition nicht mehr statt ....
Hat jemand ne Lösung, wie der Wert im Kommentar trotz Zahlen und Text ausgelesen werden kann.
Anbei die Bsp-Datei. https://www.herber.de/bbs/user/107918.xlsm
Reiter "Nur Zahlen" in rot * funktioniert einwandfrei
Reiter "Zahlen und Text" in gelb * keine Addition ...
Wäre super, wenn hier jemand ne Lösung hätte.
Danke vorab.
Gruß
TOM
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zahlen von Kommentaren addieren / Zusatz
31.08.2016 13:51:21
Kommentaren
Hi Tom
Sub t()
Dim c As Range, i As Integer
Dim sKommentar As String, ar As Variant
Dim tempWert As Variant, tempTotal As Currency
For Each c In ActiveSheet.Cells.SpecialCells(xlCellTypeComments)
tempTotal = 0
ar = Split(c.Comment.Text, Chr(10))
For i = 0 To UBound(ar)
If InStr(ar(i), " ") > 0 Then
tempWert = Left(ar(i), InStr(ar(i), " "))
Else
tempWert = ar(i)
End If
If IsNumeric(tempWert) Then tempTotal = tempTotal + CCur(tempWert)
Next i
c = tempTotal
Next c
End Sub

cu
Chris
Anzeige
AW: Zahlen von Kommentaren addieren / Zusatz
31.08.2016 13:56:37
Kommentaren
Super Chris Vielen Dank!
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige