Hallo gmmg,
ich habe aus dem 2. Lösungsvorschlag (siehe Post#2) eine func erstellt:
Spoiler anzeigen
#include <array.au3>
Dim $aObjects[9][3]
For $i = 1 To 9
$aObjects[$i - 1][0] = "User" & $i
$aObjects[$i - 1][1] = "noreply@nomailplease.con"
Next
For $i = 1 To 3
$aObjects[$i - 1][2] = "Firma1"
Next
For $i = 4 To 5
$aObjects[$i - 1][2] = "Firma2"
Next
For $i = 7 To 8
$aObjects[$i - 1][2] = "Firma3"
Next
$aObjects[5][2] = "Firma1"
$aObjects[8][2] = "Firma2"
$Array = _GetUsers_Summary($aObjects)
if not @error Then _ArrayDisplay($Array)
Func _GetUsers_Summary(ByRef $aObjects)
if not IsArray($aObjects) Then SetError(1,0,0)
Local $aCompanies = _ArrayUnique($aObjects, 3)
_ArraySort($aCompanies)
Local $aResult[$aCompanies[0]][2]
For $i = 1 To $aCompanies[0]
$aResult[$i - 1][0] = $aCompanies[$i]
Next
For $i = 0 To UBound($aResult) - 1
$aTemp = _ArrayFindAll($aObjects, $aResult[$i][0], 0, 0, 0, 0, 2)
$aResult[$i][1] = UBound($aTemp)
Next
Return $aResult
EndFunc ;==>_GetAD_Summary
erwartet wird als Übergabe ein 2D-Array mit 3 Spalten Spalte 0 = User Spalte 2 = Firma. Zurückgegeben wird ein 2D-Array Spalte0 = Firma, Spalte 1 = Anzahl der User,
mfg autoBert
