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äge vorhanden 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 dynamisch ermittelt. ' 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, Synology und openmediavault und anderen spannenden IT-Themen. Nutzt Markdown und LaTeX zum Dokumentieren seiner Projekte und Gitea zum Versionieren. Sitzt vor einem 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.
Hallo Stefanda gibt es nicht viel zu sagen!genial!Gruß Michael