assoziative Arrays (Dictionary) überschreiben
30.12.2007 17:38:00
Marcel
Habe eine Frage zu assoziative Arrays (Dictionary)?
Kann ich ein bereits existierenden Eintrag in einem Dictionary überschreiben?
Also, ich möchte eine Liste durchsuchen und im Dictionary die Anzahl pro Jahr eintragen. So ähnlich wie in angehängtem Makro. Nur funktioniert das Marko nicht!
Danke und einen Schönen Abend
Gruss Marcel
Sub DictionaryTest()
Dim dictAnzahl As Dictionary
Dim Jahr As Long
Set dictAnzahl = New Dictionary ' assoziative Arrays (Dictionary) mit Anzahl pro Jahr
Cells(Range("A1").Row + 1, 1).Activate
For Jahr = 1950 To 2100
dictAnzahl.Add Jahr, 0
Next Jahr
' *** in "ActiveCell" steht das Jahr zu welchem eins dazu gezählt werden soll
Do While ActiveCell.Row