In einer Spalte stehen unterschiedliche Werte, von denen einige doppelt aufgelistet werden. Man möchte aber die Anzahl der Einträge ermitteln, wobei die Doppelten nur als ein Eintrag gezählt werden sollen.

Option Explicit Sub Anzahl() Application.ScreenUpdating = False ' ' Ermittelt, wie viele unterschiedliche Einträgevorhanden sind ' Grundlage der Prüfung = Index ' Dim objDictionary As Object Dim Bereich As Variant Dim lngZaehler As Long Dim arrDaten As Variant Set objDictionary = CreateObject("Scripting.Dictionary") With Worksheets("Tabelle1") ' ' Der Bereich wie dynamischermittelt. ' Dadurch wird sichergestellt, dass auch bei leeren Zellen der gesamte Bereich ausgewertet wird. ' Bereich = .Range("A3", .Range("A3").End(xlDown)) End With ' Schleife über alle Werte For lngZaehler = LBound(Bereich) To UBound(Bereich) ' Eintrag wird nur übernommen wenn er im DictionaryObject noch nicht enthalten ist objDictionary(Bereich(lngZaehler, 1)) = 0 Next 'MsgBox "Es sind " & objDictionary.Count & " unterschiedliche einträge vorhanden." _ ' , vbInformation, "Anzahl Index" Worksheets("Tabelle1").Range("C2").Value = "Anzahl" Worksheets("Tabelle1").Range("C3").Value = objDictionary.Count End Sub

ist absolut technik-begeistert und großer Fan von Linux und Open Source. Raspberry Pi Bastler der ersten Stunde und nach wie vor begeistert von dem kleinen Stück Hardware, auf dem er tolle Projekte umsetzt. Teilt hier seine Erfahrungen mit Nextcloud, Pi-hole, YubiKey und anderen spannenden IT-Themen. Nutzt Markdown und LaTeX zum Dokumentieren seiner Projekte und Gitea zum Versionieren. Sitzt vor einem riesen 49“ Monitor, nutzt Windows und MacOS zum Arbeiten, Linux auf seinen Servern und virtuellen Maschinen und hört dabei Spotify und MP3s und Radio-Streams über seinen RadioPi.
Trinkt gerne fairen Kaffee und freut sich deshalb sehr über jede Spende.
Hallo Stefanda gibt es nicht viel zu sagen!genial!Gruß Michael