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

Forumthread: Wenn änderung dann Funktion aktuelisieren

Wenn änderung dann Funktion aktuelisieren
26.01.2006 09:14:44
OBI
Hallo zusammen,
ich habe ein Problem :) also ich habe eine funktion die alle farbigen zellen eines bereiches addiert. nun ist es aber so das wenn man z.b. noch eine andere zelle in dem bereich einfärbt soll diese auch dazu addiert werden, das tut sie aber nich. die funktion aktuelisiert sich nicht. das funktionniert erst wenn man nochmal in die zelle mit der funktion reingeht und dann enter drückt.
gibt es eine möglichkeit diese funktion zu aktuelisieren, wenn man z.b. iwas aus dem vorgegebenen berreich ändert oder so?
gruß
OBI
Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wenn änderung dann Funktion aktuelisieren
26.01.2006 09:26:54
Harald
Moin OBI,
ich hätte eine benutzerdefinierte Funktion im Angebot.
Diesen Code ins Standardmodul der Mappe kopieren. dann hast Du eine Funktion
(im Funktionsassi unter benutzerdefinierte Funktionen).
ALT+F11, Einfügen, Modul und den Code ins rechte Fenster kopieren.
Anwendung.
=Farbsumme(A1:A70;4) in diesem Beispiel, zählt er alle Zellen mit Farbindex 4 im Bereich A1:A70.

Function Farbsumme(Bereich As Range, Farbe As Integer)
Application.Volatile ' damit bei änderung ausgeführt wird
Dim Zelle
Farbsumme = 0
For Each Zelle In Bereich
If Zelle.Interior.ColorIndex = Farbe Then
Farbsumme = Farbsumme + 1
End If
Next
End 

Function
Gruss Harald

Anzeige
AW: Wenn änderung dann Funktion aktuelisieren
26.01.2006 09:34:15
OBI
Danke für die schnelle Antwort aber so eien Funktion habe ich ja schon mein Prob ist es das sie sich nich aktuelisiert... Hier ma an einem Bsp also ich hab ma ne tabelle bei gefügt... mit der funktion im moment sind drei felder geld makiert diese ergeben zusammen neun (wie es unten auch schon stehet) wenn ich jetzt aber z.b. noch ein feld gelb makiere ändert sich das ergebnis unten nicht... ich muss erst wieder in die funktion gehen und enter drücken...
gibt es für anderes aktuelisieren eine möglichkeit?
gruß
OBI
Anzeige
AW: Wenn änderung dann Funktion aktuelisieren
26.01.2006 09:39:37
PeterW
Hallo,
im Codebeispiel steht doch sogar mit Kommentar, was du brauchst:
Application.Volatile ' damit bei änderung ausgeführt wird
Gruß
Peter
Anzeige
AW: Wenn änderung dann Funktion aktuelisieren
26.01.2006 09:41:46
OBI
ja ich weiß... ganz so blöd bin ich nu auch nich... aber es funktioniert numal nicht -.-...
gruß obi
AW: Wenn änderung dann Funktion aktuelisieren
26.01.2006 09:41:10
Martin
Hallo Harald,
das tut's auch nicht, wenn die Füllfarbe manuell geändert wird. Die Neuberechnung der Funktion erfolgt erst dann, wenn eine andere Formel in der Tabelle neu berechnet wird, oder bei F9.
Die Neuberechnung könnte man mit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End Sub

erzwingen, ist aber unschön, da die umgefärbte Zelle auch wieder verlassen werden muß und da bei jeder Markierung einer Zelle alle Formeln neuberechnet werden.
Gruß
Martin Beck
Anzeige
AW: Wenn änderung dann Funktion aktuelisieren
26.01.2006 09:45:56
OBI
Das mit dem F9 is doch schoneinmal schön aber das andere will auch nich so richtich... wo muss ich das denn einfügen? ich bin ein absoluter anfänger auf dem gebiet...
gruß
obi
AW: Wenn änderung dann Funktion aktuelisieren
26.01.2006 09:54:04
Martin
Hallo,
Rechtsclick auf den Tabellenreiter, Code-Anzeigen und den Code in das sich öffnende Fenster kopieren.
Gruß
Martin Beck
Anzeige
AW: Wenn änderung dann Funktion aktuelisieren
26.01.2006 09:56:13
OBI
Vielen vielen Dank...
Genau sowas habe ich gesuch...
Gruß
OBI
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
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