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.
Trinkt gerne fairen Kaffee und freut sich deshalb sehr über jede Spende.
• 
Hallo Stefanda gibt es nicht viel zu sagen!genial!Gruß Michael