Zirkelbezug überschreiben

Hallo zusammen,

ich bin heute zum ersten Mal auf eine Zirkelbezug-Warnung gestoßen, als ich meine monatliche Finanzübersicht verfeinern wollte.
Ich habe mir vor kurzem eine kleine Tabelle erstellt, die mir automatisch ausrechnet, in welcher Woche des Monats ich wie viel Geld transferiert habe. Also "wartet" Excel darauf, dass der 07./08. eines Monats anbricht und rechnet dann aus, wie viel Geld ich vom Monatsbeginn bis zum 07. des Monats transferiert habe. Das geht so weiter, bis das Monatsende erreicht ist. Das ist aber leider nur einen Tag zu sehen, nämlich am manuell festgelegten Monatsende (im Februar diesen Jahres der 29.) Dann verschwindet der Wert wieder, da die Zählung der Tage mit dem neuen Monat durch =TAG(HEUTE()) von vorne beginnt.
Um das zu umgehen, wollte ich, sobald das Monatsende erreicht ist, die letzte zählende Zelle überschreiben und die enthaltene Formel durch eine einfache Zahl ersetzen. Also statt der Formel =WENN(TAG(HEUTE())>=M2;SUMME...{ich überspringe das hier, ist zu lang}...) soll nur noch (fiktive Zahl) 2000 drin stehen.

Das habe ich in einem zweiten Dokument ausprobiert:
Zelle A1: 0
Zelle B1: =WENN(A1=1;B1="Hallo")
und zack kam die Zirkelbezugs-Warnung. Ich weiß, dass ich damit die Zelle überschreiben würde, aber das ist auch genau das, was ich machen will.

Hat jemand von euch dafür eine Lösung?

Danke im Voraus!!!

Liebe Grüße,
Thorsten

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Wenn es nur darauf ankäme, dass in Zelle B2 der Wert "Hallo" erscheint, wenn in A1 einmal der Wert 1 aufgetaucht ist, dann müsste man ja eine Formel in B2 nicht unbedingt löschen, aber ohne VBA wird auch das nichts. Ein Blattschutz dürfte da mit der Methode auch keine Probleme machen:

Man könnte einen Namen definieren (Namensmanger), z.B. MyHallo und diesem Namen den Wert =Falsch zuweisen.
in B2 dann die Formel:
=WENN(MyHallo;"Hallo";"")
Im Codebereich der Tabelle, wenn es sich bei A1 um eine berechnete Zelle handelt dann:

Private Sub Worksheet_Calculate()

    If Range("A1").Value = 1 Then

        ThisWorkbook.Names("MyHallo").RefersTo = True

    End If

End Sub

Wenn es sich bei A1 um eine Eingabezelle handelt dann:

Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub

    If Range("A1").Value = 1 Then

        ThisWorkbook.Names("MyHallo").RefersTo = True

    End If

End Sub

Das hätte den Charme, dass man das auch leicht über den Namensmanager wieder auf Anfang setzten könnte indem man dem Namen wieder =Falsch zuweist.
Im Grunde könnte man auch gleich dem Namen ="" zuweisen, die Formel in B2 auf =MyHallo stellen und per VBA dann, wenn Zelle A1 den Wert 1 hat, dem Namen MyHallo den Wert ="Hallo" zuweisen. Aber vielleicht will man ja den Schalter auch noch anderweitig verwenden...aber...

..ich schätze mal, dass es tatsächlich um etwas anderes geht, als ich denke und ich mir völlig für die Hühner den Kopf mache, wie man das lösen könnte.

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zirkelbezug überschreiben

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread