Laufzeitfehler
15.03.2005 16:49:56
timo
Habe im Praktikum mal ein VBA programmiert, das mir summen addiert nach namen. Eine art Bestelliste....hab diese versucht auf eine andere Tabelle umzubauen...bekommen aba nur einen Laufzeitfehler...hier mal das Script...:
Private Type Person
Besteller As String
Bestellwert As Double
End Type
Private Sub CommandButton1_Click()
Dim MA(15) As Person
Dim zeile, i As Integer
Dim name As String
Dim gefunden As Boolean
For zeile = 7 To 50
Range("F" & zeile).Activate
name = ActiveCell.Value
gefunden = False
For i = 0 To 15
' ende der liste und neuer Besteller
If MA(i).Besteller = "" And Not gefunden Then
MA(i).Besteller = name
End If
' Besteller gefunden
If MA(i).Besteller = name Then
gefunden = True
If Range("E" & zeile).Value <> "" Then
MA(i).Bestellwert = MA(i).Bestellwert + Range("E" & zeile).Value
End If
Exit For
End If
Next i
Next zeile
For i = 0 To 15
Range("G" & 10 + i).Value = MA(i).Besteller
If Not MA(i).Bestellwert = 0 Then
Range("H" & 10 + i).Value = MA(i).Bestellwert
Else
Range("H" & 10 + i).Value = ""
End If
Next i
Range("A6").Activate
' schreiben in Zelle
'Cells(5, 10) = "Hallo"
End Sub
Den Fehler macht er hier: MA(i).Bestellwert = MA(i).Bestellwert + Range("E" & zeile).Value
Was ist falsch...wäre schön wenn mir das jemand sagen könnte!
danke