Hallo zusammen,
ich bin leider ein totaler VBA-Neuling und versuche mich da gerade ein wenig reinzufinden.
Am Ende des Ganzen sollten theoretisch Werte aus der Spalte O aufaddiert werden, wenn vorher einige Attribute gleich sind. Vermutlich gibt es da deutlich einfachere Methoden (bin da für Kritik offen), verusche mir den Spaß allerdings gerade selber ein wenig beizubringen und irgendwie durch (begrenztes) Wissen aus anderen Programmiersprachen zu ergänzen.
Zum Programm:
Sub Summe()
Worksheets("DN100").Activate
Dim i As Long
i = 1
Dim n As Integer
n = 1
Dim hilf As Double
hilf = Cells("O", 1).Value
For i = 1 To 104
If (Cells("A" & i) = Cells("A" & i + 1)) And (Cells("D" & i) = Cells("D" & i + 1)) And (Cells("E" & i) = Cells("E" & i + 1)) Then
hilf = hilf + Cells("O", i + 1)
Else
Range(Cells("Q", n)).Value = hilf
n = n + 1
hilf = Cells("O", i + 1)
End If
Next i
End Sub
Das Problem mit dem Laufzeitfehler 13 tritt in dieser Zeile auf (weiter kompiliert wird nicht, daher weiß ich bezüglich anderer Fehler nichts):
Dim hilf As Double
hilf = Cells("O", 1).Value
In Zeile O1 im Blatt DN100 steht der Wert: 3849,97
Erstmal hoffe ich, dass das Problem einigermaßen verständlich erklärt wurde und bedanke mich jetzt schonmal für eure Hilfe.
Beste Grüße
Alex
|