Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

EDATUM

1 view
Skip to first unread message

Gebhard von Busse

unread,
Apr 11, 2008, 10:41:00 AM4/11/08
to
Hi!

In einem Arbeitsblatt nutze ich an mehren Stellen die Funktion EDATUM.
Lade ich dieses Arbeitsblatt, erscheint trotz "automatischer Berechnung"
ein #NAME in diesen Zellen. Auch eine manuelle Kalkulation ändert nichts.
Ein F2 + Return in dieser Zelle bringt dann doch den richtigen Wert.
Wie kann ich Excel dazu bringen, direkt der richtigen Wert statt #NAME
anzuzeigen?

MfG
GvB

Alexander Wolff

unread,
Apr 11, 2008, 10:36:12 AM4/11/08
to
Die Tastatur von Gebhard von Busse wurde wie folgt gedrückt:


Wahrscheinlich geht es um einen Wechsel zwischen 2003 und 2007.

Du bist doch eigentlich schon länger dabei:

http://excelformeln.de/formeln.html?welcher=6
oder allgemein http://excelformeln.de/formeln.html?welcher=319

Thomas Ramel empfiehlt, blattweit = durch = ersetzen zu lassen (also
gleiches durch gleiches). Dann wirds wohl gehen.
--
Moin+Gruss Alexander - MVP for MS Excel - www.xxcl.de - mso2000sp3 --7-2


Gebhard von Busse

unread,
Apr 11, 2008, 3:00:00 PM4/11/08
to
Hi Alexander,

> From: "Alexander Wolff" <oo...@gmx.de>
> Subject: Re: EDATUM
> Die Tastatur von Gebhard von Busse wurde wie folgt gedrückt:
>> In einem Arbeitsblatt nutze ich an mehren Stellen die Funktion EDATUM.
>> Lade ich dieses Arbeitsblatt, erscheint trotz "automatischer
>> Berechnung" ein #NAME in diesen Zellen. Auch eine manuelle
>> Kalkulation ändert nichts. Ein F2 + Return in dieser Zelle bringt
>> dann doch den richtigen Wert.
>> Wie kann ich Excel dazu bringen, direkt der richtigen Wert statt #NAME
>> anzuzeigen?

> Wahrscheinlich geht es um einen Wechsel zwischen 2003 und 2007.
> Du bist doch eigentlich schon länger dabei:

So sieht es aus. Und so konnte ich auch in vielen Beiträgen suchen. Ich
fand nur Probleme mit dem Ergebnis von EDATUM und mit den nicht-
aktivierten Analysefunktionen (auch auf den beiden Links von Dir). Dass
man nach Laden einer Mappe in den Zellen einen Fehler sieht, der
eigentlich keiner ist und den man mit F2/Return beheben muss, weil er auch
durch KALK nicht zu beheben ist, ist mir neu. Und "verstehen" tue ich das
auch nicht (aber wer versteht schon MS :-)).

> Thomas Ramel empfiehlt, blattweit = durch = ersetzen zu lassen (also
> gleiches durch gleiches). Dann wirds wohl gehen.

Ja, das ist eine "Lösung", aber da muss ich mir was anderes ausdenken und
doch auf die alternativen Formeln ausweichen, auch wenn die ein wenig
Schreibarbeit erfordern.

Danke für Antwort!
MfG
GvB

Michael Schulz

unread,
Apr 13, 2008, 2:37:42 AM4/13/08
to
Hallo Gebhard,

pu...@kruemel.org (Gebhard von Busse) writes:

>
> So sieht es aus. Und so konnte ich auch in vielen Beiträgen suchen. Ich
> fand nur Probleme mit dem Ergebnis von EDATUM und mit den nicht-
> aktivierten Analysefunktionen (auch auf den beiden Links von Dir). Dass
> man nach Laden einer Mappe in den Zellen einen Fehler sieht, der
> eigentlich keiner ist und den man mit F2/Return beheben muss, weil er auch
> durch KALK nicht zu beheben ist, ist mir neu. Und "verstehen" tue ich das
> auch nicht (aber wer versteht schon MS :-)).
>

was hälst du von der Idee F2/Return durch ein Makro ersetzen zu
lassen?

Sub F2ReturnAutomat()
DIM Zelle AS Objekt

For Each Zelle in Selection
SendKeys "{F2}", True
SendKeys "{ENTER}", True
Next Zelle
END Sub

--
Mit freundlichem Gruß
Michael

Thomas Ramel

unread,
Apr 13, 2008, 4:37:53 AM4/13/08
to
Grüezi Michael

Michael Schulz schrieb am 13.04.2008

Aber nicht wirklich, oder?

Dann doch schon eher wie folgt:

Sub UpdateAnalysis()
Dim WsTabelle As Worksheet
For Each WsTabelle In ActiveWorkbook.Sheets
With WsTabelle.Cells.SpecialCells(xlCellTypeFormulas)
If .HasArray Then
.FormulaArray = .FormulaArray
Else
.FormulaLocal = .FormulaLocal
End If
End With
Next WsTabelle
End Sub


Mit freundlichen Grüssen
Thomas Ramel

--
- MVP für Microsoft-Excel -
[Win XP Pro SP-2 / xl2003 SP-2]
Microsoft Excel - Die ExpertenTipps

Gebhard von Busse

unread,
Apr 13, 2008, 10:51:00 AM4/13/08
to
Grüezi Thomas,

> From: Thomas Ramel <t.r...@MVPs.org>
> Subject: Re: EDATUM

>> pu...@kruemel.org (Gebhard von Busse) writes:
>>
>> was hälst du von der Idee F2/Return durch ein Makro ersetzen zu
>> lassen?

Das sieht ja beinahe so aus, als hätte ich mir diesen Vorschlag gemacht
:-)

> Aber nicht wirklich, oder?
> Dann doch schon eher wie folgt:

(...)
Eigentlich versuche ich nur Dinge in meinen Tabellen zu nutzen, die ich
wenigstens zu 70 % verstehe. Dein Makro würde ich nur verstehen, wenn ich
einen Tag wieder VBA blättere.
So habe ich lieber die "kurze Fassung" der Formal in dem Link von
Alexander genommen. Und zugegeben: auch die habe ich nicht in allen
Parametern verstanden, aber ich bin wieder ein kleines Problem los.

Einen Sonntagsgruß in den Kantonsstaat
GvB
MfG
GvB

Gebhard von Busse

unread,
Apr 13, 2008, 10:42:00 AM4/13/08
to
Hi Michael,

> From: Michael Schulz <sag...@hier.net>
> Subject: Re: EDATUM

> was hälst du von der Idee F2/Return durch ein Makro ersetzen zu
> lassen?

Da war die "ersetzen"-Funktion so ähnlich und auch nicht schön.
Ich habe mich für die Formel, die mir Alexander nahe legte, genommen.

Mit freundlichem Gruß
GvB
MfG
GvB

Thomas Ramel

unread,
Apr 13, 2008, 10:23:25 AM4/13/08
to
Grüezi Gebhard

Gebhard von Busse schrieb am 13.04.2008

> Grüezi Thomas,
>
> > From: Thomas Ramel <t.r...@MVPs.org>
>

> > Dann doch schon eher wie folgt:
>

> Eigentlich versuche ich nur Dinge in meinen Tabellen zu nutzen, die ich
> wenigstens zu 70 % verstehe. Dein Makro würde ich nur verstehen, wenn ich
> einen Tag wieder VBA blättere.

Sooo schlimm kanns aber nun auch nicht sein, oder - stell dein Licht nicht
unter den Scheffel! :-)

Hier noch mit ein paar Kommentaren garniert:

Sub UpdateAnalysis()
Dim WsTabelle As Worksheet

'jedes Tabellenblatt der Mappe durchlaufen


For Each WsTabelle In ActiveWorkbook.Sheets

' nur die Zellen mit Formeln prüfen
With WsTabelle.Cells.SpecialCells(xlCellTypeFormulas)

' wenn eine Matrixformel enthalten ist
If .HasArray Then

' diese durch sich selbst ersetzen
.FormulaArray = .FormulaArray
Else

' ansonsten die normale Formel durch sich selbst ersetzen


.FormulaLocal = .FormulaLocal
End If
End With
Next WsTabelle
End Sub

> So habe ich lieber die "kurze Fassung" der Formal in dem Link von
> Alexander genommen. Und zugegeben: auch die habe ich nicht in allen
> Parametern verstanden, aber ich bin wieder ein kleines Problem los.

Das ist doch die Hauptsache und Sinn dieser NG hier.

Gebhard von Busse

unread,
Apr 13, 2008, 2:28:00 PM4/13/08
to
Grueezi Thomas!

>> So habe ich lieber die "kurze Fassung" der Formal in dem Link von
>> Alexander genommen. Und zugegeben: auch die habe ich nicht in allen
>> Parametern verstanden, aber ich bin wieder ein kleines Problem los.

> Das ist doch die Hauptsache und Sinn dieser NG hier.

Und Danke, dass Du was Positives (mal wieder) dazu beigetragen hast!

MfG
GvB

0 new messages