Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
652to656
652to656
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Private Sub Worksheet_Calculate()

Forumthread: Private Sub Worksheet_Calculate()

Private Sub Worksheet_Calculate()
17.08.2005 21:16:34
Alex
Hallo,
Ich habe folgende Frage:
Private Sub Worksheet_Calculate()
Wird ja immer dann ausgeführt, wenn ein Worksheet neu berechnet wird.
Wie kann ich einen Behfel ur dann ausführen lassen, wenn ein bestimmtes Blatt neu berechnet wird?
Private Sub Worksheets("Tabelle1")_Calculate()
funktioniert nicht.
Was kann ich tun?
Viele Grüße
Alex
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Private Sub Worksheet_Calculate()
17.08.2005 21:40:47
Heiko
Hallo Alex,
versteh die Frage nicht ganz.
Private Sub Worksheet_Calculate() gehört doch immer zu einem bestimmten Tabellenblatt.
Also wenn du 3 Tabellenblätter hast, kannst (oder mußt) du im Codefenster jedes Tabellenblattes Private Sub Worksheet_Calculate() programmieren.
Also für Tabelle1 einmal im Codefenster für Tabelle1, für Tabelle2 einmal im Codefenster für Tabelle 2 ...
Alles klar ?
Gruß Heiko
PS: Rückmeldung wäre nett
Anzeige
AW: Private Sub Worksheet_Calculate()
17.08.2005 21:47:41
Alex
Hallo,
komisch. Wenn ich aber aus dieser Tabelle heraus eine andere Excel-Datei öffne und diese sich neu berechnen will, kommt die Fehlermeldung und er springt in den worksheet_calculate() Befehl, der ja in der anderen Ecxeldatei! steht?!
Was soll ich nur machen?
Viele Grüße
Alex
Anzeige
AW: Private Sub Worksheet_Calculate()
17.08.2005 22:04:03
Heiko
Hallo Akex,
kopier mal deinen Code hier rein oder noch besser die Tabelle.
Vielleicht kann man dir dann helfen, weil so versteh ich die Frage immer noch nicht.
Setze die Frage dann aber als offen, damit alle nochmal reinschauen.
Gruß Heiko
AW: Private Sub Worksheet_Calculate()
18.08.2005 00:01:08
Alex
Hallo,
Problem hat sich erledigt.
Habe jetzt kein Calculate-Ereignis sondern ein Change-Ereignis für einen betimmten Zellenbereich.
Vielen Dank
Alex
Anzeige
AW: Private Sub Worksheet_Calculate()
17.08.2005 21:58:22
ChrisBee
Hallo Alex.
Kanns sein das Dein Sub einfach im falschen Code-Fenster steht?
Hast Du "Private Sub Worksheet_Calculate()" im Code-Fenster "Diese Arbeitsmappe"?
Wenn ja, dann nimms da raus und setz es in das Code-Fenster von dem Tabellenblatt in dem
es laufen soll.
Grüße
ChrisBee
Anzeige
AW: Private Sub Worksheet_Calculate()
17.08.2005 22:01:45
Alex
Hallo,
nein. Der Code steht im richtigen Fenster.
Trotzdem Danke.
Viele Grüße
Alex
;

Forumthreads zu verwandten Themen

Private Sub Worksheet_Activate()
Vera

Liebe Forumsmitglieder
mir ist aufgefallen dass Worksheet_Activate() nur bei Tabellen funktioniert. z.B.
Private Sub Worksheet_Activate() MsgBox "hallo" End Sub
Bei eingefügten Diagrammen (als eigene Seite) funktioniert das aber leider nicht.
Gibt es da auch eine Methode um...
05.09.2008 09:09:00
Thread-ID: 1007583
4 Beiträge
Private Sub Worksheet_Change
Gordon

Moin,
ich habe folgenden Code:
Sub Anzahl_Klassen() Dim anzKl As Integer anzKl = Worksheets("Tabelle1").Cells(1, 2).Value With Worksheets("Tabelle1") If anzKl = 0 Then .Rows("5:102").RowHeight = 0 Else: .Rows("5:" & anzKl * 11 + 3).RowHeight = 12.75 .Rows(anzKl * 11 + 5 & ":10...
19.11.2008 10:35:41
Thread-ID: 1025907
5 Beiträge
VBA calculate/change event
Frank

Guten Tag allerseits,
ich hoffe es ist jemand so nett, sich meiner anzunehmen und unterstützt mich bei der Lösung folgenden Problems:
Ich möchte ein Excel-Diagramm (2003) dynamisch über veränderbare Werte aus bestimmten Zellen skalieren. Es handelt sich um ein Diagramm mit jeweils primä...
09.04.2009 16:07:47
Thread-ID: 1068059
7 Beiträge
Private Sub Worksheet_Change
Larissa

Hallo VBA-Künstler,
Ich habe in meiner Excelmappe schon ein längeres
Private Sub Worksheet_Change(ByVal Target As Range)
auf dem ersten Tabellenblatt eingebaut.
Bisher habe ich es nur so hinbekommen, dass die direkte Spalte angesprochen wird, in der man gerade etwas einträgt.
05.10.2009 19:39:36
Thread-ID: 1107325
18 Beiträge
Frage zu Private Sub WorksheetActivate() | Herbers Excel-Forum
Angelo Wi
Frage zu Private Sub Worksheet_Activate()
Kann ich ein anderes Sub starten zB Application.Run "BLZusKopieren"
funktioniert bei mir nicht
03.02.2010 21:28:30
Thread-ID: 1135596
6 Beiträge
Anzeige
Private Sub WorksheetActivate + Application.Run ? | Herbers Excel-Forum
Angelo Wi
Guten Tag
ich möchte dass in diesem sub über Application.Run "Kontrolle" ein weiteres Makro sofort gestartet wird
damit das gesamte Rechenwerk überprüft und kontrolliert werden kann
bei mir funktioniert das so nicht
Herzlichen Dank für die Lösung
mfG Angelo
Private Sub Works...
05.02.2010 09:48:04
Thread-ID: 1136029
5 Beiträge
Private Sub Worksheet_Activate()
Bastian

Liebe Leute,
ich habe ein Makro mit einem "Private Sub Worksheet_Activate()" - Ereignis.
Das Makro filtert eine Tabelle mit Werten, die dann in einer Grafik verwendet werden, die in diesem Tabellenblatt liegt.
Wenn die Grafik aktiviert ist (durch Zufall bzw. unbeabsichtigt) und man...
22.04.2010 16:56:25
Thread-ID: 1153351
9 Beiträge
Private Sub Worksheet_Change(ByVal Target As Range
ing.grohn

Hallo Forum,
Worksheet_Change ist eine wunderbare Sache! (wenn sie funktioniert)
Also:
ich arbeite in einem Blatt mit: Private Sub Worksheet_Change(ByVal Target As Range)
funktioniert alles super. Nur manchmal tut das nicht!!!!
Excel beenden, neu starten, alles klar und funk...
17.06.2010 09:43:52
Thread-ID: 1162378
11 Beiträge
Private Sub Worksheet_Change in Modul auslagern
Claudia

Hallo zusammen,
möchte folgenden Code aus Private Sub Worksheet_Change(ByVal Target As Range) in ein Modul auslagern. Soll heissen: unabhä _ _ ngig von einer Eingabe wie dargestellt soll ein Makro hingehen und prüfen, ob aufgrund der _ Werte im genannten I-Bereich noch Änderungen / Ergän...
12.09.2010 21:11:38
Thread-ID: 1177131
3 Beiträge
Private Sub Worksheet_Change
Claudia

Hallo zusammen,
brauche noch einmal Eure Hilfe! Ich nutze folgenden Code.
Wie müsste ich den Code ändern, wenn die Änderungen nicht in dem aktiven Blatt sondern im Reiter mit dem Namen "Test" der gleichen Datei erfolgen müsste. Geht das übergreifend?
Vielen DAnk!
LG
Claudia<...
19.12.2010 18:39:40
Thread-ID: 1192114
9 Beiträge
Anzeige
Problem mit Private Sub Worksheet_Change(ByVal Tar
Hans

Hallo, ich habe folgendes Problem,
Ich habe im Datenblatt ein PrivateSub Worksheet_Change .. wodurch 4 Formeln in die Zellen C5, D5 .. eingetragen.
Man gibt in Zelle B5 eine Ersatzteilnummer ein, dann werden in den folgenden 4 Zellen Bezeichnung, Preis und so weiter aus der Tabelle Pre...
06.01.2011 06:38:20
Thread-ID: 1194082
2 Beiträge
Anzeige
Private Sub Worksheet_Select???
Marcy


Hallo Forum,
wie muss ich dass VBA ändern, dass es ausreicht, wenn in Stalte A ein Zelle markiere (nur ein Mausklick).
Wegen einer freigegebenen Mappe will ich so Konflikte vermeiden.
Gruß Marcy
Private Sub Worksheet_Select(ByVal Target As Excel.Range) If Target.Row = 1 And...
06.03.2012 12:58:51
Thread-ID: 1253846
5 Beiträge
Anzeige

Infobox / Tutorial

Private Sub Worksheet_Calculate und seine Anwendung in Excel VBA

Schritt-für-Schritt-Anleitung

  1. Öffne den VBA-Editor:

    • Drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Wähle das gewünschte Arbeitsblatt aus:

    • Im Projektfenster auf der linken Seite findest du alle Tabellenblätter. Doppelklicke auf das Arbeitsblatt, für das du den Worksheet_Calculate-Code einfügen möchtest.

  3. Füge den Code ein:

    • Schreibe den folgenden Code in das Codefenster des Arbeitsblattes:
    Private Sub Worksheet_Calculate()
   ' Hier kommt der Code, der ausgeführt werden soll
End Sub

  4. Anpassen für spezifische Berechnungen:

    • Wenn du nur eine bestimmte Berechnung ausführen möchtest, füge Bedingungen hinzu, um zu prüfen, ob der berechnete Wert dem gewünschten Wert entspricht.

  5. Speichern und Testen:

    • Speichere die Datei und teste die Funktion, indem du das Arbeitsblatt änderst, um die Berechnung auszulösen.

Häufige Fehler und Lösungen

  • Code im falschen Fenster:

    • Stelle sicher, dass du den Private Sub Worksheet_Calculate() im Code-Fenster des richtigen Arbeitsblattes eingefügt hast und nicht im Modul "Diese Arbeitsmappe".

  • Fehlermeldungen bei externen Dateien:

    • Wenn du eine andere Excel-Datei öffnest und es zu Fehlermeldungen kommt, könnte es daran liegen, dass der worksheet_calculate-Befehl auch von der anderen Datei beeinflusst wird. Überprüfe, ob du das Worksheet_Calculate korrekt implementiert hast.

  • Änderungen nicht erkannt:

    • Wenn Änderungen an Zellen nicht erkannt werden, könnte es sein, dass du ein Change-Ereignis statt des Calculate-Ereignisses verwenden musst. Überlege, ob dies in deinem Fall sinnvoll ist.

Alternative Methoden

  • Verwendung von Worksheet_Change:

    • Anstelle des Calculate-Ereignisses kannst du auch das Change-Ereignis nutzen, wenn du auf spezifische Zelländerungen reagieren möchtest. Der Code sieht dann so aus:
    Private Sub Worksheet_Change(ByVal Target As Range)
   If Not Intersect(Target, Me.Range("A1")) Is Nothing Then
       ' Dein Code hier
   End If
End Sub

  • Verwendung von Target.Calculate:

    • Wenn du bei bestimmten Zellen kalkulieren möchtest, kannst du excel vba target.calculate verwenden, um nur die spezifischen Zellen zu berechnen.

Praktische Beispiele

  • Einfacher Berechnungsbeispiel:

    Private Sub Worksheet_Calculate()
   Me.Range("B1").Value = Me.Range("A1").Value * 2
End Sub

    Hier wird der Wert in Zelle A1 verdoppelt und in B1 ausgegeben, jedes Mal, wenn das Arbeitsblatt neu berechnet wird.

  • Bedingte Berechnung:

    Private Sub Worksheet_Calculate()
   If Me.Range("A1").Value > 10 Then
       MsgBox "Der Wert in A1 ist größer als 10"
   End If
End Sub

Tipps für Profis

  • Debugging: Nutze Debug.Print in deinem Code, um Ausgaben während der Ausführung im Direktfenster zu sehen. Dies hilft dir, Fehler schneller zu finden.

  • Optimierung: Versuche, Berechnungen möglichst effizient zu gestalten, um die Performance deiner Excel-Datei zu verbessern, besonders bei großen Datenmengen.

  • Dokumentation: Kommentiere deinen Code gut, damit du oder andere Benutzer später verstehen, was der Code macht.

FAQ: Häufige Fragen

1. Wie kann ich sicherstellen, dass mein Private Sub Worksheet_Calculate() nur für ein bestimmtes Blatt funktioniert?
Du musst den Code im entsprechenden Codefenster des Arbeitsblattes platzieren, das du überwachen möchtest.

2. Was mache ich, wenn ich mehrere Worksheet_Calculate-Ereignisse in unterschiedlichen Blättern nutzen möchte?
Jedes Arbeitsblatt benötigt seinen eigenen Private Sub Worksheet_Calculate()-Code. Du kannst den Code für jedes Blatt anpassen, um spezifische Funktionen auszuführen.

3. Warum funktioniert mein Calculate-Ereignis nicht, wenn ich eine andere Datei öffne?
Das könnte daran liegen, dass der worksheet_calculate-Befehl in der geöffneten Datei aktiv ist. Stelle sicher, dass du den Code nur in der gewünschten Datei ausführst.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige