Daten aus externer Tabelle übernehmen

[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

[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

[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