Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 11:26:57
Probleme mit tbl.Listrows.add
23.04.2024 10:55:14
Zeilen sortieren
23.04.2024 10:23:52
Tabelle 90° drehen + Filteroptionen
23.04.2024 10:11:03
Dateiname plus Wenn vorhanden dann "(1)" anhängen.
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1140to1144
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
1140to1144
1140to1144
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Farbe der Autoform abhängig von Zellwert ändern

Farbe der Autoform abhängig von Zellwert ändern
Zellwert
Hallo liebe Community,
ich habe ein kleines VBA Problem und hoffe ich könnt mir etwas weiterhelfen.
In dem nachfolgenden Bild werden in Spalte "G" die Texte "WAHR" und "FALSCH" eingetragen; diese Werte werden ständig aktualisiert (von einem Server). Bei Mausklick auf den CommandButton "Start Refresh" soll jetzt ein Makro solange ausgeführt werden bis CommandButton "Start Refresh" wieder gedrückt wird. Das Makro soll den Wert "G8" überwachen; ändert sich der Wert von "Wahr" auf "Falsch", dann soll die AutoForm "Lüfter1" die Farbe von "grün" auf "rot" wechseln. Das ganze soll natürlich auch umgekehrt funktionieren.
Userbild
Leider habe ich mit meinem VB Versuch noch nicht so viel erfolgt gehabt:

Sub Worksheet_Change(ByVal Target As Range)
If Range("G8") = "WAHR" Then
ActiveSheet.Shapes("Lüfter1").Select
With Selection
.ShapeRange.Fill.ForeColor.SchemeColor = 11
End With
End If
If Range("G8") = "Falsch" Then
ActiveSheet.Shapes("Lüfter1").Select
With Selection
.ShapeRange.Fill.ForeColor.SchemeColor = 10
End With
End If
End Sub

Wahrscheinlich muss man hier aber eine Schleife verwenden ?
Könnt ihr mir weiterhelfen wie ich das zum Laufen bekommen ?
Vorab besten Dank...
Gruss,
Michael

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

Betreff
Benutzer
Anzeige
AW: Farbe der Autoform abhängig von Zellwert ändern
26.02.2010 12:33:36
Zellwert
Hi Michael,
versuche es mal so: verwende einen ToggleButton und folgenden Code im Codemodul des Tabellenblattes
Private Sub Worksheet_Calculate()
If ActiveSheet.ToggleButton1 Then
If Range("G8") = True Then
ActiveSheet.Shapes("Lüfter1").DrawingObject.ShapeRange.Fill.ForeColor.SchemeColor =  _
11
Else
ActiveSheet.Shapes("Lüfter1").DrawingObject.ShapeRange.Fill.ForeColor.SchemeColor =  _
10
End If
End If
End Sub

AW: Farbe der Autoform abhängig von Zellwert ändern
26.02.2010 15:32:42
Zellwert
Hallo Beverly,
ich habe mein VB mal wie folgt abgeändert und einen ToggleButton verwendet:

Private Sub Worksheet_Change(ByVal Target As Range)
If ActiveSheet.ToggleButton1 Then
If Range("G8") = "WAHR" Then
ActiveSheet.Shapes("Lüfter1").Select
With Selection
.ShapeRange.Fill.ForeColor.SchemeColor = 11
End With
Else
ActiveSheet.Shapes("Lüfter1").Select
With Selection
.ShapeRange.Fill.ForeColor.SchemeColor = 10
End With
End If
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If ActiveSheet.ToggleButton1 Then
If Range("G8") = "WAHR" Then
ActiveSheet.Shapes("Lüfter1").Select
With Selection
.ShapeRange.Fill.ForeColor.SchemeColor = 11
End With
Else
ActiveSheet.Shapes("Lüfter1").Select
With Selection
.ShapeRange.Fill.ForeColor.SchemeColor = 10
End With
End If
Mit Worksheet_calculate hat es leider nicht funktioniert - kein Update der Autoformen.
Mit oben genanntem Code erfolgt leider auch kein koninuierliches Update der Autoform-Farben...
Nochmal zum verdeutlichen: Ich habe neben "Lüfter1" noch weitere Autoformen, die darauf schauen, dass sie die jeweilige Zelle in der Spalte G ändert. Bei Änderung ("WAHR" ---> "FALSCH") sollen sich die Farben der Autoformen ändern. Das muss solange und so oft funktionieren wie ein CommandButton oder ToggleButton aktiv ist.
Gruss,
Michael
Anzeige
AW: Farbe der Autoform abhängig von Zellwert ändern
26.02.2010 16:02:09
Zellwert
Hi Michael,
weise dem ToggleButton eine LinkeCell zu (sie kann durch den ToggleButton verdeckt sein) und schreibe in eine Zelle die Funktion ZUFALLSZAHL() - dann sollte es funktionieren.
Ich hänge mal ein Beispiel mit 2 Autoformen an - allerdings kann ich die Änderung in Spalte G nur dadurch simulieren, dass ich dort eine Formel stehen habe, deren Ergebnis sich bei Änderung einer anderen Zelle von WAHR auf FALSCH bzw. umgekehrt ändert. Die Formel bezieht sich auf A1 - wenn du also in A1 etwas eingibst oder löschst, simuliert dies das gleiche wie eine Datenübernahme von einem Server.
Zur Verdeutlichung habe ich noch die beiden Zellen in Spalte G mit einer bedingten Formatierung versehen, sodass der Wechsel dort besser zu sehen ist.
https://www.herber.de/bbs/user/68264.xls
Übrigens: auf Select kannst du hier - wie in 99% aller Fälle - verzichten.

Anzeige
AW: Farbe der Autoform abhängig von Zellwert ändern
27.02.2010 10:31:51
Zellwert
Hi Beverly,
tausend Dank. So wie du es beschrieben hast funktioniert es bestens. Kannst du mir vielleicht noch sagen, warum man hier die LinkedCell zuweisen muss bzw. was die Funktion Zufallszahl() bewirkt ?
Gruss und nochmals besten Dank...
Michael
AW: Farbe der Autoform abhängig von Zellwert ändern
27.02.2010 11:14:55
Zellwert
Hi Michael,
werden Daten von einem Server übernommen, löst dies in Excel kein Ereignis aus, welches man auswerten kann. Die Funktion ZFALLSZAHL() wird jedoch immer neu berechnet, wenn eine Veränderung im Tabellenblatt erfolgt (auch bei einer Datenübernahme von einem Server). Dadurch wiederum wird das Worksheets_Calculate Ereignis ausgelöst, mit welchem man nun überwachen kann, ob der ToggleButton gedrückt ist oder nicht, um in Abhängigkeit davon das Shape zu färben oder nicht. Das ist die erste Anforderung.
Die zweite Anforderung ist folgende: war der ToggleButton ausgeschaltet und man schaltet ihn ein, muss sofort geprüft werden, ob in Spalte G inzwischen eine Veränderung stattgefunden hat im Vergleich zum vorhergehenden Zustand bevor der ToggleButton eingeschaltet wurde. Das Drücken des ToggleButtons an sich nun löst ebenfalls kein Ereignis aus. Folglich würden die Shapes sozusagen die inzwischen möglicherweise erforderliche Farbänderung "nicht mitbekommen". Wenn der ToggleButton jedoch eine LinkedCell besitzt und die Zustandsänderung des Steuerelementes dort "dokumentiert" wird, ist dies eine Veränderung im Tabellenblatt und löst eine Neuberechnung der Funktion ZUFASLLSZAHL() aus. Und im Ergebnis dessen wird wiederum das Worksheet_Calculate Ereignis angestoßen und es wird sofort geprüft, welche Farbe das Shape bekommen muss.
Ich hoffe, dass die Erläuterung einigermaßen verständlich ausgefallen ist.

Anzeige

309 Forumthreads zu ähnlichen Themen

Festgelegten Wert von Button in Textbox übergeben
Button

Hallo,
ich bitte Euch um Eure Hilfe weil ich bis jezt noch ganz wenig Ahnung von VBA hab.
Ich möchte von UserForm2 per cmd-Button einen fest hinterlegten Wert in die Textbox von Userform1 eintragen.
siehe hier:
https://www.herber.de/bbs/user/58341.xls
Ich habe mir zwar sch...
13.01.2009 15:09:00
Thread-ID: 1039266
8 Beiträge
Anzeige
Pflichtfeld in Abhängigkeit von Zelleninhalt
Zelleninhalt

Hallo zusammen,
hier mein Poblem:
Ein Tabellenblatt enthält eine Liste von Aufgaben, wobei jeder Aufgabe ein Status zugewiesen werden kann.
Spalte A enthält jeweils die Bezeichnung der Aufgabe.
In Spalte B stehen über ein Auswahlfeld der ""StatusA"", ""StatusB"" und der ""Status...
03.08.2009 13:33:48
Thread-ID: 1093209
5 Beiträge
Doppelte Werte, abhängig von aktiver Zelle, finden
aktiver

Hallo,
auch nach stundenlanger Suche konnte ich folgendes Problem bisher nicht lösen:
In meinem Tabellenblatt kommen verschiedene Zelleinträge mehrfach vor.
Nun soll, wenn sich der Cursor in einer Zelle befindet, deren Inhalt in der Tabelle nochmals (oder mehrmals) vorkommt, diese Z...
09.08.2009 13:52:48
Thread-ID: 1094515
12 Beiträge
Anzeige
Combobox in Abhängigkeit von Wert in 2. Spalte
Wert

Hallo Forum,
Ich habe in Tabelle1 eine Spalte (A2:A45) mit Mitarbeiternamen.
In der 2. Spalte wird festgehalten, ob diese MA eine bestimmte Qualifikation haben (mittels "x" quasi angekreuzt).
In Tabelle2 gibt es eine Combobox, die ich nun mit den Werten aus der o.g. Spalte befüllen...
11.10.2009 23:11:06
Thread-ID: 1108963
4 Beiträge
Tabelle öffnen in Abhängigkeit von Zelleintrag
Zelleintrag

Guten Morgen allesreits,
Suche einen Code mit dem ich ein bestimmtes Tabellenblatt einer Zieldatei in ABHÄNGIGKEIT von einem Zelleintrag der Quelldatei öffnen kann.
Habe eine Zieldatei mit 10 inhaltlich gleichen Sheets, die aber einen unterschiedlichen Zeitraum auswerten.
Ich verwen...
25.10.2009 11:42:04
Thread-ID: 1111984
9 Beiträge
Zahlenformat abhängig von anderer Zelle
anderer

Hallo
ich habe eine mehrsprachige Tabelle erstellt, in der in einer Listbox u.a. die Währung ausgewählt werden kann. Die Währungsauswahl wir in einer einzelnen Zelle gespeichert.
Ich möchte das Zahlenformat in Abhängkeit des gewählten Währungswertes darstellen.
Bsp:
Zelle 1 = 25...
27.11.2009 11:00:49
Thread-ID: 1120482
3 Beiträge
Ausdruck nur in Abhängigkeit von Zellwert
Zellwert

Hallo Forumsmitglieder,
ich habe folgendes Problem: der Ausdruck eines Excel-Tabellenblattes soll nur möglich sein, wenn vom Nutzer in einer bestimmten Zelle ein Datumswert eingetragen wurde. Bei einer leeren Zelle bzw. Werten, die kein Datum darstellen sollte kein Ausdruck möglich sein. Wi...
01.03.2010 14:48:41
Thread-ID: 1142380
9 Beiträge
textbox abhängig von combobox
combobox

Hallo liebe Forumler,
ich hoffe, Ihr könnt mir helfen.
anbei eine Datei mit einem rudimentären Formular:
https://www.herber.de/bbs/user/68328.xls
ich habe bereits gegoogelt und etwas zu meinem Problem gefunden, allerdings scheint noch der Wurm drin zu sein....:
In Abhängigke...
02.03.2010 17:54:03
Thread-ID: 1142808
9 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton ToggleButton

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
7
2
4
11
4
3
8
2
8
8
11
1
6
7
3
3
1
4
2
3
2
2
1
10
5