OpenOffice.info

Verfasst: **Di, 02.02.2021 08:15**

Hallo,
ich würde gerne eine Schaltfläche erstellen, die bei betätigen den Inhalt 6 bestimmter Zellen löscht.
Ich habe bereits die Schaltfläche, jetzt brauche ich noch ein Makro, das ich dann noch auf die genauen Zellen anpassen kann. Gibt es dafür bereits ein vorgefertigtes Makro? Oder wie kann ich selbst ein Makro aufbauen?

Außerdem habe ich noch eine andere Frage. Ist es in Calc möglich, zwei Schaltflächen miteinander zu verknüpfen? Ich habe eine Schaltfläche, die bei Betätigen +1 zu einer bestimmten Zelle addiert und möchte nun, dass ich nur auf eine Schaltfläche drücken muss, damit dieser +1 Befehl ausgeführt wird und gleichzeitig die 6 bestimmten Zellen geleert werden. Kann man auf einer Schaltfläche beide Makros ausführen oder kann man zwei Schaltflächen auf einer dritten verknüpfen?

Vielen Dank schonmal,
Alina

Verfasst: **Di, 02.02.2021 09:05**

z.B.:

Code: Alles auswählen

Sub Main
	tcs = ThisComponent.Sheets.getByName("Tabelle1")
	zellnamen = Array("A1","B2","B3","A4","A5","B6")
	For i = 0 To Ubound(zellnamen())
		'siehe: 
		'http://www.openoffice.org/api/docs/common/ref/com/sun/star/sheet/XSheetOperation.html#clearContents
		'http://www.openoffice.org/api/docs/common/ref/com/sun/star/sheet/CellFlags.html
		tcs.getCellrangeByName(zellnamen(i)).clearContents(23) 'Value, DateTime, String, Formula
	Next i
	tcs.getCellrangeByName("C1").Value = tcs.getCellrangeByName("C1").Value + 1
End Sub

Gruß
Stephan

Verfasst: **Di, 02.02.2021 10:21**

Vielen Dank für eine mal wieder schnelle und super Antwort:)

OpenOffice.info

[GELÖST]einzelne Zellen durch Makro leeren

[GELÖST]einzelne Zellen durch Makro leeren

Re: einzelne Zellen durch Makro leeren

Re: einzelne Zellen durch Makro leeren