Laufzeitfehler in Schleife

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: Laufzeitfehler in Schleife

Re: Laufzeitfehler in Schleife

von dancer_m » So, 26.02.2012 19:54

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

Re: Laufzeitfehler in Schleife

von dancer_m » Mo, 16.01.2012 08:48

Hallo F3K Total,

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

Grüße
Martin

Re: Laufzeitfehler in Schleife

von F3K Total » So, 15.01.2012 17:52

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

Nach oben