Hallo zusammen,
bekomme an dieser Stelle des Makros eine Fehlermeldung (Laufzeitfehler 457) Dieser Schlüssel ist bereits einem Element dieser Auflistung zugeordnet.
Das Makro verwende ich für mehrere Bereiche in einem Exceldatenblatt:
'Kopiere Werte aus der Pivot-Tabelle in Reporting-File
' Definiere MonatsIndex
Dim Monat As String
Dim MonatsIndex As Collection
Set MonatsIndex = New Collection
i = 1
While ReportingWB.Worksheets("Monatliche Sicht").range("DeltaMonthlySigma1").Offset(i, 0).Value "Gesamt"
Monat1 = ReportingWB.Worksheets("Monatliche Sicht").range("DeltaMonthlySigma1").Offset(i, 0).Value
FEHLERMELDUNG HIER: MonatsIndex.Add i, Monat
i = i + 1
Wend
...
vielen Dank für Hilfe.