Problem mit For- Schleife
27.09.2007 09:31:03
Hubitz
Ich habe ein kleines Problem mit einer For..Next Schleife. Vermutlich ist es völlig Simpel, - meinen Horizont übersteigt es trotzdem und daher hoffe ich wieder einmal auf Eure professionelle Hilfe!!
Folgendes Problem:
For i = 3 To 39
Durchmesser = .Cells(i, 250).Value
'#################### Wellenlänge ##################################################
If Durchmesser <= 170 Then
Stehlagerbreite = 0.3
ElseIf Durchmesser > 170 And Durchmesser <= 240 Then
Stehlagerbreite = 0.35
Else
Stehlagerbreite = 0.4
End If
Wellenlänge = bT + 2 * Stehlagerbreite + AbstandLager_Trommel + Getriebebreite
in Spalte 250 stehen feste Durchmesser, das einlesen klappt auch prima..
Jetzt passiert folgendes: Die Wellelnängen ADDIEREN sich nach durchlauf der Schleife, ich möchte aber nur EINEN Wellendurchmesser, SOLANGE die Bedingung( Duchmesser kleiner 170 etc. ) erfüllt ist
Wie kann ich das bitteschön verhindern?
Könnt Ihr mir einen Tip geben?
Schönen Dank schonmal,
Hubitz
Anzeige