OpenOffice.info

:lol: Hallo Karo,

das ist wirklich Klasse. Ich hätte das nie hinbekommen. Recht herzlichen Dank und einen schönen Nikolaus.

Gruß Ingo

Rem ingo 100 OOo-calc-forum 5.12.08
Sub zehnerblock_backup
	odoc = thiscomponent
	quellsheet = odoc.sheets(0) '1.Blatt
	backsheet = odoc.sheets(2) '3.Blatt
	ocursor = backsheet.createcursor
for spi = 29 to 41	'Spaltenindex des Eingabebereichs	
	ocursor.gotoEndofusedArea(false)			'index der nächsten-
	nextrow = ocursor.getrangeaddress.endrow +1	'-freien Zeile ermitteln
	if quellsheet.getcellbyposition(spi,12).value = 10 then 
		backsheet.getcellbyposition(0,nextrow).string =_
		quellsheet.getcellbyposition(spi,1).string
		backsheet.getcellbyposition(1,nextrow).value =_
		quellsheet.getcellbyposition(spi,0).value
		backsheet.getcellbyposition(2,nextrow).value =_
		quellsheet.getcellbyposition(spi,12).value
		quellsheet.getcellrangebyposition(spi,2,spi,11).clearcontents(255)
	end if
next spi
End Sub

Hallo Ingo
Ich hab das Layout im Eingabebereich abgeändert damit man dort nicht zu viel hin und her scrollen muß.
Ausserdem hab ich ein Makro zum abspeichern vollständig ausgefüllter Zehnerblöcke nebst der Löschung der Eingabe geschrieben.
Das Makro ist mit der Schaltfläche im Dokument verknüpft.
[attachment=0]ingo_Zehnerblockbackup.ods[/attachment]
hier nochmal der Makrocode:
[code]Rem ingo 100 OOo-calc-forum 5.12.08
Sub zehnerblock_backup
odoc = thiscomponent
quellsheet = odoc.sheets(0) '1.Blatt
backsheet = odoc.sheets(2) '3.Blatt
ocursor = backsheet.createcursor
for spi = 29 to 41 'Spaltenindex des Eingabebereichs
ocursor.gotoEndofusedArea(false) 'index der nächsten-
nextrow = ocursor.getrangeaddress.endrow +1 '-freien Zeile ermitteln
if quellsheet.getcellbyposition(spi,12).value = 10 then
backsheet.getcellbyposition(0,nextrow).string =_
quellsheet.getcellbyposition(spi,1).string
backsheet.getcellbyposition(1,nextrow).value =_
quellsheet.getcellbyposition(spi,0).value
backsheet.getcellbyposition(2,nextrow).value =_
quellsheet.getcellbyposition(spi,12).value
quellsheet.getcellrangebyposition(spi,2,spi,11).clearcontents(255)
end if
next spi
End Sub[/code]

Gruß Karo

Hallo Karo,
nein es geht mir nicht um eine einfache Dateneingabe. Ich habe mich sicherlich viel zu umständlich ausgedrückt. Sorry.
Ich habe die Datei mit hochgeladen. Links neben dem schwarzen Strich ist die Datenausgabe per Drucker, rechts ist die Dateneingabe mit jeweils max. 10 Eingabefeldern. Es wird aber mehr als 10 x für z.B. AA ein Wert eingegeben. Rot sind die Zeilen gekennzeichnet die später ausgeblendet sein werden.

Ich möchte das jetzt, nach Eingabe des 10. Wertes, alles auf Anfang geht und die Daten die bis dahin angefallen sind, komprimiert (AD3 und AD4) zur Weiterverwendung zwischengespeichert werden. Es soll also weiterhin der Durchschnittswert 3,2 vorhanden sein und nach der Eingabe des " 11." Wertes der aktuelle Durchschnittwert mit allen bis dahin aufgelaufenen Daten ausgewiesen werden. Wichtig ist das es eben nicht mehr als die zehn Eingabemöglichkeiten gibt.

Hoffentlich habe ich jetzt mit der anhängenden Datei aufzeigen können wo ich selber nicht weiter komme.

Vielen Dank für das Interesse und die Hilfe

Ingo

Hallo Ingo
Deine Beschreibung ist immer noch etwas ungenau, suchst du nach einer bequemen Möglichkeit Daten einzugeben ? -
Falls ja schau dir von [url=http://www.amt-wiesbaden.de/index.php?ziel=1amt08&rm=r01]hier[/url] mal das Addon [url=http://www.amt-wiesbaden.de/downloads/Datenmaske-Installer1.0.odt]Datenmaske[/url] an.

Gruß Karo

Danke
für deine Hilfe.
Dies ist natürlich nur ein Teil von einer Tabelle. Es gibt noch mehr "Spaltenblöcke" bis 10. Und jeweils eine Zeile pro Person. Wie vielleicht ein Datenblatt für Noten zur Beurteilung von Leistungen über einen längeren Zeitraum.
Gruß
Ingo

Hallo Ingo
[quote="ingo100"]

2 5 8 3 9 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1
Die beiden Zeilen sollen jeweils aufaddiert werden. Dabei ist die Untere nur für einen Zähler bestimmt, um die Obere dann zu teilen, damit man den Durchschnitt errechnet.[/quote]
falls die untere Reihe [b]nur[/b] als Zähler fungiert ? -ist sie überflüssig -es gibt die Funktion 'MITTELWERT(....) um den Durchschnitt zu bilden.

[quote="ingo100"] Das ist weiter nicht schlimm. Ich möchte aber ohne die Zeile weiter nach rechts auszudehnen nach der jeweils 10. Eingabe zum Einen die Werte der oberen Zeile sowie auch die der Unteren fest speichern. Dabei sollen dann die Werte automatisch auf Null gestellt werden, um wieder neue Eingaben vornehmen zu können.[/quote]
Für diese Aufgabe brauchst du ein Makro das bsplw. per Schaltfläche ausgelöst wird, und die Daten (wohin ?) zu speichern.

Warum lässt du die Daten nicht einfach da wo sie sind, und schreibst den nächsten Datensatz in die Zeile unterhalb.

Gruß Karo

Hallo,
ich bin neu im Forum und auch im Gebrauch mit Calc eher ein Anfänger. Ich benötige Hilfe bei folgenden Problem:


2 5 8 3 9 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1
Die beiden Zeilen sollen jeweils aufaddiert werden. Dabei ist die Untere nur für einen Zähler bestimmt, um die Obere dann zu teilen, damit man den Durchschnitt errechnet. Das ist weiter nicht schlimm. Ich möchte aber ohne die Zeile weiter nach rechts auszudehnen nach der jeweils 10. Eingabe zum Einen die Werte der oberen Zeile sowie auch die der Unteren fest speichern. Dabei sollen dann die Werte automatisch auf Null gestellt werden, um wieder neue Eingaben vornehmen zu können.

Kann mir jemand helfen oder einen Tipp in die richtige Richtung geben.

Für die Hilfe oder auch nur den Versuch dazu wäre ich schon dankbar, da ich im Moment überhaupt keine Vorstellung für das weitere Vorgehen habe. Natürlich hatte ich auch schon einiges probiert, doch leider reichen meine Kenntnisse noch nicht aus.

Gruß aus Halstenbek

Ingo