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: 7535
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
LO7.4.7.2 debian 12(bookworm) auf Raspberry5 8GB (ARM64)
LO25.2.3.2 flatpak debian 12(bookworm) 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