laufzeitfehler '6' überlauf
07.12.2005 18:55:45
dimi
im untenstehenden code kriege ich immer laufzeitfehler 13 typen unverträglich für zeile 39 und laufzeitfehler 6 für zeile 54. in einem anderen modul läuft gleiche schleife (allein ohne andere drumherum) einwandfrei. bin schon am verzweifeln
1Option Explicit
2Option Base 1
3
4
Sub stuetze()
5
6 'Deklaration der Variablen
7Dim DehnungUnten As Double
8Dim DehnungOben As Double
9Dim Radius As Double
10Dim Betondruckfestigkeit As Double
11Dim Betonzugfestigkeit As Double
12Dim EModulBeton As Double
13Dim ResZugkraft As Double
14Dim ResDruckkraft As Double
15Dim ResMoment As Double
16Dim Elementhoehe As Double
17Dim ElementAnzahl As Integer
18Dim NKraft As Double
19Dim DblSumPlusPos As Double
20Dim DblSumPlusNeg As Double
21Dim Laenge As Double
22Dim NulldurchgangvonUnten As Double
23Dim i
24
25ElementAnzahl = Cells(2, 2)
26 'Deklaration der Datenfelder mit 1000 spalten
27Dim Dehnung(1000) As Double
28Dim Betonspannung(1000) As Double
29Dim Rissoeffnung(1000) As Double
30Dim KraftimElementI(1000) As Double
31Dim MomentausElementI(1000) As Double
32Dim Risstiefe(1000) As Double
33Dim QuerschnittsFlaeche(1000) As Double
34Dim SpannungFasern(1000) As Double
35
36
37Radius = Cells(2, 1)
38Betondruckfestigkeit = Cells(2, 7)
39Betonzugfestigkeit = Cells(2, 8)
40EModulBeton = Cells(2, 9)
41
42
43 'Berechnung Elementhöhe
44
45Elementhoehe = 2 * Radius / ElementAnzahl
46
47
48 For NulldurchgangvonUnten = 0 To 2 * Radius
49
50 For DehnungUnten = 0 To -0.01 Step -0.001
51
52 For i = 1 To 100
53
54 Dehnung(i) = DehnungUnten - ((ElementAnzahl - i) * Elementhoehe * DehnungUnten) / NulldurchgangvonUnten
55 Next
56 Next
57 Next
58
59End Sub