Seite 4 von 4
Re: Daten aus externer Tabelle übernehmen
Verfasst: Do, 04.09.2008 17:10
von balu
Hallo Tom,
yep! Hatte es auch in der Datei ausgeführt, genau so wie Du es beschrieben hast. Das Resultat war das gleiche. Und da es auch in dem Editor diese Fehlermeldung gab, dachte ich mir mal; mach'n Screenie davon.
Werd mich jetzt doch selber mal mit der Materie "Makro" befassen.
Gruß
balu
Re: Daten aus externer Tabelle übernehmen
Verfasst: Do, 04.09.2008 17:36
von Spacecop
Hi,
ich habs eben nochmal probiert und bei mir gehts ohne Fehler.
Den Post hab ich geschrieben, bin mal gespannt, ob sich jetzt was tut...
Du könntest ja dazu schreiben: Ja, genau sowas brauch ich auch
Gruß
Tom
Re: Daten aus externer Tabelle übernehmen
Verfasst: Do, 04.09.2008 18:23
von Spacecop
und wieder ein Stück weiter und das ohne fremde Hilfe..
Vergleichen von Datumszelle im Sheet 31_08 mit der Datumsspalte in Sheet Uebersicht (Achtung! UE anstatt Ü) mit Textausgabe:
Code: Alles auswählen
sub Main
rem definiere Variablen
dim document as object
dim dispatcher as object
rem dokumentenzugriff
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "DbName"
args1(0).Value = "Datum1"
dispatcher.executeDispatch(document, ".uno:SelectDB", "", 0, args1())
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "DbName"
args2(0).Value = "Datum2"
dispatcher.executeDispatch(document, ".uno:SelectDB", "", 0, args2())
if Datum1 = Datum2 then
msgbox "Datum1 und Datum2 sind gleich"
else
msgbox "Datum1 und Datum2 sind ungleich"
end if
end sub
Zustande gekommen durch Makroaufzeichnen und einer If Then Schleife.
Mal sehen, was ich noch so hinbekomme *stolz ist*
Gruß
Tom