Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
584to588
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
584to588
584to588
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Laufzeitfehler

Laufzeitfehler
15.03.2005 16:49:56
timo
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Laufzeitfehler
15.03.2005 17:23:17
Cardexperte
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
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige