Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.04.2024 21:55:37
Preiserhöhung über mehrere Jahre berechnen
17.04.2024 20:19:32
Endzeitpunkt berechnen aus d:hh:mm errechnen
17.04.2024 18:57:33
Errinnerungsfunktion
17.04.2024 16:56:58
Stunden addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
832to836
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
832to836
832to836
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zelle abhängig von Wert formatieren

Zelle abhängig von Wert formatieren
31.12.2006 10:50:03
Wert
Guten Morgen ans Excelforum,
kurz vor Jahresende habe ich noch ein Formatierungsproblem, ich weiß aber nicht wie man das mit VBA hinbekommen kann.
Problem:
Der Farbhintergrund einer Zelle soll in Abhängigkeit von dem Wert der Zelle sein.
Praktisch wäre es wenn man Bereiche definieren könnte Bsp. Zelle a1 soll bei Werten zwischen 80 und 100 Zellhintergund grün haben, bei 60 bis 80 sollte ein gelber Hintergrund erscheinen und bei Unterschreiten von 60 ein roter Hintergund zu sehen sein. Die Zelle soll nach der Eingabe der Zahl in die Zelle a1 die Farbe wechseln, ohne das man das Makro startet.
Guten Rutsch schon mal und vielen Dank
Gruß Bernd

16
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zelle abhängig von Wert formatieren
31.12.2006 10:55:00
Wert
Hallo Bernd,
Menüleiste - Format - Bedingte Formatierung. Den Rest schaffst du sicher alleine.
Gruß
Nepumuk
AW: Zelle abhängig von Wert formatieren
31.12.2006 11:08:01
Wert
Hallo Nepumuk,
das mit der bedingten Formatierung funktioniert einwandfrei. Ich würde das ganze aber gerne mit VBA realisieren, weil ich dann mehr Bedingungen setzen kann. Weiss jemand, wie man nach Eingabe in eine Zelle einen Makro automatisch aktiviert ?
Mfg Bernd
AW: Zelle abhängig von Wert formatieren
31.12.2006 11:12:48
Wert
Hallo Bernd,
klar, das wissen hier viele. Mit der Ereignisroutine "Worksheet_Change" im Klassenmodul der Tabelle. Wenn du dich mal im Archiv umsiehst Stichwort "Bedingte Formatierung mehr als drei Bedingungen" so wirst du garantiert mehr als 100 Hinweise finden.
Gruß
Nepumuk
Anzeige
AW: Zelle abhängig von Wert formatieren
31.12.2006 11:37:37
Wert
Hallo Nepumuk,
das ist eine sehr gute Idee. Ich habe in das Klassenmodul der Tabelle folgenden Code eingefügt, aber irgendwie ändert sich noch nichts in meiner Zelle.
Vielen Dank schon mal.
mfg Bernd
ClassModule: Planungsrechnung

Private Sub Worksheet_Change(ByVal Target As Range)
With Range("B5")
If .Value < 60 Then
.Interior.ColorIndex = 3
Else
.Interior.ColorIndex = 5
End If
End With
End Sub

AW: Zelle abhängig von Wert formatieren
31.12.2006 11:41:43
Wert
Hallo Bernd,
hast du ein Klassenmodul eingefügt, oder das immer vorhandene Modul der Tabelle benutzt? Ist die betreffende Zelle die Zelle B5 ?
Gruß
Nepumuk
Anzeige
AW: Zelle abhängig von Wert formatieren
31.12.2006 11:50:36
Wert
Hallo Nepumuk,
zuerst habe ich ein Klassenmodul eingefügt und dann einen Bsp. Code aus dem Archiv dort eingefügt. Die Zelle reagiert aber bei einer Eingabe nicht.
Mfg Bernd
AW: Zelle abhängig von Wert formatieren
31.12.2006 12:01:22
Wert
Hallo Bernd,
du sollst kein Klassenmodul einfügen, sondern das der Tabelle benutzen. In Projektexplorer einen Doppelklick auf die Tabelle, oder von Excel aus einen Rechtsklick auf den entsprechenden Tabellenreiter - Code anzeigen. Das Klassenmodul kannst du wieder löschen. Rechtsklick in Projektexplorer - Entfernen. Die Frage, ob es sich um die Zelle B5 handelt ist noch offen. Denn so wie die Prozedur momentan aussieht, wird die Zelle bei jeder Eingabe in der Tabelle neu formatiert. Das ist Unsinn.
Gruß
Nepumuk
Anzeige
AW: Zelle abhängig von Wert formatieren
31.12.2006 12:15:00
Wert
Hallo Nepumuk,
wenn man den Code in der Tabelle einfügt, reagiert die Tabelle wie gewünscht. Echt Super.
Wofür braucht man denn die Klassenmodule ? Das Bsp. mit dem Klassenmodul war aus dem Forum.
Mfg Bernd
Titel: Farbänderung bei Änderung des Wahrheitswertes
Problem: Bei Änderung des Wahrheitswertes in Zelle B1 soll sich die Hintergrundfarbe dieser Zelle ändern. Die Bedingte Formatierung soll nicht eingesetzt werden.
Lösung: Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.
ClassModule: Tabelle1

Private Sub Worksheet_Change(ByVal Target As Range)
With Range("B1")
If .Value = True Then
.Interior.ColorIndex = 34
Else
.Interior.ColorIndex = 36
End If
End With
End Sub

Anzeige
AW: Zelle abhängig von Wert formatieren
31.12.2006 12:25:05
Wert
Hallo Bernd,
Da steht es doch:
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.
Klassenmodule werden benötigt, um eine virtuelle Klasse zu erstellen. Das sind Objekt die es eigentlich nicht gibt. Eine genauere Erklärung würde aber deine Kenntnissen etwas überfordern.
Jetzt weiß ich aber immer noch nicht, welche Zelle reagieren soll. :-(
Gruß
Nepumuk
AW: Zelle abhängig von Wert formatieren
31.12.2006 12:46:04
Wert
Hallo Nepumuk,
das hatte ich dann wohl falsch verstanden mit dem Klassenmodul. Die Zelle ändert sich jetzt je nach Zahleneingabe. Die Zelle B5 soll bei Zahleneingabe je nach Wert die Farbe ändern, was sie auch tut. Der Code ist noch nicht vollständig, unterscheidet die Bereiche aber richtig.

Private Sub Worksheet_Change(ByVal Target As Range)
With Range("B5")
If .Value <= 150 And .Value >= 100 Then
.Interior.ColorIndex = 3
End If
If .Value <100 And .Value >= 90 Then
.Interior.ColorIndex = 8
End If
End With
End Sub

Vielen Dank noch mal, das hätte ich bis Ostern nicht hinbekommen.
Mfg Bernd
Anzeige
AW: Zelle abhängig von Wert formatieren
31.12.2006 12:54:29
Wert
Hallo Nepumuk,
da ist gerade noch ein Problem aufgetaucht, die Änderung der Zellfarbe funktioniert nicht mit einem Drehfeld.
Mfg Bernd
AW: Zelle abhängig von Wert formatieren
31.12.2006 13:08:27
Wert
Hallo Bernd,
das hättest du aber auch gleich schreiben können. Das hätte 10 sinnlose Postings gespart. Dann in einem Standardmodul:
Sub Drehfeld1_BeiÄnderung()
    With Range(ActiveSheet.Shapes("Drehfeld 1").OLEFormat.Object.LinkedCell)
        If .Value <= 150 And .Value >= 100 Then
            .Interior.ColorIndex = 3
        ElseIf .Value < 100 And .Value >= 90 Then
            .Interior.ColorIndex = 8
        End If
    End With
End Sub

Gruß
Nepumuk
Anzeige
AW: Zelle abhängig von Wert formatieren
31.12.2006 13:26:53
Wert
Hallo Nepumuk,
für mich war das sehr lehrreich und sicherlich nicht sinnlos. Das Makro für das Drehfeld hängt noch, weil er das Element mit dem angegebenen Namen nicht finden kann. Das Drehfeld habe ich aus der Symbolleiste Formular eingefügt.
in der Zeile kommt die Fehlermeldung
With Range(ActiveSheet.Shapes("Drehfeld 1").OLEFormat.Object.LinkedCell)
Vielen Dank nochmals
Mfg Bernd
AW: Zelle abhängig von Wert formatieren
31.12.2006 18:36:44
Wert
Hallo Nepumuk
Hier noch meine Lösung:
2 Ereignisse mit Spinbutton aus der Steuerelement Toolbox in Modul der Tabelle einfügen, dann funktioniert auch das andere Ergeignis mit dem Farbwechsel der Zelle.
Gutschen Rutsch ans Forum und danke für die Hilfe.
mfg Bernd
Änderung der Hintergrundfarbe abhängig vom Wert der Zelle b7

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Address = "$B$7" Then
If .Value <= 150 And .Value >= 100 Then
.Interior.ColorIndex = 8
ElseIf .Value < 100 And .Value >= 90 Then
.Interior.ColorIndex = 6
ElseIf .Value < 90 And .Value >= 85 Then
.Interior.ColorIndex = 5
End If
End If
End With
End Sub

Runterzählen der Zelle b7 mit spinbutton

Private Sub SpinButton1_SpinDown()
Range("b7") = Range("b7").Value - 1
End Sub

Hochzählen der Zelle b7 mit spinbutton

Private Sub SpinButton1_SpinUp()
Range("b7") = Range("b7").Value + 1
End Sub

Anzeige
AW: Zelle abhängig von Wert formatieren
31.12.2006 12:54:32
Wert
Hallo Bernd,
so ist's besser:
Private Sub Worksheet_Change(ByVal Target As Range)
    With Target
        If .Address = "$B$5" Then
            If .Value <= 150 And .Value >= 100 Then
                .Interior.ColorIndex = 3
            ElseIf .Value < 100 And .Value >= 90 Then
                .Interior.ColorIndex = 8
            End If
        End If
    End With
End Sub

Gruß
Nepumuk
Anzeige
AW: Zelle abhängig von Wert formatieren
31.12.2006 13:07:31
Wert
Hallo Nepumuk,
Neues Problem:
Die Änderung der Zellfarbe mit dem entwickelten Makro funktioniert nicht mit einem Drehfeld, das den Zellinhalt von b5 verändert.
Mfg Bernd

300 Forumthreads zu ähnlichen Themen

Zellen mit Werten aus darüberliegender Zelle fülle
Andreas

Guten Morgen!
Ich hätte folgendes Problem: Ich erhalte automatisiert Exceltabellen, bei denen nicht alle Zellen einer Zeile gefüllt werden, wenn dort der Inhalt einer darüberliegenden Zeile stehen sollte. Zur Weiterverarbeitung muss ich aber diese Zellen mit den dazugehörigen Werten füllen....
11.08.2008 08:59:25
Thread-ID: 1000713
4 Beiträge
Anzeige
x ersetzen durch wert aus bestimmter zelle
Ingolf

hallo,
ich muß eine liste erstellen. die werte unten will ich nicht immer eingeben müssen, sondern nur dort wo ein wert stehen soll ein x machen. excel soll mir dann für jedes x den wert aus der zeile 2 der gleichen spalte eintragen. mache ich in eine zelle 2 x, dann muß der wert auch 2 mal...
22.08.2008 09:08:22
Thread-ID: 1003727
5 Beiträge
Inhalt einer Zelle im Windows Infobereich anzeigen
Thomas

Hallo,
kann ich den Inhalt einer Zelle im Windows Infobereich anzeigen lassen?
Ich habe eine VBA-Anwendung, die mir den Verarbeitungsstatus in einer Zelle anzeigt.
Weil die Verarbeitung sehr lange dauert möchte ich zwischendurch mit anderen Anwendungen arbeiten und unten rechts nebe...
27.08.2008 17:50:23
Thread-ID: 1005163
3 Beiträge
Anzeige
Wenn Wert weniger, in anderer Zelle um d.Wert erh.
Josef

Guten Morgen!
Ich habe z.B. in der Zelle A1 den Wert 5 stehen. Wird dieser Wert z.B. um die Zahl 3 verringert, dann soll der vorhandene Wert in der Zelle B1 um die Zahl 3 erhöht werden. Wie würde hier bitte eine Formellösung dafür lauten?
Danke
Josef
09.09.2008 05:49:00
Thread-ID: 1008272
2 Beiträge
Bestimmte Werte aus einer Zelle herausfiltern
G_G

Hallo zusammen.
Ich habe in einer Zelle einen etwas längeren Text (mit Zahlen und Buchstaben). Ich würde jetzt gerne hieraus den Wert rausfiltern (in separate Spalte), der neben der Buchstabenkombination "AT" steht.
Hört sich einfach an. Da gibt es aber noch einige Sonderfälle.
Ich...
15.09.2008 12:03:00
Thread-ID: 1009747
5 Beiträge
Bestimmten Wert in einer Zelle finden
Olli

Hallo,
ich lauf gerade wieder mal mit einem Brett vorm Kopf rum und hoffe, mir kann einer hier helfen.
Ich habe in einer Zelle mehrere Werte stehen, die jeweils durch Semikolon getrennt sind (bis zu 15).
Wie kann ich per VBA eine Schleife erstellen, dass solange nach einem Wert gesu...
19.09.2008 08:54:00
Thread-ID: 1010897
5 Beiträge
Textinhalte aus Zellen zusammenkopieren
zehetner

Liebe Profis,
ich habe die Ergebnisse einer Befragung in ein Excel-Sheet eingegeben, jeder Befragte in ein Registerblatt. Nun möchte ich die Antworten der Befragten, die in Textfeldern (immer in den selben, zB E145 stehen) gesammelt in eine neue Tabelle bringen.
Ziel ist es, die Antwort...
21.09.2008 18:29:25
Thread-ID: 1011343
2 Beiträge
Wert aus Zelle holen für VBA
Oliver

Hallo eine kleine Frage,
wollte folgendes umsetzen, ein Benutzer fügt in der Excelobelfläche im ersten Blatt eine Zahl ein. Diese soll jetzt wie folgt verwendet werden:
falls ... größer als dem Zellinhalt, dann ...
meine Idee:
Dim Wert As Integer
Wert = cells(20, 2)
If.....
25.09.2008 10:06:31
Thread-ID: 1012241
6 Beiträge
Anzeige

Links zu Excel-Dialogen

SpinButton

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
3
16
4
2
5
1
4
4
1
5
30
4
8
3
2
5
2
4
4
2
9
5
5
9
8