Inhalt eines Kommentars pro Zelle zählen

Mitglied: Dani

Dani (Level 5) - Jetzt verbinden

03.03.2016, aktualisiert 04.03.2016, 1291 Aufrufe, 9 Kommentare

Hallo zusammen,
ich habe eine Excel Tabelle, in der einige Werte stehen. Pro Zelle wurde per Kommentarfunktion einen bzw. mehreren Namen hinterlegt. Beispiel:
Nun würde ich gerne die Anzahl der Einträge als Wert in die Zelle schreiben lassen:
740fb50205ae699f54193ce35889fab1 - Klicke auf das Bild, um es zu vergrößern

Ich würde fast Wetten, dass es über VB als Funktion möglich ist. Aber mir fehlt der Ansatz, wie man solch eine Funktion aufbaut. :-) face-smile


Gruß,
Dani

Mitglied: 114757
114757 (Level 4)
LÖSUNG 03.03.2016, aktualisiert 04.03.2016
Moin Dani,
z.B. als Funktionsmakro das du als Formel benutzen kannst:
Formel ist dann z.B.
Gruß jodel32
Bitte warten ..
Mitglied: Dani
03.03.2016 um 12:35 Uhr
Hi jodel32,
du bist der Beste. Ich hätte es komplizierter vorgestellt.
Die Funktion läuft wie eine Eins. Allerdings wird nach Kommentaränderung die Zahl im Feld nicht aktualisiert, obwohl ich eigentlich mit ENTER ins nächste Feld springe. Ich denke mal, das ist eine Eigenheit bei den Kommentaren?!


Gruß,
Dani
Bitte warten ..
Mitglied: 114757
114757 (Level 4)
03.03.2016, aktualisiert um 12:44 Uhr
Zitat von @Dani:
Die Funktion läuft wie eine Eins. Allerdings wird nach Kommentaränderung die Zahl im Feld nicht aktualisiert, obwohl ich eigentlich mit ENTER ins nächste Feld springe. Ich denke mal, das ist eine Eigenheit bei den Kommentaren?!
Ja die triggern kein Update für die Berechnung von Formeln, ich überlege mir gleich mal einen Workaround dafür.
Bitte warten ..
Mitglied: 116301
116301 (Level 1)
LÖSUNG 03.03.2016, aktualisiert 04.03.2016
Hallo Dani!

Wenn Du nach der Eingabe in eine andere Zelle wechselst, dann sollte es z.B. so gehen:
Und in den Formelcode noch das hier einfügen:

Gruß Dieter
Bitte warten ..
Mitglied: Dani
04.03.2016, aktualisiert um 11:28 Uhr
Guten Morgen,
vielen Dank für die Ergänzung. Leider passiert nach wie vor nichts, beim Wechseln der Zelle. Der Code sieht aktuell so aus:

Abgelegt habe ich das Ganze in einem Module.


Gruß,
Dani
Bitte warten ..
Mitglied: 114757
114757 (Level 4)
LÖSUNG 04.03.2016, aktualisiert um 18:13 Uhr
Zitat von @Dani:
Abgelegt habe ich das Ganze in einem Module.
Das ist nicht richtig. Die Function kannst du dort lassen, aber die Worksheet_Selectionchange_Sub muss in den Codeabschnitt des Worksheets, damit das Event fired.

Und das Application.Volatile fehlt am Anfang der Function.
Bitte warten ..
Mitglied: 116301
116301 (Level 1)
LÖSUNG 04.03.2016, aktualisiert um 18:13 Uhr
Hallo Dani!

Sorry, hätte ich besser erklären sollen:-( face-sad, was Jodel erfreulicher Weise inzwischen nachgeholt hat:-) face-smile

Gruß Dieter

PS.
ändere
nach

Bitte warten ..
Mitglied: Dani
04.03.2016 um 15:28 Uhr
Hallo ihr zwei,
Und das Application.Volatile fehlt am Anfang der Function.
Wusste ich nicht, ich hab's wie oben gepostet einfach ans Ende gestellt. :-) face-smile

aber die Worksheet_Selectionchange_Sub muss in den Codeabschnitt des Worksheets, damit das Event fired.
Ah... das war mich nicht klar. Danke.

Ich arbeite die Änderungen später ein und poste den funktionieren Code hier nochmals.


Gruß,
Dani
Bitte warten ..
Mitglied: Dani
04.03.2016, aktualisiert um 18:13 Uhr
Untenstehend die finale Lösung für meine Frage.

Zerst habe ich ein neues Modul in der betroffenen Exceldatei angelegt mit folgenden Inhalt:

In der jeweiligen Arbeitsmappe per Doppelklick aufrufen und diesen Code einfügen:

In Zeile 2 kann der Bereich entsprechend verkleinert bzw. vergrößtert werden.

Vielen Dank nochmal an euch beide! Schönes Wochende!


Gruß,
Dani
Bitte warten ..
Heiß diskutierte Inhalte
Exchange Server
Sicherheits-Update KB5001779 für Exchange 2013-2019
kgbornVor 1 TagInformationExchange Server8 Kommentare

Microsoft hat zum 13. April 2021 das Sicherheitsupdate KB5001779 für Exchange 2013-2019 veröffentlicht, um vier RCE-Schwachstellen zu schließen. Das Update sollte zeitnah installiert werden. ...

Datenschutz
Regierung testet Einsatz von Microsoft Azure-Cloud für die Bundescloud
VisuciusVor 1 TagInformationDatenschutz34 Kommentare

LÄUFT! Deutschland will Microsoft für die Bundescloud testen Ich hätts ja beinahe unter dem Topic "Humor" veröffentlicht. Aber der 1. April ist ja durch ...

Server
Server Anbieter mit 2 NICs gesucht
gelöst SilvergreenVor 1 TagFrageServer16 Kommentare

Hallo Community, ich bin auf der Suche nach einem Serveranbieter, der VPS/Cloud Server mit 2 Netzwerkkarten anbietet. Eine Internetsuche brache mich da leider nicht ...

Festplatten, SSD, Raid
Festplatte aus defekten Notebook ausgebaut - wird nicht erkannt - Wie gelange ich an meine Daten?
1nCoreVor 18 StundenFrageFestplatten, SSD, Raid11 Kommentare

Hallo liebe Community, nach 7 Jahren hat mein XMG Notebook seinen Geist aufgegeben In dem Notebook waren zwei Festplatten verbaut (eine für System und ...

Internet
Woher holt sich Android die Kontaktdaten von unbekannten Rufnummern?
gelöst anteNopeVor 21 StundenFrageInternet8 Kommentare

Hallo zusammen, seit einiger Zeit merke ich, dass mir mein Android Gerät Namen und Informationen zu mir unbekannten Teilnehmern präsentiert. Soll heißen eine nicht ...

Windows Netzwerk
MS Lizenzierung - externe Scandienstleistung
monstermaniaVor 20 StundenFrageWindows Netzwerk9 Kommentare

Hallo Allerseits, ich habe da mal eine Frage an die MS Lizenzspeziallisten. Eine externe Firma soll Scandienstleistungen für uns erledigen. Dazu ist angedacht, dass ...

Exchange Server
Exchange Update CU19 auf CU20 Fehler - Eine weitere Version dieses Produkts ist bereits installiert
gelöst StefanKittelVor 19 StundenFrageExchange Server6 Kommentare

Hallo, ich habe hier einen Exchange 2016 mit CU19 (15.1.2176.2). Darauf wollte ich nun CU20 installiert. Download Es erscheint Eine weitere Version dieses Produkts ...

Exchange Server
April 2021 Microsoft Exchange Server Security Updates
FrankVor 1 TagInformationExchange Server2 Kommentare

Microsoft has released security updates for vulnerabilities found in: Exchange Server 2013 Exchange Server 2016 Exchange Server 2019 These updates are available for the ...