Herbers Excel-Forum - das Archiv

Laufzeitfehler

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Laufzeitfehler
von: timo weber

Geschrieben am: 15.03.2005 16:49:56
Habe ein Problem mit Excel...
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
Bild

Betrifft: AW: Laufzeitfehler
von: Cardexperte

Geschrieben am: 15.03.2005 17:23:17
Hello timo,
MA(i).Bestellwert = MA(i).Bestellwert + Range("E" & zeile).Value, das Range halte ich für problematisch, schreib lieber das mit cells
also:
MA(i).Bestellwert = MA(i).Bestellwert + cells(4, zeile).Value
 Bild
Excel-Beispiele zum Thema "Laufzeitfehler"
Fortlaufende Suche unter Vermeidung eines Laufzeitfehlers