Excel 2003 VBA: Array? ArrayGetIndex?

Computer: Software & Programmierung Visual Basic
#1

Hallo,

ich habe eine Excel-Liste mit 2 Spalten:

Monat Betrag
Okt 05 100,00
Okt 05 50,00
Nov 05 200,00
Dez 05 25,00
Dez 05 25,00

Ich möchte per VBA erreichen, dass er mir die Monate und damit verbunden die Beträge zusammenfasst:

Monat Betrag
Okt 05 150,00
Nov 05 200,00
Dez 05 50,00

Ich habe dies über ein Array versucht, also per For-Next die Spalte Monat auf identische Einträge überprüft und bei Übereinstimmung den dazugehörigen Betrag in ein Array geschrieben. Anschließend wollte ich eigentlich die jeweiligen Werte des Array’s addieren, aber irgendwie funzt die Sache nicht richtig und ich denke auch, ich verfolge den falschen Ansatz.
Bei LotusNotes gibt es einen Befehl ArrayGetIndex, der mein Problem lösen und ich mir auch das For-Next sparen könnte. Unter VBA habe ich aber nichts Vergleichbares gefunden.
Hat jemand von Euch eine Lösungsidee?

Dank vorab

Gruß
Ronny

#2

Hallo,

ich hab es jetzt erstmal so gelöst:

ende = wsA2.Cells(Rows.Count, 1).End(xlUp).Row

For z = 3 To ende
wsA2.Cells(z, 2).Copy wsA3.Cells(z, 1)
a = wsA2.Cells(z, 2)
s = wsA2.Cells(z, 3)
For z1 = z + 1 To ende
b = wsA2.Cells(z1, 2)
If a = b Then
s = s + wsA2.Cells(z1, 3)
Else: Exit For
End If
Next z1
wsA3.Cells(z, 3) = s
z = z1 - 1
Next z

For z = ende To 1 Step -1
If wsA3.Cells(z, 1).Value = „“ Then
wsA3.Rows(z).Delete
End If
Next z

End Sub

Falls es Alternativen gibt, insbesondere mit dem Array, würden die mich weiterhin interessieren. Muss es ja schließlich auch mal damit lernen :wink:

Gruß aus Leipzig
Ronny