Thema Datum  Von Nutzer Rating
Antwort
22.07.2018 09:56:52 Alexander
NotSolved
22.07.2018 11:17:54 Günther
NotSolved
Rot VBA - Anzahl verschiedener Einträge in intelligenter Tabelle zählen
 22.07.2018 12:53:41 Gast16974
Solved

Ansicht des Beitrags:
Von:
Gast16974		 Datum:
22.07.2018 12:53:41		 Views:
1066		 Rating:
     
Antwort:
 Nein
Thema:
VBA - Anzahl verschiedener Einträge in intelligenter Tabelle zählen

Hallo Günther,

das habe ich schon gemacht. Leider schreibt er mir in die Zelle dann die gesamte Formel. Allerdings möchte ich nur das Ergebnis. Habe mein Problem eben lösen können mit einer Funktion (was bisher neu für mich war)

Function Anzahl()
Dim rngC As Range, objCounter As Object
  Set objCounter = CreateObject("scripting.dictionary")
    For Each rngC In Worksheets("Name_des_Worksheets").Range("Name_der_Tabelle[Spaltenüberschrift]")
      If rngC <> "" And Not objCounter.exists(rngC.Value) Then _
        objCounter.Add rngC.Value, rngC.Value
    Next
  Anzahl = objCounter.Count
End Function
 
Klappt bei mir mit diesem Code hervorragend. Ich schreibe in ein Makro einfach...
 
msgbox anzahl
 
.. und bekomme das Ergebnis. Habe den Code von dieser Seite adaptiert: 

http://www.herber.de/forum/archiv/1176to1180/1176499_Anzahl_aus_Zaehlen_ohne_Duplikate_in_VBA.html

 

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
22.07.2018 09:56:52 Alexander
NotSolved
22.07.2018 11:17:54 Günther
NotSolved
Rot VBA - Anzahl verschiedener Einträge in intelligenter Tabelle zählen
 22.07.2018 12:53:41 Gast16974
Solved