Button der Auf Standard setzt

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: Button der Auf Standard setzt

Re: Button der Auf Standard setzt

von komma4 » Di, 20.03.2012 07:54

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?

Button der Auf Standard setzt

von Inopel » Di, 27.12.2011 17:28

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

Nach oben