frage zu Array zählen("Scripting.dictionary") Join
chris
wünsche allen einen schönen Tag.
Habe eine frage und hoffe ihr könnt mir weiterhelfen.
Wo ich mir aber sicher bin.
ich habe unten einMakro das ich gerne erweitern möchte.
ich habe in Spalte J verschiedene namen stehen.
Alf
Robert
usw..
mit dem angefügten Makro füge ich in die Variable test alle Namen nur einmal ein.
So das dann "test" ein Array wird.
Was ich aber jetzt nicht schaffe bzw nicht weiß wie ich es am einfachsten machen kann ist folgendes.
Zu den Namen in spalte J habe ich in Spalte D Werte stehen.
Meistens nur ein "x"
Ich möchte jetzt das mir mein Makro alle namen einmal ausgibt und dazu die Anzahl derer in denen sich kein x befindet.
beispiel so:
x Alf
x Robert
x Alf
Robert
Alf
x kai
Alf
Also würde die msgbox lauten
"
Alf = 2
Robert = 1
"
Kai würde nicht erscheinen weil er nur einmal vorhanden ist und in spalte D kein x steht
'Mein makro bis jetzt
Option Explicit
Sub start()
Dim scr
Dim x As Integer
Dim Zelle As Range
Dim machs
Dim test
Set scr = CreateObject("Scripting.dictionary")
For x = 1 To Cells(Rows.Count, 10).End(xlUp).Row
scr(Cells(x, 10).Text) = scr(Cells(x, 10).Text)
Next
machs = Join(scr.keys, ", ")
test = Split(machs, ",")
End Sub
Vielen Dank für eure Hilfe !
gruß chris