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

Beiträge aus den Excel-Beispielen zum Thema "Laufzeitfehler"