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
2 Datumszellen sollen sich in festem Verhältnis verändern
Moderator: Moderatoren
Re: 2 Datumszellen sollen sich in festem Verhältnis verändern
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
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)
LO25.2.3.2 flatpak debian 12(bookworm) auf Raspberry5 8GB (ARM64)
Re: 2 Datumszellen sollen sich in festem Verhältnis verändern
Hallo Razorback,
lösen könnte man das z.B. mit einem Makro:
Hilft Dir das weiter?
Jürgen
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
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
Win 7 SP1/ LibreOffice 3.4.2 OOO340m1 (Build:203) / Firefox 15.0.1 / Notebook ASUS K70IO 64 Bit-Betriebssytem