Kalenderwoche einfüg und dann fix

Computer: Software & Programmierung Office Software
1

Hallo, liebe Excel-Gemeinde,

ich hab da einen Wunsch:
In eine Excel-Datei würde ich gerne eine (bereits ermittelte) Zahl, z. B. die aktuelle Kalenderwoche, auslesen/in eine Zelle einfügen. Anschließend aber soll sich diese Zahl auch in den kommenden Kal-Wochen nicht mehr ändern (weil von ihr wiederum Terminvorgaben abhängig bleiben sollen).

Also: einmal aktuell einfügen, aber dann unverändert bleiben. Geht das?

Danke für Rat und Hilfe.
Ludwig

2

Bitte verdeutlichen

Hallo, liebe Excel-Gemeinde,

Hi,

ich hab da einen Wunsch:
In eine Excel-Datei würde ich gerne eine (bereits ermittelte)
Zahl, z. B. die aktuelle Kalenderwoche, auslesen/in eine Zelle
einfügen. Anschließend aber soll sich diese Zahl auch in den
kommenden Kal-Wochen nicht mehr ändern (weil von ihr wiederum
Terminvorgaben abhängig bleiben sollen).

???

Also: einmal aktuell einfügen, aber dann unverändert bleiben.
Geht das?

Wie wäre es, wenn du es noch einmal deutlich umschreibst oder noch besser, uns die xls-Datei zugänglich machst!?

Danke für Rat und Hilfe.
Ludwig

Gruß.Timo

3

Hallo Wiggerl,

das würde ich per Makro machen. Denn wenn Du es über normale Zellfunktionen machst, dann wird ja - wie von Dir schon bemerkt - der Zellinhalt immer aktualisiert.

Via Makro kannst Du eine neue Zeile einfügen und nur in diese den aktuellen Wert eintragen.

Martin

4

Das scheint mir die einzige Möglichkeit zu sein.
Gruß
Ludwig

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

5

In eine Excel-Datei würde ich gerne eine (bereits ermittelte)
Zahl, z. B. die aktuelle Kalenderwoche, auslesen/in eine Zelle
einfügen. Anschließend aber soll sich diese Zahl auch in den
kommenden Kal-Wochen nicht mehr ändern (weil von ihr wiederum
Terminvorgaben abhängig bleiben sollen).
Also: einmal aktuell einfügen, aber dann unverändert bleiben.

Hi Ludwig,
Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Worksheets(„Tablle1“).[A1].Copy
Worksheets(„Tablle1“).[A1].PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub
Gruß
Reinhard