Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Fehler: Sub oder Function nicht definiert |
30.03.2014 17:52:53 |
Marcel |
|
|
|
31.03.2014 16:34:05 |
Holger |
|
|
|
31.03.2014 16:36:47 |
Holger |
|
|
Von:
Marcel |
Datum:
30.03.2014 17:52:53 |
Views:
1197 |
Rating:
|
Antwort:
|
Thema:
Fehler: Sub oder Function nicht definiert |
Hallo zusammen,
ich habe heute erstmals ein kleines VBA-Modul geschrieben, welches über einen Button aufgerufen wird. Bei der Ausführung erscheint "Sub oder Function nicht definiert". Laut google tritt das Problem häufig auf, aber keiner der vorgeschlagenen Lösungen greift bei mir.
Mein Makro dient zur Geometrieberechnung. Verschiedene Längen werden auf einer Startseite "feste Daten" definiert. Das Makro soll unter Nutzung dieser Längen einen Startwinkel alphastart so lange erhöhen, bis eine von alphastart abhängige Summe kleiner als ein vorgegebener Wert ct ist.
Hier mein Code:
_________________________________________________________________
Option Explicit
Dim i As Range ' i ist der Abstand zw. Wasseroberfläche und oberem Ankerkabel an der Turbine
Dim z As Range ' z ist der Abstand zw. Wasseroberfläche und Ankerpunkt an Land / Brücke / Ponton usw.
Dim ct As Range ' ct ist der Abstand zwischen Ankerpunt und Turbinennase bei der Topverankerung
Dim alphastart As Single ' alphastart ist der Winkel, bei dem die Iteration zum echten Alpha losläuft.
Dim gamma As Single ' gamma ist der Winkel zwischen vertikaler und unterem Ankerseil
Dim a As Range ' a ist der vertikale Abstand zwischen top Ankerseil und Schwerpunkt
Dim b As Range ' b ist der horizontale Abstand zwischen unterem Ankerseil und Schwerpunkt
Dim f As Range ' f ist der Hebelarm des durch die Widerstandskraft der Turbine ausgedrückten, hydrodynamischen Kippmoments
Dim lT As Single ' lT ist die Länge des Topankerseils
Dim lB As Single ' lB ist die Länge des Bottomankerseils
Dim h As Range ' h ist der horizontale Abstand zwischen Nase des Treibgutschutzes und oberem Ankerpunkt an der Turbine
Sub Topverankerung()
Set i = Worksheets("3 - tA").Range("C7")
Set z = Worksheets("3 - tA").Range("B4")
Set ct = Worksheets("3 - tA").Range("B5")
Set a = Worksheets("feste Daten").Range("D15")
Set b = Worksheets("feste Daten").Range("D16")
Set f = Worksheets("feste Daten").Range("D21")
Set h = Worksheets("feste Daten").Range("D28")
alphastart = arctan((i + z) / ct)
gamma = arctan(((a - f) / Tan(alphastart) - b) / a)
lT = h + a * Tan(gamma)
While ct < (lT + (i + z) / Tan(alphastart))
alphastart = alphastart + 0.01
gamma = arctan(((a - f) / Tan(alphastart) - b) / a)
lT = h + a * Tan(gamma)
Wend
Worksheets("3 - tA").Range(C13).Activate
ActiveCell.Value = lT + (i + z) / Tan(alphastart)
Worksheets("3 - tA").Range(C14).Activate
ActiveCell.Value = lT
Worksheets("3 - tA").Range(C15).Activate
ActiveCell.Value = (i + z) / Tan(alphastart)
End Sub
_______________________________________________
Sieht jemand das Problem?
Gruß,
Marcel
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
Fehler: Sub oder Function nicht definiert |
30.03.2014 17:52:53 |
Marcel |
|
|
|
31.03.2014 16:34:05 |
Holger |
|
|
|
31.03.2014 16:36:47 |
Holger |
|
|