{"id":4345,"date":"2023-07-11T20:09:33","date_gmt":"2023-07-11T20:09:33","guid":{"rendered":"https:\/\/statorials.org\/de\/vba-anzahl-eindeutig\/"},"modified":"2023-07-11T20:09:33","modified_gmt":"2023-07-11T20:09:33","slug":"vba-anzahl-eindeutig","status":"publish","type":"post","link":"https:\/\/statorials.org\/de\/vba-anzahl-eindeutig\/","title":{"rendered":"So z\u00e4hlen sie mit vba eindeutige werte im bereich"},"content":{"rendered":"

<\/p>\n

\n

Sie k\u00f6nnen die folgende grundlegende Syntax verwenden, um mithilfe von VBA die Anzahl der eindeutigen Werte in einem Bereich zu z\u00e4hlen:<\/span><\/p>\n

 SubCountUnique<\/span> ()\n    Dim<\/span> Rng As<\/span> Range, List As<\/span> Object, UniqueCount As<\/span> Long\n    Set<\/span> List = CreateObject(\" Scripting.Dictionary<\/span> \")\n    \n    'count unique values in range A2:A11<\/span>\n    For<\/span> Each<\/span> Rng In<\/span> Range(\" A2:A11<\/span> \")\n      If Not<\/span> List.Exists(Rng.Value) Then<\/span> List.Add Rng.Value, Nothing\n    Next<\/span>\n    \n'store unique count\n<\/span>UniqueCount = List.Count\n    \n    ' display unique count<\/span>\n    MsgBox \" Count of Unique Values:<\/span> \" & UniqueCount<\/span>\n\nEnd Sub\n<\/span><\/strong><\/span><\/pre>\n
 Dieses spezielle Beispiel z\u00e4hlt die Anzahl der eindeutigen Werte im Bereich A2:A11<\/strong> und zeigt die Anzahl dann in einem Meldungsfeld an.<\/span><\/p>\n
 Das folgende Beispiel zeigt, wie diese Syntax in der Praxis verwendet wird.<\/span><\/p>\n
 Beispiel: Eindeutige Werte im Bereich mit VBA z\u00e4hlen<\/strong><\/span><\/h2>\n
 Angenommen, wir haben die folgende Liste mit Namen von Basketballmannschaften in Excel:<\/span> <\/p>\n
\"\"<\/p>\n
 Angenommen, wir m\u00f6chten die Anzahl der eindeutigen Teamnamen im Bereich A2:A11<\/strong> z\u00e4hlen.<\/span><\/p>\n
 Dazu k\u00f6nnen wir das folgende Makro erstellen:<\/span><\/p>\n
 SubCountUnique()<\/span>\nDim<\/span> Rng As<\/span> Range, List As<\/span> Object, UniqueCount As<\/span> Long\n    Set<\/span> List = CreateObject(\" Scripting.Dictionary<\/span> \")<\/span>\n    \n    'count unique values in range A2:A11<\/span>\nFor Each<\/span> Rng In<\/span> Range(\" A2:A11<\/span> \")\n      If Not<\/span> List.Exists(Rng.Value) Then<\/span> List.Add Rng.Value, Nothing\n    Next<\/span>\n    \n    'store unique count<\/span>\n    UniqueCount = List.Count\n    \n    'display unique count<\/span>\n    MsgBox \" Count of Unique Values:<\/span> \" & UniqueCount<\/span>\n\nEnd Sub<\/span><\/strong><\/span><\/pre>\n
 Wenn wir dieses Makro ausf\u00fchren, erhalten wir die folgende Ausgabe:<\/span> <\/p>\n
\"Einzelne<\/p>\n
 Das Meldungsfeld teilt uns mit, dass es 5<\/strong> eindeutige Teamnamen gibt.<\/span><\/p>\n
 Wir k\u00f6nnen \u00fcberpr\u00fcfen, ob dies korrekt ist, indem wir jeden der eindeutigen Teamnamen manuell identifizieren:<\/span><\/p>\n