ist es möglich, die zahlenin Kommentarenzu addieren und in dieZelle auslesen zu lassen, der der Kommentarzugefügt wurde?
Bsp
https://www.herber.de/bbs/user/107722.xlsx
Danke vorab
TOM
Dim Farbe, RnG As Range, MeineSumme
Farbe = 65280
For Each RnG In Selection
If RnG.Interior.Color = Farbe Then
MeineSumme = MeineSumme + RnG
End If
Next
MsgBox MeineSumme
Gruß MatthiasSub 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)
tempWert = Replace(Replace(ar(i), ".", ""), ",", ".")
If IsNumeric(tempWert) Then tempTotal = tempTotal + CCur(tempWert)
Next i
c = tempTotal
Next c
End Sub