2 Datumszellen sollen sich in festem Verhältnis verändern

Das Tabellenkalkulationsprogramm

Moderator: Moderatoren

Razorback
Beiträge: 1
Registriert: Do, 31.01.2008 21:11

2 Datumszellen sollen sich in festem Verhältnis verändern

Beitrag von Razorback »

Hallo Forum,

bin relativer Calc-Anfänger und arbeite gerade an einer kleinen Tabelle, bei welcher ich 2 Datumszellen benötige, die sich gegenseitig durch Eingabe eines neuen Datums in jeweils eine von beiden Zellen in festem Verhältnis verändern sollen.

Konkreter: In Zelle 1 wird Datum XX.XX.XXXX eingegeben -> Zelle 2 zeigt daraufhin ein Datum an, welches z.B. genau 100 Tage später liegt (YY.YY.YYYY). Umgekehrt soll sich aber bei Datums-Eingabe in Zelle 2 das Datum in Zelle 1 in das 100 Tage frühere Datum ändern.

Wie geht sowas mit Calc ?

Grüße,
Razorback
Karolus
********
Beiträge: 7550
Registriert: Mo, 02.01.2006 19:48

Re: 2 Datumszellen sollen sich in festem Verhältnis verändern

Beitrag von Karolus »

Hallo
Mit normalen Formeln geht das nur in einer Richtung:
Eingabezelle → Ausgabezelle mit Formel (='eingabezelle'+100)
Wechselseitig gehts leider nicht, da man in einer Zelle nur eines eingeben kann, direkte Eingabe oder Formel.

Gruß Karo
LO25.2… debian 13( trixie ) auf Raspberry5 8GB (ARM64)
LO25.8… flatpak debian 13( trixie ) auf Raspberry5 8GB (ARM64)
turtle47
*******
Beiträge: 1849
Registriert: Mi, 04.01.2006 20:10
Wohnort: Rheinbach

Re: 2 Datumszellen sollen sich in festem Verhältnis verändern

Beitrag von turtle47 »

Hallo Razorback,

lösen könnte man das z.B. mit einem Makro:

Code: Alles auswählen

Sub DatumPlus100
	myDoc = thisComponent
	mySheet = myDoc.sheets(0) 'erstes Tabellenblatt
	mycell1 = mysheet.getCellByPosition(0,0)'Zelle A1
	myvalue1 = mycell1.value 'lesen des Inhaltes
	mycell2 = mysheet.getCellByPosition(1,0)'Zelle B1
	myvalue2 = mycell2.value 'lesen des Inhaltes
	if myCell1.String = "" then 'Wenn Zelle A1 leer
	myvalue2 = mycell2.value
	mycell1.value = myvalue2 + 100 'dann Datum von A1 +100 in A2
	else mycell2.value = myvalue1 + 100 ' sonst Datum A2 -100 in A1
	end if
End Sub
Hilft Dir das weiter?

Jürgen
Software hat keinen Verstand - benutze deinen eigenen...!

Win 7 SP1/ LibreOffice 3.4.2 OOO340m1 (Build:203) / Firefox 15.0.1 / Notebook ASUS K70IO 64 Bit-Betriebssytem
Antworten