+1 Schaltfläche/(klickzähler)

[Mani]

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

[clag]

Hallo Mani,

sieh dir einmal dieses Thema an, da wurde schon einmal etwas sehr ähnliches gewünscht.
Das dort angewendete Makro könnte auch für dich brauchbar sein...

[Mani]

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

Unbenannt 1.ods

[clag]

Hallo Mani,

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

Unbenannt 1+Drehfeld.ods

(12.92 KiB) 359-mal heruntergeladen

edit:
link war tot, Datei neu hochgeladen

[Stephan]

geht das irgendwie einfacher?

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: Alles auswählen

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

Gruß
Stephan

[clag]

Hallo Mani,

so nun habe ich ein universal_plus Makro für dich

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 "Schaltfläche 1" zB umbenennen in "D2" oder "AX153" oder jede andere gültige Zell-Adresse.

universal_plus.ods

(12.8 KiB) 442-mal heruntergeladen

Dann viel Spaß damit ......

edit:
link war tot, Datei neu hochgeladen

[Mani]

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

[clag]

Hallo Mani,

Dateien sind nun wieder verfügbar

[Mani]

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

[clag]

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 "D3" auftauchen!

[Mani]

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

[clag]

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......