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

Bestimmte Tabelle neu Berechnung (wie F9) ...

Forumthread: Bestimmte Tabelle neu Berechnung (wie F9) ...

Bestimmte Tabelle neu Berechnung (wie F9) ...
Peter
möchte ich, wenn die Datei aktiviert wird.
Wohl mit
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
End Sub
Aber wie muss ich es anstellen, dass
der bei der Aktivierung der Datei der
Befehl Sheets("Übersicht").Calculate
ausgeführt wird?
Danke für eine Antwort.
Gruss, Peter
Anzeige
AW: Bestimmte Tabelle neu Berechnung (wie F9) ...
09.09.2009 18:39:06
Original
Hi,
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = "Übersicht" Then Sh.Calculate
End Sub
mfg Kurt
AW: Bestimmte Tabelle neu Berechnung (wie F9) ...
09.09.2009 18:59:19
Peter
Hallo Kurt
Irgendwie klappt es noch nicht. Ich muss immer noch F9 drücken, damit mir eine selbstgestrickte Funktion berechnet wird.
Gruss, Peter
Anzeige
AW: Bestimmte Tabelle neu Berechnung (wie F9) ...
09.09.2009 19:13:35
Original
Hi,
von einer UDF war ja auch gar nichts erwähnt!
Schreib als erste Zeile in die UDF: Application.Volatile
mfg Kurt
AW: Bestimmte Tabelle neu Berechnung (wie F9) ...
09.09.2009 20:11:36
Peter
Hi Kurt, es gibt aber im Forum große Vorbehalte zu App Volatile.
Kann denn f9 nicht via Vba substituiert werden?
Gruss , Peter
AW: Bestimmte Tabelle neu Berechnung (wie F9) ...
09.09.2009 23:02:44
Peter
Hallo Hajo
Genau - das hatte ich im Kopf
Wie kann ich jetzt aber eine Neuberechnung erzwingen, wenn ich eine bestimmte Tabelle anwähle, resp. die Datei aktiviere, wenn gleichzeitig diese Tabelle dann als erste aktiv ist?
Gruss, Peter
AW: Bestimmte Tabelle neu Berechnung (wie F9) ...
10.09.2009 09:33:33
otto
Hi,
versuchs mal so:
<pre>Private Sub Worksheet_Activate()
Calculate
End Sub</pre>
otto
Anzeige
AW: Bestimmte Tabelle neu Berechnung (wie F9) ...
10.09.2009 10:00:46
Peter
Hallo
Ich habe jetzt in "DieseArbeitsmappe" folgende Codes eingefügt:
Private Sub Workbook_Activate()
Calculate
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = "Übersicht" Then Sh.Calculate
Calculate
End Sub
So wird die Tabelle "Übersicht" immer aktiviert.
Gruss, Peter
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige