ich bin gerade noch ganz neu hier.
Bisher habe ich mich mit VBA-Makros unter Excel beschäftigt, doch jetzt muß ich durch Software-Umstellung in unserer Firma alle Dateien von Excel-Format auf LibreOffice" umrüsten".
Obwohl viele MS-Makros mittlerweile durch LO/OO unterstützt werden, tue ich mir noch ganz schön schwer.
Daher werde ich wahrscheinlich noch einige Hilfe benötigen
Ich bastele gerade an einem Makro, welches prüft, ob in der zelle a27 etwas steht, wenn ja, dann soll seite 1 und seite 2 dieser Datei gedruckt werden.
Ist a27 leer, dann nur seite 1.
ich habe bisher 2 Makros fürs drucken von seite 1+2 und seite 1 (print1 und print2), und möchte diese im makro mit "wenn- dann" ansteuern.
Code: Alles auswählen
sub print3()
rem ------druckt 1 Seite
rem Variablendefinition
dim document as object
dim oCellRange as Object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$a$27"
If Range("a27") = ""Then
print1
else
print2
end sub
Code: Alles auswählen
"BASIC-Syntaxfehler.
Unerwartetes Symbol: End Sub."
mit exit sub gehts auch nicht...
wo liegt mein denkfehler?
Liebe Grüße Mirko