Thema Datum  Von Nutzer Rating
Antwort
Rot abs() killt mein VBA-Script
 29.04.2012 12:56:55 ich
NotSolved
29.04.2012 16:25:13 Till
NotSolved
29.04.2012 18:02:57 ich
NotSolved
30.04.2012 14:11:07 Till
NotSolved

Ansicht des Beitrags:
Von:
ich		 Datum:
29.04.2012 12:56:55		 Views:
1839		 Rating:
     
Antwort:
  Ja
Thema:
abs() killt mein VBA-Script

Hallo!


Ich muss in einer Exceltabelle Daten verarbeiten die ich aus impliziten Gleichungen habe. Zur Lösung dieser impliziten Gleichungen habe ich mir ein kleines VBA-Script geschrieben. 

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub implizit()
 
 
 
 
Dim y As Single
Dim X As Single
Dim z As Single
Dim c As Single
 
y = 0
c = 1
 
Do
y = y + 0.000000001
X = 1 / (y ^ 0.5)
z = 7.54 + 11.5 * Log10(Cells(1, 8) * (y ^ 0.5))
c = X - z
Loop While (c > 0.000000001)
 
Sheets("Tabelle1").Range("H2").Value = y
 
End Sub
 
Private Function Log10(X)
    Log10 = Log(X) / Log(10#)
End Function

da dieser Code nicht berücksichtig, dass c auch negativ sein kann, habe ich das Ende der Schleife von 

 

?
1
Loop While (c > 0.000000001)

auf 

?
1
Loop While (Abs(c) > 0.000000001)

 

geändert... nur läuft das Script so eeeeeeeeeeeeeeewig, ohne ien Ergebnis zu liefern... ohne Abs() läufts...

 


Danke für eure HIlfe!

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot abs() killt mein VBA-Script
 29.04.2012 12:56:55 ich
NotSolved
29.04.2012 16:25:13 Till
NotSolved
29.04.2012 18:02:57 ich
NotSolved
30.04.2012 14:11:07 Till
NotSolved