Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1400to1404
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1400to1404
1400to1404
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

im Bereich Kommentare zählen

im Bereich Kommentare zählen
03.01.2015 20:34:50
Ilch

Hallo
Irgendwie finde ich nicht richtiges um Kommentare im bestimmten bereich zu zählen.
wenn also im Bereich B7:CP12 Zellen mit Kommentaren sind soll das in Zelle B 20 gezählt werden.
Ist das mit einer Formel möglich, wenn ja wie oder muss ich dazu VBA Code erstelLEN
Grüße Ilch

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: im Bereich Kommentare zählen
03.01.2015 21:34:15
Hajo_Zi 

Option Explicit
Sub Kommentar()
Dim Razelle As Range
Dim LoAnzahl As Long
For Each Razelle In Range("B7:CP12")
If Not Razelle.Comment Is Nothing Then
LoAnzahl = LoAnzahl + 1
End If
Next Razelle
Range("B20") = LoAnzahl
End Sub


Anzeige
AW: im Bereich Kommentare zählen
04.01.2015 10:20:41
Beverly
Hi,
du kannst eine Benutzerdefinierte Funktion, also eine Kombination aus VBA und Formel verwenden: schreibe dazu folgenden Code in ein allgemeines Modul
Function Kommentare(rngBereich As Range) As Long
Dim lngZellen As Long
Dim rngZelle As Range
Application.Volatile
For Each rngZelle In rngBereich
If Not rngZelle.Comment Is Nothing Then lngZellen = lngZellen + 1
Next rngZelle
Kommentare = lngZellen
End Function
In B20 schreibst du dann folgende Formel: =Kommentare(B7:CP12)
Wenn du allerdings neue Kommentare hinzufügst oder vorhandene löschst, musst du einmal F9 zum Aktualisieren des Ergebnisses drücken.

Anzeige
AW: im Bereich Kommentare zählen
04.01.2015 15:56:12
ilch
Hallo Beverly und Hajo
Danke für Eure Antworten, leider funktionieren beide Sachen nicht richtig.
Bei Hahns Code kommt keine Fehlermeldung es wird aber leider immer nur eine 0 angezeigt obwohl 5 Kommentare vorhanden
Sind. Und bei Beverlis Code kommt dann in der Zelle nur #Wert
Grüße
Ilch

AW: im Bereich Kommentare zählen
04.01.2015 15:57:50
Hajo_Zi
in meiner Datei geht es. Deine Sehe ich nicht.
Zu Hahns Code kann ich nichts schreiben da ich den nicht sehe.
Gruß Hajo

AW: im Bereich Kommentare zählen
04.01.2015 16:17:06
ilch
Hallo Hajo
Upps sorry hatte mit Handy geantwotet da ich jetzt auf Arbeit bin.
Sollte natürlich Hajo Code heisen.
Wenn ich es schaffe lade ich heute Abend die Datei mal hoch
Grüße
Ilch

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige