Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
312to316
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
312to316
312to316
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Aktualisieren von Zellen

Aktualisieren von Zellen
23.09.2003 16:57:22
Vasko
Hallo Leute

Mit der in diesem Forum unter https://www.herber.de/forum/archiv/184to188/t187957.htm publizierte Funktion "Farbe" summiere ich Werte von Zellen die mit Farbe hinterlegt sind.
Die Funktion funktioniert soweit gut, nur wenn die Farbe ändert wird die
Funktion nicht automatisch aktualisiert. Auch das Aktualisieren über F9 hilft
nicht.
Hat jemand eine gute Idee wie das aktalisieren automatisiert werden kann?

MfG Vasko

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Application.Volatile
23.09.2003 17:07:40
IngoG
Hallo Vasko,

versuch mal die folgende Zeile:

Application.Volatile

am anfang der function einzusetzen
sollte dann funzen

Gruß Ingo
AW: Application.Volatile
24.09.2003 08:14:46
vasko
Hallo Ingo

Danke für die rasche Antwort.

Ich habe "Application.Volatile" meiner nachstehenden Funktion angefügt leider ohne Erfolg.
Nach ausführen der Funtion bekomme ich die Fehlermeldung "Fehler beim Kompilieren, Ausserhalb der Prozedur ungültig.

Application.Volatile


Function Farbe(Bereich As Range, Farbwahl As Byte)
Dim c As Range
If Farbwahl = 35 Then ' Pastellgrün
For Each c In Bereich
If c.Interior.ColorIndex = Farbwahl Then Farbe = Farbe + c.Value
Next c
End If
End Function


MfG Vasko
Anzeige
falsche stelle
24.09.2003 10:43:11
ingo
HAllo Vasko,

die zeile gehört in deinem Code hinter den Dim-befehl

Gruß Ingo
AW: falsche stelle
24.09.2003 14:32:43
Vasko
Hallo Ingo

Jetzt funktioniert es nach meinem Vorstellungen.
Nochmals herzlichen Danke für deine Hilfe.

vasko
AW: falsche stelle
25.09.2003 12:13:43
Vasko
Hallo Ingo

In Test funktionierte allse supper. Nur wenn ich das in der Praxis anwende rechnet
er bei jeder Eingabe ca. 8-10 Sek. Ist es Möglich das Ganze auf Komando über einen Button oder F-Taste zu starten ?

Gruss Vasko

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige