Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
360to364
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
360to364
360to364
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Füllfarbe als Multiplikator, Zellwert ersetzen

Füllfarbe als Multiplikator, Zellwert ersetzen
12.01.2004 09:09:38
Harald
Hallo zusammen,
in einer Liste für Arbeitsstundenerfassung, sind 3 Füllfarben im Einsatz.
Ist es möglich, jeder dieser Farben einen Faktor zuzuweisen (rot 1,2; blau 1,3 und gelb 1,5). So dass die Werte in den Zellen bei Bedarf entsprechend der Füllfarbe neu berechnet werden und den vorherigen Wert ersetzen ?
Als Leckerschmecker obendrauf vielleicht noch ein Warnhinweis, wenn jemand diese Berechnung irrtümlicherweise 2mal durchführen möchte.
Vielen Dank schonmal
Muster unter
https://www.herber.de/bbs/user/2849.xls
Harry

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Füllfarbe als Multiplikator, Zellwert ersetzen
12.01.2004 09:51:29
Matthias G
Hallo Harry,
ich rate dir davon ab, die alten Werte einfach zu überschreiben.
Das führt zu ziemlich unübersichtlichen Ergebnissen (wie du schon sagst: sind die Werte bereits farbenabhängig multipliziert worden oder nicht? Wie soll das vermerkt werden?).
Wie wäre es denn, wenn Du auf einem zweiten Blatt die gleiche Tabelle aufbaust mit Bezugnahme auf das erste.
Die Formel heisst dann z.B. bei Tabelle2, Zelle B2:
=NeuerWert(Tabelle1!B2)
Dann kannst Du die Formeln ja in die anderen Zellen runter- und rüberziehen.
Die Funktion NeuerWert() lautet so (den Code im VBA-Editor in ein normales Modul kopieren):

Function NeuerWert(z As Range) As Double
Dim c As Long
c = z.Interior.ColorIndex
Select Case c
Case 3 'rot
NeuerWert = z.Value * 1.2
Case 41 'blau
NeuerWert = z.Value * 1.3
Case 6 'gelb
NeuerWert = z.Value * 1.5
Case Else
NeuerWert = z.Value
End Select
End Function

WICHTIG ist noch, dass bei einer Farbänderung die Werte nicht neu berechnet werden. Das musst Du manuell mit Strg-Alt-F9 machen!
Gruß,
Matthias
Anzeige
Danke Matthias..gute Idee und funktioniert
12.01.2004 10:06:09
Harald
Es zahlt sich doch immer aus, sich auf das Wesentliche zu beschränken
AW: Danke für die Rückmeldung! - o.T.
12.01.2004 10:12:55
Matthias G
-

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige