Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Werte aus datumsbezogener Formel speichern

Werte aus datumsbezogener Formel speichern
10.10.2024 13:37:32
Michael
https://www.herber.de/bbs/user/172760.xlsx

Hallo zusammen,

ich habe folgendes Problem, das wohl nur über VBA gelöst werden kann:

In Tabelle1 (Spalte C) möchte ich für alle Kalenderwochen des Jahres einen Wert speichern, der aus Tabelle2 (B3) über Formel ausgelesen wird. Der Wert in Tabelle2 (B3) verändert sich laufend.

Beispiel für Kalenderwoche 41:

=WENN(UND(HEUTE()>B5;HEUTE()=B6);Tabelle2!$B$3;#NV)

Am Ende des Jahres soll eine Tabelle mit allen Werten am Ende einer Kalenderwoche vorliegen (die Werte werden u.a. in einem Diagramm dargestellt).

Mit der jetzt verwendeten Formel verliere ich nach Ende einer Kalenderwoche natürlich wieder den ursprünglich ermittelten Wert. In der Zelle steht dann wieder #NV.

Bisher behelfe ich mich damit, dass ich zum Ende einer Kalenderwoche in der Tabelle1 die Formel mit dem aktuell ermittelten Wert manuell überschreibe :-(
(sh. C4 und C5 in Tabelle1).

Gibt es eine Möglichkeit, den jeweils aktuellen Wert aus Tabelle2 (B3) zwischenzuspeichern, der richtigen Kalenderwoche zuzuordnen und dann automatisch in die entsprechenden Zellen der Spalte C in Tabelle1 darzustellen???

Vielen Dank für jeden Tipp im Voraus.

Michael

PS: meine VBA-Kenntnisse beschränken sich darauf, fertigen Code in Visual Basic einzufügen bzw. minimal zu modifizieren.
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Werte aus datumsbezogener Formel speichern
10.10.2024 16:31:00
emkaes
Hallo,

folgenden Code in das Tabellenmodul der Tabelle1

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Columns(2)) Is nothing And IsDate(Target.Value) Then
If Target.Value > Target.Offset(-1).Value And Target.Value = Date Then
Application.EnableEvents = False
Target.Offset(, 1).Value = Worksheets("Tabelle2").Cells(3, 2).Value
Application.EnableEvents = True
End If
End If
End Sub

Anzeige
AW: Werte aus datumsbezogener Formel speichern
10.10.2024 18:17:45
Michael
Vielen Dank für die schnelle Rückantwort. Werde es mir aber erst am Wochenende anschauen können und melde mich dann noch einmal

Michael
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige