Anwendung von Fourier auf Zeireihe

Hallo Andreas,

danke für deine Antwort.

Es funktioniert leider auch nicht.

Was den Verweis angeht bedeutet das, dass ich "ATPVBAEN.XLAM!Fourier" nehmen kann, ohne einen Verweis zu setzen. Und direkt Fourier wenn ich einen Verweis gesetzt habe?

Er gibt mir auch keine Fehlermeldung o.ä., es passiert einfach nichts. Das Makro wird ausgeführt, der Text erscheint. Aber die FFT wird nicht ausgeführt. Der Debugger springt zwar zur Zeile, als würde er sie ausführen. Aber es kommt kein Ergebnis.

Wenn ich Fourier direkt und ohne Verweis aufrufe, beschwert er sich natürlich, dass er sie nicht findet.

ATPVBAEN.XLAM!Fourier wird ohne Verweis gefunden, aber ich erhalte auch kein Ergebnis.

Erst wenn ich einmal händisch die Funktion aufrufe, geht es.

vg

Benni

Es funktioniert leider auch nicht.

Was den Verweis angeht bedeutet das, dass ich "ATPVBAEN.XLAM!Fourier" nehmen kann, ohne einen Verweis zu setzen. Und direkt Fourier wenn ich einen Verweis gesetzt habe?

Nein, der Verweis muss gesetzt sein.

Ich konnte das Verhalten mittlerweile mit Excel 2007 nachvollziehen, ich kuck mal ob es da eine Möglichkeit gibt das hinzubekommen.

Mit Excel 2010 und höher tritt das Problem nicht auf. Ich melde mich wieder.

Andreas.

Application.Run "C:\Program Files (x86)\Microsoft Office\Office12\Library\Analysis\ATPVBAEN.XLAM!Fourier",

So wird das nichts.

Wenn im VBA-Editor ein Verweis gesetzt ist, dann sind die Methoden öffentlich, d.h. Du kannst sie direkt aufrufen.

Sub FFT_direkt()

Range("C6:C13").ClearContents

Fourier Range("B6:B13"), Range("C6:C13")

Range("F3") = "Script ausgeführt"

End Sub

Probier das mal in der Mappe von Claus, Deine konnte ich nicht mehr runterladen, Error 404.





Falls Du 2 konkurrierende Methoden hast, dann kannst Du expliziten Aufruf erzwingen:

Sub FFT()

Range("C6:C13").ClearContents

[VBA Functions and Subs].Fourier Range("B6:B13"), Range("C6:C13")

Range("F3") = "Script ausgeführt"

End Sub

Eins von beiden sollte gehen, falls nicht dann poste mal bitte den genauen Wortlaut des Fehlers, ggf. mit Screenshot.

Andreas.

Hallo Benni,

bei mir funktioniert der Code ohne Probleme. Warum es bei dir nicht läuft, kann ich aber nicht sagen. Sicherheitseinstellungen? Falscher Pfad zur atpvbaen.xls bei den Verweisen?

Alle Codezeilen, bei denen du geschrieben hast, dass sie eigentlich nicht nötig sind, kannst du löschen. Es reichen diese 4 Zeilen:

Sheets(1).Range("C6:C13").Value = ""

     

'berechne FFT

Application.Run "ATPVBAEN.XLAM!Fourier", Sheets(1).Range("$B$6:$B$13"), _

    Sheets(1).Range("$C$6:$C$13"), False, False

     

'selektiere Ergebnisse

Sheets(1).Range("C6:C13").Select

     

'setze Schriftzug rechts neben Button

Sheets(1).Range("F3").Value = "Skript ausgeführt!"
Claus

Erst wenn ich einmal händisch die Funktion aufrufe, geht es.

Hallo Benni,

kann ich bestätigen, ersetze mal den Code durch den unten. Auf meinem 2007 läuft es, wie sieht es bei Dir aus?

Andreas.

Option Explicit

Sub FFT()

EnableAnalysis2007

Range("C6:C13").ClearContents

Fourier Range("B6:B13"), Range("C6:C13")

Range("F3") = "Script ausgeführt"

End Sub

Private Sub EnableAnalysis2007()

Dim Wb As Workbook

If Val(Application.Version) <> 12 Then Exit Sub

On Error Resume Next

Set Wb = Workbooks("PROCDB.XLAM")

If Not Wb Is Nothing Then Exit Sub

Workbooks.Open Application.LibraryPath & "\Analysis\PROCDB.XLAM"

End Sub