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
LO25.2… debian 13( trixie ) auf Raspberry5 8GB (ARM64)
LO25.8… flatpak debian 13( trixie ) auf Raspberry5 8GB (ARM64)
LO25.8… flatpak debian 13( trixie ) 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 SubJü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