OpenOffice.info

naja, nur das starten der Datei ist mit einem Passwort versehen, wenn die Datei geöffnet ist, befindet sich kein Zellschutz o.ä. mehr darin, da die datei ja bearbeitet werden muss

Hallo
Wenn du die Datei schützt geht auch das Makro nicht mehr, sonst wär der Schutz ja sinnlos.
Gruß Karo

naja, in meiner Testdatei (ich weiss nicht, wie ich die hier hochladen kann) funktioniert das ja mit dem Button.
folglich hab ich das Makro in die richtige Datei kopiert, einen Button erstellt und auch dieses funktionierte.

nun auf einmal nichtmehr, obwohl weder das Makro selbst, noch der Button geändert wurde.

Ich kann mir einzig vorstellen, daß dadurch, daß diese Datei Passwortgeschützt ist. das Makro nicht funktioniert.

btw : erstellt ist das Makro mit 3.0, die Datei in der es gebraucht wird ist aber 2.31

lg Andreas

Hallo Andreas
Wenn es, wie du schriebst:"über eine Symbolleistenschaltfläche funktioniert", kann es doch eigentlich nur an der Zuordnung der Buttons liegen ?

Gruß Karo

es existieren 12 Sheets mit dem jeweils einem Button, jeder einzeln zugeordnet.
und bei Klick soll das Makro sich ja nur auf das active sheet beziehen.

Hallo
Das Blatt "....activesheet" ist das Tabellenblatt mit dem Button [b]?[color=#FF0000]!![/color][/b]
Gruß Karo
-

Sub Main
dim odoc as object
odoc = thiscomponent
mysheet = odoc.currentcontroller.activesheet

'farben = mysheet.getcellrangebyname("A1").CellBackColor
'f= "RGB-Farben: " & red(farben) &"," & green(farben) & "," & blue(farben)
'msgbox f
'exit sub
for i = 8 to 250
	for o = 8 to 39	
		zeitholen = mysheet.getcellbyposition(i, o).value 
		zeitgeben = ((zeitholen-int(zeitholen))*1.66666666666667)+int(Zeitholen)
		if mysheet.getcellbyposition(i, o).cellbackcolor <> rgb(255,255,204) then
			mysheet.getcellbyposition(i, o).value = zeitgeben
			mysheet.getcellbyposition(i, o).cellbackcolor = rgb(255,255,204)
		end if	
		if mysheet.getcellbyposition(i, o+1).string = "" then
			exit for
		end if
	next
	if mysheet.getcellbyposition(i+1, 0).string = "" then
		exit for
	end if
next
End Sub

Also, ich habe ein kleines Makro geschrieben, welches Arbeitszeit umrechnet, und einem Button über "Éreignisse-Beim Auslösen" zugeordnet.

Am anfang hat es funktioniert. aber nun nicht mehr und ich habe keine Ahnung warum.

Mögliche Fehlerursachen :

1. Der Datei wurden mehrere Sheets beigefügt ?
2. Die Datei ist PW-geschützt ?
3. Mein Makro ist falsch ?

hier der Code :

[code]Sub Main
dim odoc as object
odoc = thiscomponent
mysheet = odoc.currentcontroller.activesheet

'farben = mysheet.getcellrangebyname("A1").CellBackColor
'f= "RGB-Farben: " & red(farben) &"," & green(farben) & "," & blue(farben)
'msgbox f
'exit sub
for i = 8 to 250
for o = 8 to 39
zeitholen = mysheet.getcellbyposition(i, o).value
zeitgeben = ((zeitholen-int(zeitholen))*1.66666666666667)+int(Zeitholen)
if mysheet.getcellbyposition(i, o).cellbackcolor <> rgb(255,255,204) then
mysheet.getcellbyposition(i, o).value = zeitgeben
mysheet.getcellbyposition(i, o).cellbackcolor = rgb(255,255,204)
end if
if mysheet.getcellbyposition(i, o+1).string = "" then
exit for
end if
next
if mysheet.getcellbyposition(i+1, 0).string = "" then
exit for
end if
next
End Sub[/code]

Über die Symbolleiste (Anpassen, symbolleisten, Hinzufügen, usw.) funktioniert es hingegen einwandfrei (ausser wenn die Datei nicht geladen ist)

lg
Andreas