Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
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 20: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 20: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 21: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 22: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) ...
10.09.2009 01: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 11: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 12: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
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
14.05.2026 09:50:42
13.05.2026 19:14:18