[GELÖST]einzelne Zellen durch Makro leeren

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: [GELÖST]einzelne Zellen durch Makro leeren

Re: einzelne Zellen durch Makro leeren

von AlinaGeier » Di, 02.02.2021 10:21

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

Re: einzelne Zellen durch Makro leeren

von Stephan » 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
Dateianhänge
Beispiel.ods
(9.85 KiB) 107-mal heruntergeladen

[GELÖST]einzelne Zellen durch Makro leeren

von AlinaGeier » 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

Nach oben