Zellen mit Kommentare addieren

Forumthread: Zellen mit Kommentare addieren
3 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Zellen mit Kommentare addieren

18.10.2012 11:58:35

Werner

Hallo Forum,
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

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zellen mit Kommentare addieren

18.10.2012 12:56:07

selli
...Weshalb man in solchen Fällen besser mit ...

18.10.2012 13:22:56

Luc:-?
AW: Zellen mit Kommentare addieren

18.10.2012 13:30:56

selli

AW: Zellen mit Kommentare addieren

18.10.2012 12:56:07

selli

hallo werner,
so ohne weiteres ist das nicht möglich.
man müsste sich hier eine eigene funktion programmieren.
gruß selli

...Weshalb man in solchen Fällen besser mit ...

18.10.2012 13:22:56

Luc:-?

…Signierungen arbeitet, Werner!
Gruß Luc :-?

AW: Zellen mit Kommentare addieren

18.10.2012 13:30:56

selli

hallo werner,
die funktion könnte dann etwa so aussehen:

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
aufgerufen.
zu beachten wäre noch, dass eine änderung im kommentar nicht als ereignis erkannt wird und manuell eine berechnung angestoßen werden muss.
gruß selli