Zählfunktion

Computer: Software & Programmierung Office Software
1

Hallo Wissende,

gibt es eine Möglichkeit bzw. Zählfunktion die nur die Zellen
einer Spalte zählt welche einen Kommentar beinhalten ?

Gruß Peter

2

gibt es eine Möglichkeit bzw. Zählfunktion die nur die Zellen
einer Spalte zählt welche einen Kommentar beinhalten ?

Jep, gibts, Anzahl2 genannt.
Funktion wählen, Bereich auswählen. Gezählt werden dann alle „Nicht-leeren“ Zellen.

Cu
Lalle

3

Hi,

ich meine den Zellenkommentar. In der Zelle steht ein Wert und zusätzlich ist ein Kommentar hinterlegt, angezeigt durch eine rote Ecke. Nun will ich alle Zellen mit der roten Ecke zählen.

Gruß Peter

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

4

gibt es eine Möglichkeit bzw. Zählfunktion die nur die Zellen
einer Spalte zählt welche einen Kommentar beinhalten ?

Hi Peter,

Function komm()
Range("A:A").SpecialCells(xlCellTypeComments).Select
komm = Selection.Cells.Count
End Function

Scheinbar einer der seltenen Fälle wo man Select braucht, denn:
komm = Range(„A:A“).SpecialCells(xlCellTypeComments).Cells.Count
klappt nicht, ergibt 65536 ?!
Gruß
Reinhard

5

Hi Reinhard,

das liest sich sehr interessant, nur…
Mit Functions habe ich schon ewig nicht mehr gearbeitet.
Wie baue ich diese Geschichte im Makro ein ?

Sub Count ()
.......
.......
End sub




Function komm()
Range("A:A").SpecialCells(xlCellTypeComments).Select
komm = Selection.Cells.Count
End Function

Wie und womit springe ich in die Function ?
Die Columns lege ich vor dem Makrostart fest.
Mein Dank ist dir gewiss.

Gruß Peter

6

Hallo Peter,
mach aus der Function ne Sub, oder beser, bau sie direkt in das Makro ein.
Gruß
Reinhard

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

7

hier die VBA- Lösung:

Sub zaehleKommentar()
Dim ber As Range
Set ber = Range(„A1“, Range(„A65536“).End(xlUp))
Cells(1,2).Value = ber.SpecialCells(xlCellTypeComments).Count
End Sub