Bezugsfehler bei 3D-Funktio

12/11/2008 - 14:55 von c-class | Report spam
Bezugsfehler in Konsilidierung beheben

Hallo Excel-Freunde,

ich nutze eine Summenfunktion um von Blatt x bis y alles
aufzusummieren.

=summe(Blatt1!A1;Blatt5!A1)

Natürlich passiert beim Löschen das unvermeidliche. Die Bezüge werden
ungültig und die Formeln enthalten nur noch #Bezug!

Bezogen auf einen Bezugsfehler làsst sich das recht schnell mit
Replace oder Substitute beheben.
Aber bei zwei Bezugsfehlern spielt VBA irgendwie nicht mit:

For Each cell In Range("C7:W24") 'Z341

Cells.Replace What:="(#REF!", Replacement:="(Russland!",
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False

Cells.Replace What:=";#REF!", Replacement:=";Bulgarien!",
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False

Next cell

Wie bekomm ich das hin? Was mach ich falsch?
C64
 

Lesen sie die antworten

#1 Alexander Wolff
12/11/2008 - 15:42 | Warnen spam
Die Tastatur von c-class wurde wie folgt gedrückt:
Bezugsfehler in Konsilidierung beheben



Konsolidierung

ich nutze eine Summenfunktion um von Blatt x bis y alles
aufzusummieren.

=summe(Blatt1!A1;Blatt5!A1)



Niemand weiß jetzt genau, was gemeint ist!
; ist kein Bereichs"aufspanner", sondern Bereichs"hinzufüger".
Aber genau das spielt hier doch grad die Rolle.
Man sollte daher immer kopieren, statt selbst schreiben.
Für mich muss es statt dessen heißen:
=SUMME(Blatt1!A1:Blatt5!A1)
und da das 'nen Fehler gibt, korrigiere ich einfach zu
=SUMME(Blatt1:Blatt5!A1)

Natürlich passiert beim Löschen das unvermeidliche. Die Bezüge werden
ungültig und die Formeln enthalten nur noch #Bezug!

Bezogen auf einen Bezugsfehler làsst sich das recht schnell mit
Replace oder Substitute beheben.
Aber bei zwei Bezugsfehlern spielt VBA irgendwie nicht mit:

Cells.Replace What:=";#REF!", Replacement:=";Bulgarien!",
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Wie bekomm ich das hin? Was mach ich falsch?



Das Semikolon ist falsch. Guck mein Beispiel an. Ob sich aus einer entspr.
Änderung nun ganz neue Bezugsfehler ergàben, habe ich allerdings nicht
getestet.
Moin+Gruss Alexander - MVP for MS Excel - www.xxcl.de - mso2000sp3 --7-2

Ähnliche fragen