Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Bedingte Formatierung einer Form
zurück: modul mit CommandButton auf UserForm aufrufen weiter: Wenn Farbe addiere Blattübergreifend Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
hossiausz
Im Profil kannst Du frei den Rang ändern


Verfasst am:
20. Jun 2012, 21:30
Rufname:

Bedingte Formatierung einer Form - Bedingte Formatierung einer Form

Nach oben
       Version: Office 2010

Hallo community,

ich habe folgendes Problem:
- mein Excel-sheet besteht aus mehreren Blättern

- das erste Blatt ist die Startseite und enthält verschiedene Formen (Dreiecke, Rechtecke etc.)

- die Füllfarbe soll sich abhängig von den Daten in den anderen Blättern ändern, d.h. sobald im Blatt 3 in der Tabelle ein Wert steht, soll z.B. das Dreieck grün werden, steht kein Wert drin soll es rot eingefärbt werden.


Ich verwende Excel 2010, Betriebssystem ist Win7.

Wäre für nen Tipp echt dankbar.

Liebe Grüße
Uli
werni
Solala


Verfasst am:
20. Jun 2012, 23:49
Rufname: werni
Wohnort: Ennenda GL


AW: Bedingte Formatierung einer Form - AW: Bedingte Formatierung einer Form

Nach oben
       Version: Office 2010

Hallo Uli

Bedingte Formatierung geht nur für Zellen.

Wie kommt ein Wert in Tabelle3 und wohin.

Wenn der Wert eine Formel sein sollte, könnte man es mit Worksheet_Calculate versuchen.

Beispiel hier in Tabelle2 steht eine Formel in Zelle A3
Dieser Code ins Modul der Tabelle2 einfügen:
Code:
Private Sub Worksheet_Calculate()
FarbeDreieck
End Sub

Dieser Code in ein normales Modul:
Code:
Sub FarbeDreieck()
    If Tabelle2.Range("A3") < 51 Then
        With Tabelle1.Shapes("Dreieck1").Fill
            .ForeColor.RGB = RGB(255, 0, 0)
        End With
    Else
        With Tabelle1.Shapes("Dreieck1").Fill
            .ForeColor.RGB = RGB(0, 255, 0)
        End With
    End If
End Sub


Wenn Tabelle2 in A3 der Wert grösser als 50 ist wird das Dreieck1 grün (ich hab es so Benannt)

Fällt der Wert unter 51 wird das Dreieck rot.

Gruss werni

_________________
"Die Summe aller Intelligenz auf Erden ist konstant, aber die Anzahl Individuen steigt."
. EINSTEIN



DreieckEinfärben.xlsm
 Beschreibung:

Download
 Dateiname:  DreieckEinfärben.xlsm
 Dateigröße:  17.9 KB
 Heruntergeladen:  35 mal

hossiausz
Im Profil kannst Du frei den Rang ändern


Verfasst am:
21. Jun 2012, 00:14
Rufname:

AW: Bedingte Formatierung einer Form - AW: Bedingte Formatierung einer Form

Nach oben
       Version: Office 2010

Hallo Werni,

das ist genau das, wonach ich gesucht habe - vielen Dank !!!!

Bei mir ist der Wert keiner Formel zugeordnet, sondern es soll nur eine Zelle abgefragt werden, ob z.B. in A3 eine Zahl steht oder nicht - mehr nich.

Gruß
Uli
werni
Solala


Verfasst am:
21. Jun 2012, 08:21
Rufname: werni
Wohnort: Ennenda GL


AW: Bedingte Formatierung einer Form - AW: Bedingte Formatierung einer Form

Nach oben
       Version: Office 2010

Hallo Uli

Dann den Code Calculate ersetzen durch Worksheet_SelectionChange

Die zweite Zeile im Code vom normalen Modul ändern

If Tabelle2.Range("A3") = "" Then

Wenn jetzt in Tabelle2 Zelle A3 gelöscht wird, ändert das Dreieck in Tabelle1 die Farbe auf rot, und umgkehrt.

Gruss werni

_________________
"Die Summe aller Intelligenz auf Erden ist konstant, aber die Anzahl Individuen steigt."
. EINSTEIN
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Summe bilden aus Zellen mit bestimmter Formatierung 10 Baltasar 7642 10. Feb 2013, 01:37
hddiesel Summe bilden aus Zellen mit bestimmter Formatierung
Keine neuen Beiträge Excel Formeln: Formel für bedingte Formatierung (Zelle ohne Wert) 17 clowni 38361 07. Jun 2011, 14:13
seym Formel für bedingte Formatierung (Zelle ohne Wert)
Keine neuen Beiträge Excel Formeln: Bedingte Formatierung für Nachbarfelder 2 schaf_i 1809 05. Apr 2006, 11:57
Gast Bedingte Formatierung für Nachbarfelder
Keine neuen Beiträge Excel Formeln: Füllfarbe - bedingte Formatierung 4 sisqonrw 2466 04. Apr 2006, 11:22
sisqonrw Füllfarbe - bedingte Formatierung
Keine neuen Beiträge Excel Formeln: Bedingte Formatierung 9 Chpeters 1235 29. März 2006, 09:51
steve1da Bedingte Formatierung
Keine neuen Beiträge Excel Formeln: Bedingte Formatierung bei datumsüberschreitung 2 mahu 2759 01. Feb 2006, 17:30
Gast Bedingte Formatierung bei datumsüberschreitung
Keine neuen Beiträge Excel Formeln: Bedingte formatierung mit Wortteilen 9 herbert65 1925 17. Nov 2005, 13:17
herbert65 Bedingte formatierung mit Wortteilen
Keine neuen Beiträge Excel Formeln: Bedinget formatierung 9 Steven 885 22. Sep 2005, 13:26
fridgenep Bedinget formatierung
Keine neuen Beiträge Excel Formeln: Summe nach bedingter Formatierung 4 les 1126 20. Sep 2005, 13:39
Thomas Ramel Summe nach bedingter Formatierung
Keine neuen Beiträge Excel Formeln: Bedingte Formatierung 2 Qwertzuiop 1929 27. Jun 2005, 09:38
Qwertzuiop Bedingte Formatierung
Keine neuen Beiträge Excel Formeln: Bedingte Formatierung 10 Carina 2 1615 22. Jun 2005, 14:01
rainberg Bedingte Formatierung
Keine neuen Beiträge Excel Formeln: Bedingte Formatierung erstellt reagiert nicht 2 gilmax 925 13. Feb 2005, 00:00
gilmax Bedingte Formatierung erstellt reagiert nicht
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: CSS Forum