Hallo liebe Gemeinde,
ich habe ein Problem mit folgender Sub:
Sub zfkMF(l#, Fed#, x#, Teilung!, k)
'120522 ksm
'erzeugt Koordinaten für die Momentenlinie, wenn eine Einzellast wirkt
Dim i%, j#, a#, b#, ikm#, maxM#, Intervall#
a = x
b = l - x
Intervall = l / Teilung
ikm = a * Teilung / l
maxM = Fed * a * b / l
j = 0
i = 0
For i = 0 To ikm
j = j + Intervall
=> k(i + 1, 1) = j: k(i + 1, 2) = 0 + j * maxM / ikm
Next i
For i = ikm To Teilung
k(i + 1, 1) = j: k(i + 1, 2) = 0 - j * maxM / Teilung - ikm
Next i
k(Teilung + 2, 1) = Teilung: k(Teilung + 2, 2) = 0
k(Teilung + 3, 1) = 0: k(Teilung + 3, 2) = 0 'um das Bild zu schließen
End Sub
an der Stelle mit dem Pfeil stoppt das Programm und gibt mir den Fehler aus, das die Typen unverträglich seien. was hab ich falsch gemacht?
Für Hilfe wäre ich sehr dankbar
|