Button der Auf Standard setzt

[Inopel]

hallo ich habe ien problem. und zwar habe ich mir eine tabelle geschrieben in der ich mir in 4 zeilen a 10 spalten zahlen reinschreiben kann und dann in der 5ten zeile zusammenrechnet.
nun will ich nciht jedesmal diese vierzig zahlen mit der han abändern. sondern wollt mir ein button setzen mit dem die betreffenen zeilen automatisch auf 0,00 btw 4 auf 1,00 gesetzt werden.
nun sitz ich hier schon ne ewigkeit rum, find aber keine lösung.
wie kann ich das anstellen.
muss gleich sagen das ich von programieren keine ahnung habe

gruß ino

[komma4]

Späte Antwort - aber vielleicht besser als nie.


Passe im folgenden Makro Deine Zellbereiche und den Tabellennamen durch Ändern der Konstanten in den ersten drei Zeilen an.
Dann verbinde das Makro mit der Schaltfläche (OOoWiki: Makros mit einem Klick).

Code: Alles auswählen

CONST cTabelle = "Tabelle1"
CONST cBereich1 = "B2:J5"
CONST cBereich2 = "K2:K5"


' ------------------------------------------------------------------
SUB de51553

' 2012-03-20
' Setzen von Zellen eines Bereichs auf einen Wert


oTabelle = _
 ThisComponent.Sheets().getByName( cTabelle )

 
oBereich = oTabelle.getCellRangeByName( cBereich1 ) 
setzenBereichAufWert( oBereich, 0 )


oBereich = oTabelle.getCellRangeByName( cBereich2 ) 
setzenBereichAufWert( oBereich, 1 )

END SUB 

' ------------------------------------------------------------------
SUB setzenBereichAufWert( Bereich as Object, Wert as Integer ) 

aDaten = Bereich.getDataArray()

' die Zeilen des Bereichs
' zz: ZählerZeilen
for zz = _
	LBound( aDaten() ) to _
	UBound( aDaten() )

	aDatenZeile() = aDaten( zz )
	' zz: ZählerZeilen

	' pro Zeile die cells/Zellen
	' zc: ZählerCells
	for zc = _
		LBound( aDatenZeile() ) to _
		UBound( aDatenZeile() )

		aDatenZeile( zc ) = Wert
	next ' Zellen
next ' nächste Datenzeile


' Daten auf diesen Bereich
Bereich.setDataArray( aDaten() )


END SUB

Kommst Du damit zurecht?