Lassen sich Zellen mit einem bestimmten Begriff in den Kommentaren (Beispiel: Krankmeldungen) innerhalb einer Tabelle summieren?
Wenn ja, kann mir jemand aufzeigen wie das zu machen ist?
Danke und Gruß
Werner Golla
Function KomSumme(Rng As Range, Optional strSpace As String) As Long
Dim C As Range
'Dim Pos1 As Long
For Each C In Rng
If Not C.Comment Is Nothing Then
If InStr(C.Comment.Text, strSpace) > 0 Then
strZahl = C.Value * 1
KomSumme = KomSumme + strZahl
End If
End If
Next
KomSumme = KomSumme
End Function
und wird mit der Formel =KomSumme(A1:B12;"Krankmeldung") für den bereich A1:B12