Laufzeitfehler in Schleife

Programmierung unter AOO/LO (StarBasic, Python, Java, ...)

Moderator: Moderatoren

F3K Total
********
Beiträge: 3723
Registriert: Mo, 28.02.2011 17:49

Re: Laufzeitfehler in Schleife

Beitrag von F3K Total »

Hi,
versuche es mal so:

Code: Alles auswählen

Dim oRanges(0)
osheet = ThisComponent.sheets(0)
orange = osheet.getcellrangebyposition(4,5,17,(druckbereich.value - 1) )
oRanges(0) = orange.rangeaddress
osheet.setPrintAreas(oRanges())
rem ThisComponent.Print(Array())
Gruß R
dancer_m
*
Beiträge: 14
Registriert: So, 15.01.2012 16:32

Re: Laufzeitfehler in Schleife

Beitrag von dancer_m »

Hallo F3K Total,

Ich danke ganz herzlich für die Hilfe!
Es funktioniert jetzt perfekt.

Grüße
Martin
Schöne Grüße
Martin
dancer_m
*
Beiträge: 14
Registriert: So, 15.01.2012 16:32

Re: Laufzeitfehler in Schleife

Beitrag von dancer_m »

Danke Balu!!!

So, nächster Versuch!
Jetzt hängt sich das Ding zwar nicht mehr auf, aber es macht auch nichts in der Tabelle! :?

Code: Alles auswählen

Dim Lieferschein, LS_test As Object
dim feld1 As Object
dim Datcheck As Object

Sub Datum_eintragen
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
mydoc   = thiscomponent
mysheet = mydoc.sheets(8)
datumA  = mysheet.getcellrangebyname("aa2")

Datcheck = Lieferschein.Model

Lieferschein.getControl("Datcheck")

If Datcheck.State = 0 then
datumA.string = "=heute()"
End if

If Datcheck.State =1 then
datumA.string = ""
end if

end Sub
Schöne Grüße
Martin
Antworten