Calc-Makro: BasicProviderImpl::getScript: no script!

[Thomas D]

Hallo!

Ich helfe gerade einem Verwandten von mir, von MS Office auf OO umzusteigen. Bei einer Excel-Datei gibt es allerdings das Problem, das bei der Ausführung eines Makros folgende Fehlermeldung erzeugt wird:

Ein Scripting Framework Fehler trat während der Ausführung von Basic script vnd.sun.star.script:Standard.Kontoabfrage?language=Basic&location=document auf. Meldung: BasicProviderImpl::getScript: no script!

Die Datei habe ich als vertrauenswürdiges Marko unter Extras/Optionen/Sicherheit eingestellt. Das Makro sieht wie folgt aus:

Code: Alles auswählen

Rem Attribute VBA_ModuleType=VBAModule
Sub Modul1
Rem 
Rem 
Rem 
Rem 
Rem 
Rem 
Rem 
Rem '
Rem ' UVA Makro
Rem ' Makro am 1996-03-30 von . aufgezeichnet
Rem '
Rem ' Keyboard Shortcut: Ctrl+u
Rem '
Rem Sub UVA()
Rem     Range("Datenbank").AdvancedFilter Action:=xlFilterCopy, _
Rem         CriteriaRange:=Range("Umsatzsteuer!Suchkriterien"), _
Rem         CopyToRange:=Range("Umsatzsteuer!Zielbereich"), _
Rem         Unique:=False
Rem End Sub
Rem '
Rem ' Kontoabfrage Makro
Rem ' Makro am 1996-03-30 von . aufgezeichnet
Rem '
Rem ' Keyboard Shortcut: Ctrl+k
Rem '
Rem Sub Kontoabfrage()
Rem     Range("Datenbank").AdvancedFilter Action:=xlFilterCopy, _
Rem         CriteriaRange:=Range("Kontoabfrage!Suchkriterien"), _
Rem         CopyToRange:=Range("Kontoabfrage!Zielbereich"), _
Rem         Unique:=False
Rem End Sub
Rem '
Rem ' Anlageverzeichnis Makro
Rem ' Makro am 1996-03-30 von . aufgezeichnet
Rem '
Rem ' Keyboard Shortcut: Ctrl+a
Rem '
Rem Sub Anlageverzeichnis()
Rem     Range("Datenbank").AdvancedFilter Action:=xlFilterCopy, _
Rem         CriteriaRange:=Range("Anlageverzeichnis!Suchkriterien"), _
Rem         CopyToRange:=Range("Anlageverzeichnis!Zielbereich"), _
Rem         Unique:=False
Rem End Sub
Rem 
End Sub

Wie gehe ich hier am besten vor, um den Fehler auszumerzen bzw. woran könnte es eventuell liegen?

[turtle47]

Hallo Thomas,

Wie gehe ich hier am besten vor, um den Fehler auszumerzen bzw. woran könnte es eventuell liegen?

Weil Du das Makro "Kontoabfrage" rauskommentiert hast

Code: Alles auswählen

Rem Sub Kontoabfrage()

mit dem kompl. zugehörigen Code.

Welches Makro gemeint ist siehst Du hieran.

.....vnd.sun.star.script:Standard.Kontoabfrage?.....

Gut's Nächtle.

Jürgen

[Thomas D]

Wenn ich die ganzen REMs entferne, dann bekomme ich den Fehler, dass sich Sub UVA() innerhalb einer weiteren Sub befindet (Modul1). Die Datei hat in MS Office ohne Probleme funktioniert. Wieso geht's in OO nicht und warum stehen hier überhaupt die ganzen REMs?

[turtle47]

Wieso geht's in OO nicht und warum stehen hier überhaupt die ganzen REMs?

Weil OOo diesen Code komplett rauskommetiert hat weil dort VBA-Makros nicht unbedingt lauffähig sind!!

Du kannst mal folgendes versuchen und als erste Codezeile folgendes eingeben:

Code: Alles auswählen

Option VBASupport 1

dann die REM's alle entfernen und dann nochmal versuchen.

Starbasic ist eben nich VBA

Ich habe mich selber noch nie mit dem Thema auseinandergesetzt und weiß so gut wie nichts darüber.

Kannst Dich ja bei Tante Google mal schlau machen mit den Suchbegriffen "Openoffice VBASupport"

Hilft das weiter?

[steffn]

"sub" leitet eine prozedur ein, "end sub" beendet sie
oben drüber steht "Sub Modul1" und unten drunter "End Sub" - die müssen weg

weil in einer sub keine weitere sub deklariert werden kann
weil jemand oder etwas das ganze auskommentiert in eine neue prozedur gesteckt hat anstatt in ein modul

[Thomas D]

Und der Fehler bleibt bestehen ...

Code: Alles auswählen

Rem Attribute VBA_ModuleType=VBAModule
Rem ' Sub Modul1
Rem 
Rem 
Rem 
Rem 
Rem 
Rem 
Rem 
Rem '
Rem ' UVA Makro
Rem ' Makro am 1996-03-30 von . aufgezeichnet
Rem '
Rem ' Keyboard Shortcut: Ctrl+u
Rem '
Sub UVA()
     Range("Datenbank").AdvancedFilter Action:=xlFilterCopy, _
         CriteriaRange:=Range("Umsatzsteuer!Suchkriterien"), _
         CopyToRange:=Range("Umsatzsteuer!Zielbereich"), _
         Unique:=False
End Sub
Rem '
Rem ' Kontoabfrage Makro
Rem ' Makro am 1996-03-30 von . aufgezeichnet
Rem '
Rem ' Keyboard Shortcut: Ctrl+k
Rem '
Sub Kontoabfrage()
     Range("Datenbank").AdvancedFilter Action:=xlFilterCopy, _
         CriteriaRange:=Range("Kontoabfrage!Suchkriterien"), _
         CopyToRange:=Range("Kontoabfrage!Zielbereich"), _
         Unique:=False
End Sub
Rem '
Rem ' Anlageverzeichnis Makro
Rem ' Makro am 1996-03-30 von . aufgezeichnet
Rem '
Rem ' Keyboard Shortcut: Ctrl+a
Rem '
Sub Anlageverzeichnis()
     Range("Datenbank").AdvancedFilter Action:=xlFilterCopy, _
         CriteriaRange:=Range("Anlageverzeichnis!Suchkriterien"), _
         CopyToRange:=Range("Anlageverzeichnis!Zielbereich"), _
         Unique:=False
End Sub
Rem 
Rem ' End Sub

[steffn]

auf basis, dass ich mich selber noch zu anfängern zähle:
kann nicht sein =)
die subs die man hier im code sieht, befinden sich einfach nicht mehr in sub modul1

[komma4]

FAQ: Can I use my Microsoft Office macros?
"However, some elements differ, as for example the calls to software commands and object names. So you would have to rewrite the macros."
Es gibt signifikante Unterschiede in Aufrufen und Objekten. Die Makros müssen neu geschrieben werden.

Zum Thema "Datenbankbereich" und Anwenden eines Filters darauf habe ich keine Praxiserfahrung - kann deshalb nicht weiterhelfen.

Suche nach: database range filter
"altes Forum": 72 Treffer
neues Userforum: 32 Treffer

Viel Erfolg!