OpenOffice.info

Hallo Mani,

die Zuordnung eines Makro zu einer Schaltfläche erfolgt im "Kontrollfeld" bei den Ereignissen,
üblicherweise "Aktion ausführen" und das gewünschte Makro zuordnen ......

Unter Formular brauchst du nichts anzugeben......

Hallo Clag
ich meinte eher mit Makro belegen da gibt es mehrere möglichkeiten
mich würde interessieren warum du es so gemacht hast
lG Manuel

Hallo Mani,

wenn du etwas genauer hin schaust, sollte dir eigentlich auffallen, dass nur im "Kontrollfeld" für den jeweiligen Button beim Namen Bezeichnungen wie "Zelladressen" also zB "[b][color=#0000FF]D3[/color][/b]" auftauchen! :D

Hallo
Wie funktioniert das mit der Button Belegung,
es gibt da zwei Möglichkeiten einmal Kontrollefeld... und und einmal Formular...
für was gibt es die zwei Möglichkeiten?
Lg mani

Hallo Mani,

Dateien sind nun wieder verfügbar

Hallo Clag!
Leider kann ich dein universal_plus.ods nicht mehr Downloaden,
kannst du es bitte nocheinmal Hochladen?

@ Stephan leider verstehe ich nur Bahnhof

Lg Mani

Hallo Mani,

so nun habe ich ein [b]universal_plus[/b] Makro für dich 8)

Das nur einmal benötigt wird und von beliebig vielen Schaltflächen aufgerufen werden kann und in jeweils einer spezifizierten Zelle etwas addiert, einzige Bedingung ist der Schaltflächen Name muss die Zieladresse jener Zelle sein, zu deren Wert etwas addiert werden soll.
Also die "[color=#BF0000]Schaltfläche 1[/color]" zB umbenennen in "[color=#0000FF][b]D2[/b][/color]" oder "[color=#0000FF][b]AX153[/b][/color]" oder jede andere gültige Zell-Adresse.

[attachment=0]universal_plus.ods[/attachment]
Dann viel Spaß damit ...... :D

[color=#FF0000]edit:[/color]
link war tot, Datei neu hochgeladen

sub plus_n(oEvent)
	Select Case oEvent.Source.Model.Name
		Case "Schaltfläche 1"
			'tue was Anderes:
			'...
		Case "Schaltfläche 2"
			'tue das:
			myDoc = thisComponent
		'	mySheet = myDoc.sheets(0) ' entspricht Tabelle1
			mySheet = myDoc.Sheets().getByName("Tabelle1")
		'	mycell=mysheet.getCellByPosition(1,1) ' entspricht B2
			mycell=mysheet.getCellRangeByName("$D$2") 
			mycell.value = mycell.value + 1
		Case "BlaBla"
			'und noch was zu tun:
			'...
	End Select
end sub

[quote]geht das irgendwie einfacher?[/quote]

eigentlich nicht wesentlich, da du ja für jede Funktion den unterschiedlichen Code irgendwie brauchen wirst.
Du kannst höchstens allen Code in ein Makro packen und über den Event z.B. den namen der auslösenden Schaltfläche ermitteln und über SElect-Case zum zur SChaltfläche gehörenden Code verzweigen:

[code]sub plus_n(oEvent)
Select Case oEvent.Source.Model.Name
Case "Schaltfläche 1"
'tue was Anderes:
'...
Case "Schaltfläche 2"
'tue das:
myDoc = thisComponent
' mySheet = myDoc.sheets(0) ' entspricht Tabelle1
mySheet = myDoc.Sheets().getByName("Tabelle1")
' mycell=mysheet.getCellByPosition(1,1) ' entspricht B2
mycell=mysheet.getCellRangeByName("$D$2")
mycell.value = mycell.value + 1
Case "BlaBla"
'und noch was zu tun:
'...
End Select
end sub[/code]



Gruß
Stephan

Hallo Mani,

vielleicht gefallen dir "Drehfelder" besser!?
guckst du dir das Beispiel mal an..... :)

[attachment=0]Unbenannt 1+Drehfeld.ods[/attachment]
[color=#FF0000]edit: [/color]
link war tot, Datei neu hochgeladen

Danke das ist genau das richtige sogar für den selben Zweck :)
Nur leider muss ich das für jeden Posten das Makro erstellen und umschreiben und mit der Taste verknüpfen,
geht das irgendwie einfacher?

Lg Mani;
PS: im Anhangg ist noch ein kleiner Ausschnitt meiner Arbeit
[attachment=0]Unbenannt 1.ods[/attachment]

Hallo Mani,

sieh dir einmal [url=http://de.openoffice.info/viewtopic.php?f=2&t=45697][b]dieses Thema[/b][/url] an, da wurde schon einmal etwas sehr ähnliches gewünscht.
Das dort angewendete Makro könnte auch für dich brauchbar sein...

Hallo Leute!
Ich möchte eine Schaltfläche machen, wenn ich auf sie drücke das in einer Anderen Zelle ein wert dazugezählt wird.
Leider hab ich keine Erfahrung im Makros schreiben kann mir wer eine Einführung in das Thema Empfehlen?
Lg Mani