Daten in Sum() gibt Index Fehler
21.12.2016 16:13:17
Max2
also ich muss einmal im Monat eine Abrechnung machen, mit ekelhaft vielen Daten.
Deswegen dachte ich mir schreibe ich ein Makro welches mir die Arbeit abnimmt.
Es soll folgendes machen:
Die erste Nummer in Zelle A1 nehmen, 7 Spalten nach rechtsrücken, der Variable Sum() den Wert hinzufügen
Die Nummer in Zelle A1 verändert sich irgendwann, also statt 10 kommt irgendwann 13
Deshalb "Sum()", da unbekannt viele Summen gespeichert werden sollen.
Hier mein Code (im Fettmarkierten bekomme ich den Index Fehler):
Option Explicit
Dim i, x
Dim Nr, lngZeile, lngSpalte As Long
Dim c, rngBereich As Range
Dim wks As Worksheet
Dim strDatei As String
Dim Sum() As Double
Set wks = ThisWorkbook.Sheets("xy")
With wks
lngZeile = .Range(.Cells(.Rows.Count, 1), .Cells(2, 1)).Find(What:="*", _
LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:= _
xlPrevious).Row
Set rngBereich = .Range(.Cells(lngZeile, 1), .Cells(2, 1))
Nr = .Cells(2, 1).Value
x = 0
ReDim Preserve Sum(x)
For Each c In rngBereich
For i = 0 To x
ReDim Preserve Sum(i)
If c.Value = Nr Then
Sum(i) = Sum(i) + c.Offset(, 7).Value
Else
Nr = c.Value
x = x + 1
End If
Next i
Next c
End With
Set wks = ThisWorkbook.Sheets("Daten")
With wks
For i = 2 To x
.Cells(i, 2).Resize = Sum(i)
Next i
End With